X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fcust_bill.cgi;h=e77f13d9bbb6876028353fc973722399a85ca504;hb=e03778f753c3458e669fb261a013e6c2931c2dd7;hp=96101d004d53a2b8f29cf5b6a1fdc6c46d632760;hpb=2f057aa80e429a549fb9fd9449eae8475c994796;p=freeside.git diff --git a/htdocs/view/cust_bill.cgi b/htdocs/view/cust_bill.cgi index 96101d004..e77f13d9b 100755 --- a/htdocs/view/cust_bill.cgi +++ b/htdocs/view/cust_bill.cgi @@ -1,7 +1,6 @@ #!/usr/bin/perl -Tw # -# Usage: cust_bill.cgi invnum -# http://server.name/path/cust_bill.cgi?invnum +# $Id: cust_bill.cgi,v 1.2 1998-12-17 09:57:20 ivan Exp $ # # Note: Should be run setuid freeside as user nobody. # @@ -24,21 +23,26 @@ # bmccane@maxbaud.net 98-apr-3 # # also print 'printed' field ivan@sisd.com 98-jul-10 +# +# $Log: cust_bill.cgi,v $ +# Revision 1.2 1998-12-17 09:57:20 ivan +# s/CGI::(Base|Request)/CGI.pm/; +# use strict; use IO::File; -use CGI::Base qw(:DEFAULT :CGI); # CGI module +use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); +use FS::CGI qw(header popurl); use FS::Record qw(qsearchs); -use FS::Invoice; +use FS::cust_bill; -my($cgi) = new CGI::Base; -$cgi->get; +my($cgi) = new CGI; &cgisuidsetup($cgi); #untaint invnum -$QUERY_STRING =~ /^(\d+)$/; +$cgi->query_string =~ /^(\d+)$/; my($invnum)=$1; my($cust_bill) = qsearchs('cust_bill',{'invnum'=>$invnum}); @@ -47,27 +51,17 @@ my($custnum) = $cust_bill->getfield('custnum'); my($printed) = $cust_bill->printed; -SendHeaders(); # one guess. -print < - - Invoice View - - -
-

Invoice View

- View this customer (#$custnum) | Main menu -
- -
- Enter payments (check/cash) against this invoice -
Reprint this invoice +my $p = popurl(2); +print $cgi->header, header('Invoice View', menubar( + "Main Menu" => $p, + "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", +)), <Enter payments (check/cash) against this invoice +
Reprint this invoice

(Printed $printed times) - 
 END
 
-bless($cust_bill,"FS::Invoice");
 print $cust_bill->print_text;
 
 	#formatting