diff options
| author | ivan <ivan> | 1998-11-08 10:11:02 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-08 10:11:02 +0000 |
| commit | 1b1dd72e3722189a339898d20eabeb1f1bdafce1 (patch) | |
| tree | 843d98a035f493c09398ad7382ab09042ad87e3e | |
| parent | b90fadef7ea6b802a46a4f826ec5052ffd9e5556 (diff) | |
CGI.pm
| -rwxr-xr-x | htdocs/browse/agent.cgi | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi index 2bf4ef9d3..2c67e837c 100755 --- a/htdocs/browse/agent.cgi +++ b/htdocs/browse/agent.cgi @@ -15,23 +15,24 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: agent.cgi,v $ -# Revision 1.2 1998-11-07 10:24:22 ivan +# Revision 1.3 1998-11-08 10:11:02 ivan +# CGI.pm +# +# Revision 1.2 1998/11/07 10:24:22 ivan # don't use depriciated FS::Bill and FS::Invoice, other miscellania # use strict; -use CGI::Base; +use CGI; use FS::UID qw(cgisuidsetup swapuid); use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header menubar); -my($cgi) = new CGI::Base; -$cgi->get; +my($cgi) = new CGI; &cgisuidsetup($cgi); -SendHeaders(); # one guess. -print header('Agent Listing', menubar( +print $cgi->header, header('Agent Listing', menubar( 'Main Menu' => '../', 'Agent Types' => 'agent_type.cgi', # 'Add new agent' => '../edit/agent.cgi' |