diff options
Diffstat (limited to 'htdocs')
| -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' |