X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htdocs%2Fedit%2Fcust_main.cgi;fp=htdocs%2Fedit%2Fcust_main.cgi;h=c73a06940fcb682d493e1e4b95cbe5618bfa120a;hp=1405fe34e659ea661f70f3ffd9d5bfe797923b4a;hb=e41296af7d8e4f672e9bd95f2bfb5e07b6395e9a;hpb=18e983e01dff4ef98d08b5ed0b158870462654ab diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi index 1405fe34e..c73a06940 100755 --- a/htdocs/edit/cust_main.cgi +++ b/htdocs/edit/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.19 1999-08-21 02:14:25 ivan Exp $ +# $Id: cust_main.cgi,v 1.20 1999-08-23 07:08:11 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -38,7 +38,10 @@ # fixed one missed day->daytime ivan@sisd.com 98-jul-13 # # $Log: cust_main.cgi,v $ -# Revision 1.19 1999-08-21 02:14:25 ivan +# Revision 1.20 1999-08-23 07:08:11 ivan +# no CGI::Switch for now +# +# Revision 1.19 1999/08/21 02:14:25 ivan # better error message for no agents # # Revision 1.18 1999/08/11 15:38:33 ivan @@ -97,7 +100,8 @@ use vars qw( $cgi $custnum $action $cust_main $p1 @agents $agentnum $daytime $night $fax @invoicing_list $invoicing_list $payinfo $payname %payby %paybychecked $refnum $otaker $r ); use vars qw ( $conf $pkgpart $username $password $popnum $ulen $ulen2 ); -use CGI::Switch; +#use CGI::Switch; +use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup getotaker); #use FS::Record qw(qsearch qsearchs fields);