diff options
| author | ivan <ivan> | 1999-08-23 07:08:11 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-08-23 07:08:11 +0000 |
| commit | e41296af7d8e4f672e9bd95f2bfb5e07b6395e9a (patch) | |
| tree | aeba969a4d30b506bf8f580b1bccf7f75cb8459d /htdocs/edit | |
| parent | 18e983e01dff4ef98d08b5ed0b158870462654ab (diff) | |
no CGI::Switch for now
Diffstat (limited to 'htdocs/edit')
| -rwxr-xr-x | htdocs/edit/cust_main.cgi | 10 |
1 files changed, 7 insertions, 3 deletions
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); |