diff options
author | ivan <ivan> | 1998-11-07 10:24:25 +0000 |
---|---|---|
committer | ivan <ivan> | 1998-11-07 10:24:25 +0000 |
commit | 4c9347994ca4e1aefdb622d9f51ac8687e6a177b (patch) | |
tree | e3acf2eb149143c9f469a205936dc603015a2488 /htdocs/browse/agent.cgi | |
parent | 0ac8d86e9f241bbca5c87826e56756157b7a432b (diff) |
don't use depriciated FS::Bill and FS::Invoice, other miscellania
Diffstat (limited to 'htdocs/browse/agent.cgi')
-rwxr-xr-x | htdocs/browse/agent.cgi | 28 |
1 files changed, 20 insertions, 8 deletions
diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi index cf5f2281f..2bf4ef9d3 100755 --- a/htdocs/browse/agent.cgi +++ b/htdocs/browse/agent.cgi @@ -13,6 +13,11 @@ # agent type was linking to wrong cgi ivan@sisd.com 98-jul-18 # # lose background, FS::CGI ivan@sisd.com 98-sep-2 +# +# $Log: agent.cgi,v $ +# 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; @@ -27,20 +32,22 @@ $cgi->get; SendHeaders(); # one guess. print header('Agent Listing', menubar( - 'Main Menu' => '../', - 'Add new agent' => '../edit/agent.cgi' + 'Main Menu' => '../', + 'Agent Types' => 'agent_type.cgi', +# 'Add new agent' => '../edit/agent.cgi' )), <<END; - <BR> - Click on agent number to edit. +Agents are resellers of your service. Agents may be limited to a subset of your +full offerings (via their type).<BR><BR> <TABLE BORDER> <TR> - <TH><FONT SIZE=-1>Agent #</FONT></TH> - <TH>Agent</TH> + <TH COLSPAN=2>Agent</TH> <TH>Type</TH> <TH><FONT SIZE=-1>Freq. (unimp.)</FONT></TH> <TH><FONT SIZE=-1>Prog. (unimp.)</FONT></TH> </TR> END +# <TH><FONT SIZE=-1>Agent #</FONT></TH> +# <TH>Agent</TH> my($agent); foreach $agent ( sort { @@ -54,7 +61,8 @@ foreach $agent ( sort { <TR> <TD><A HREF="../edit/agent.cgi?$hashref->{agentnum}"> $hashref->{agentnum}</A></TD> - <TD>$hashref->{agent}</TD> + <TD><A HREF="../edit/agent.cgi?$hashref->{agentnum}"> + $hashref->{agent}</A></TD> <TD><A HREF="../edit/agent_type.cgi?$typenum">$atype</A></TD> <TD>$hashref->{freq}</TD> <TD>$hashref->{prog}</TD> @@ -64,8 +72,12 @@ END } print <<END; + <TR> + <TD COLSPAN=2><A HREF="../edit/agent.cgi"><I>Add new agent</I></A></TD> + <TD><A HREF="../edit/agent_type.cgi"><I>Add new agent type</I></A></TD> + </TR> </TABLE> - </CENTER> + </BODY> </HTML> END |