X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=htdocs%2Fview%2Fcust_main.cgi;h=de9ff7f890a159a1215c8950996e9a0754ce6e51;hb=f56cc7785c80f2b97c14653486a19c9cc34146cf;hp=7d51e288adfdc6e6fa832aa708e2ab442ac5c30e;hpb=e0da34d97b1463b55a334e8dae10cd55796e2312;p=freeside.git diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index 7d51e288a..de9ff7f89 100755 --- a/htdocs/view/cust_main.cgi +++ b/htdocs/view/cust_main.cgi @@ -1,12 +1,10 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.12 1999-02-07 09:59:40 ivan Exp $ +# $Id: cust_main.cgi,v 1.17 1999-04-15 16:44:36 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum # -# Note: Should be run setuid freeside as user nobody. -# # the payment history section could use some work, see below # # ivan@voicenet.com 96-nov-29 -> 96-dec-11 @@ -33,7 +31,22 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main.cgi,v $ -# Revision 1.12 1999-02-07 09:59:40 ivan +# Revision 1.17 1999-04-15 16:44:36 ivan +# delete customers +# +# Revision 1.16 1999/04/09 04:22:34 ivan +# also table() +# +# Revision 1.15 1999/04/09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.14 1999/04/08 04:04:37 ivan +# eliminate double // in links +# +# Revision 1.13 1999/02/28 00:04:00 ivan +# removed misleading comments +# +# Revision 1.12 1999/02/07 09:59:40 ivan # more mod_perl fixes, and bugfixes Peter Wemm sent via email # # Revision 1.11 1999/01/25 12:26:04 ivan @@ -72,7 +85,7 @@ use strict; use vars qw ( $cgi $query $custnum $cust_main $hashref $agent $referral @packages $package @history @bills $bill @credits $credit - $balance $item @agents @referrals @invoicing_list $n1 ); + $balance $item @agents @referrals @invoicing_list $n1 $conf ); use CGI; use CGI::Carp qw(fatalsToBrowser); use Date::Format; @@ -92,6 +105,8 @@ use FS::cust_refund; $cgi = new CGI; &cgisuidsetup($cgi); +$conf = new FS::Conf; + print $cgi->header( '-expires' => 'now' ), header("Customer View", menubar( 'Main Menu' => popurl(2) )); @@ -104,11 +119,14 @@ $cust_main = qsearchs('cust_main',{'custnum'=>$custnum}); die "Customer not found!" unless $cust_main; $hashref = $cust_main->hashref; -print itable(), '