<% #untaint invnum my($query) = $cgi->keywords; $query =~ /^(\d+)$/; my $invnum = $1; my $cust_bill = qsearchs('cust_bill',{'invnum'=>$invnum}); die "Invoice #$invnum not found!" unless $cust_bill; my $custnum = $cust_bill->getfield('custnum'); #my $printed = $cust_bill->printed; print header('Invoice View', menubar( "Main Menu" => $p, "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", )); print qq!Enter payments (check/cash) against this invoice | ! if $cust_bill->owed > 0; print qq!Reprint this invoice!; if ( grep { $_ ne 'POST' } $cust_bill->cust_main->invoicing_list ) { print qq! | !. qq!Re-email this invoice!; } print '

'; my $conf = new FS::Conf; if ( $conf->exists('invoice_latex') ) { print menubar( 'View typeset invoice' => "${p}view/cust_bill-pdf.cgi?$invnum", ), '

'; } #false laziness with search/cust_bill_event.cgi print table(). 'EventDateStatus'; foreach my $cust_bill_event ( sort { $a->_date <=> $b->_date } $cust_bill->cust_bill_event ) { my $status = $cust_bill_event->status; $status .= ': '. $cust_bill_event->statustext if $cust_bill_event->statustext; print ''. $cust_bill_event->part_bill_event->event. ''. time2str("%a %b %e %T %Y", $cust_bill_event->_date). ''. $status. ''; } print '
';

print $cust_bill->print_text;

	#formatting
	print <
  

END

%>