3 # Usage: cust_bill.cgi invnum
4 # http://server.name/path/cust_bill.cgi?invnum
6 # Note: Should be run setuid freeside as user nobody.
8 # this is a quick & ugly hack which does little more than add some formatting to the ascii output from /dbin/print-invoice
10 # ivan@voicenet.com 96-dec-05
12 # added navigation bar
13 # ivan@voicenet.com 97-jan-30
16 # ivan@voicenet.com 97-jun-30
18 # what to do if cust_bill search errors?
19 # ivan@voicenet.com 97-jul-7
21 # s/FS::Search/FS::Record/; $cgisuidsetup($cgi); ivan@sisd.com 98-mar-14
23 # Changes to allow page to work at a relative position in server
24 # bmccane@maxbaud.net 98-apr-3
26 # also print 'printed' field ivan@sisd.com 98-jul-10
30 use CGI::Base qw(:DEFAULT :CGI); # CGI module
31 use CGI::Carp qw(fatalsToBrowser);
32 use FS::UID qw(cgisuidsetup);
33 use FS::Record qw(qsearchs);
36 my($cgi) = new CGI::Base;
41 $QUERY_STRING =~ /^(\d+)$/;
44 my($cust_bill) = qsearchs('cust_bill',{'invnum'=>$invnum});
45 die "Invoice #$invnum not found!" unless $cust_bill;
46 my($custnum) = $cust_bill->getfield('custnum');
48 my($printed) = $cust_bill->printed;
50 SendHeaders(); # one guess.
54 <TITLE>Invoice View</TITLE>
59 <A HREF="../view/cust_main.cgi?$custnum">View this customer (#$custnum)</A> | <A HREF="../">Main menu</A>
63 <A HREF="../edit/cust_pay.cgi?$invnum">Enter payments (check/cash) against this invoice</A>
64 <BR><A HREF="../misc/print-invoice.cgi?$invnum">Reprint this invoice</A>
65 <BR><BR>(Printed $printed times)
70 bless($cust_bill,"FS::Invoice");
71 print $cust_bill->print_text;