X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fcust_main.cgi;fp=htdocs%2Fview%2Fcust_main.cgi;h=7c5f4bead7e5c37bd9ff4c869f359be6fa42ca3f;hb=c116ce940c33dcd7e37a87a8eb2936e17cc68b11;hp=71a4e517e4a4c763532b725e1fe3aa400baf2b55;hpb=65a4f2fb7d37996f89b5e22dac831e57d467d050;p=freeside.git diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index 71a4e517e..7c5f4bead 100755 --- a/htdocs/view/cust_main.cgi +++ b/htdocs/view/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.9 1999-01-18 09:41:43 ivan Exp $ +# $Id: cust_main.cgi,v 1.10 1999-01-19 05:14:19 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -33,7 +33,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main.cgi,v $ -# Revision 1.9 1999-01-18 09:41:43 ivan +# Revision 1.10 1999-01-19 05:14:19 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.9 1999/01/18 09:41:43 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -60,6 +64,9 @@ # use strict; +use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral + @packages $package @history @bills $bill @credits $credit + $balance $item ); use CGI; use CGI::Carp qw(fatalsToBrowser); use Date::Format; @@ -76,7 +83,7 @@ use FS::agent; use FS::cust_main; use FS::cust_refund; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar( @@ -86,12 +93,12 @@ print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar( END die "No customer specified (bad URL)!" unless $cgi->keywords; -my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array +($query) = $cgi->keywords; # needs parens with my, ->keywords returns array $query =~ /^(\d+)$/; -my($custnum)=$1; -my($cust_main)=qsearchs('cust_main',{'custnum'=>$custnum}); +$custnum = $1; +$cust_main = qsearchs('cust_main',{'custnum'=>$custnum}); die "Customer not found!" unless $cust_main; -my($hashref)=$cust_main->hashref; +$hashref = $cust_main->hashref; #custnum print "