X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=htdocs%2Fbrowse%2Fagent.cgi;h=2bf4ef9d3048a8d7a654e925ae98e33e88d98998;hp=cf5f2281fc1bfd15493e7f0da53d31c81e89cc55;hb=4c9347994ca4e1aefdb622d9f51ac8687e6a177b;hpb=0ac8d86e9f241bbca5c87826e56756157b7a432b 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' )), < - 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).

- - + END +# +# my($agent); foreach $agent ( sort { @@ -54,7 +61,8 @@ foreach $agent ( sort { - + @@ -64,8 +72,12 @@ END } print < + + +
Agent #AgentAgent Type Freq. (unimp.) Prog. (unimp.)
Agent #Agent
$hashref->{agentnum}$hashref->{agent} + $hashref->{agent} $atype $hashref->{freq} $hashref->{prog}Add new agentAdd new agent type
- + END