diff options
| author | ivan <ivan> | 1998-11-15 11:20:12 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-15 11:20:12 +0000 |
| commit | 142e4e186f3cf2f33688ccfe3e6444e3ddc3f025 (patch) | |
| tree | 35f82dfd1d91051acd94ee33a01ce51339da2879 /htdocs/edit | |
| parent | 99ea62e8f3e4d612b187372badbacf447f83704c (diff) | |
s/CGI-Base/CGI.pm/ causes s/QUERY_STRING/keywords/;
Diffstat (limited to 'htdocs/edit')
| -rwxr-xr-x | htdocs/edit/agent_type.cgi | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/htdocs/edit/agent_type.cgi b/htdocs/edit/agent_type.cgi index 9f3748d3d..b6b45eead 100755 --- a/htdocs/edit/agent_type.cgi +++ b/htdocs/edit/agent_type.cgi @@ -1,5 +1,7 @@ #!/usr/bin/perl -Tw # +# $Id: agent_type.cgi,v 1.3 1998-11-15 11:20:12 ivan Exp $ +# # agent_type.cgi: Add/Edit agent type (output form) # # ivan@sisd.com 97-dec-10 @@ -11,7 +13,10 @@ # use FS::CGI, added inline documentation ivan@sisd.com 98-jul-12 # # $Log: agent_type.cgi,v $ -# Revision 1.2 1998-11-13 09:56:46 ivan +# Revision 1.3 1998-11-15 11:20:12 ivan +# s/CGI-Base/CGI.pm/ causes s/QUERY_STRING/keywords/; +# +# Revision 1.2 1998/11/13 09:56:46 ivan # change configuration file layout to support multiple distinct databases (with # own set of config files, export, etc.) # @@ -29,7 +34,7 @@ my($cgi) = new CGI; &cgisuidsetup($cgi); my($agent_type,$action); -if ( $cgi->var('QUERY_STRING') =~ /^(\d+)$/ ) { #editing +if ( $cgi->keywords =~ /^(\d+)$/ ) { #editing $agent_type=qsearchs('agent_type',{'typenum'=>$1}); $action='Edit'; } else { #adding |