X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fbrowse%2Fagent.cgi;h=cff111ca42b1aa46f4216278b1a59c52b8d906da;hp=067a06b30e2326e0bac867ebf23fcd851af18159;hb=0354f39ed0e74fd2eae1d9da13906625b4f56591;hpb=1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39 diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi index 067a06b30..cff111ca4 100755 --- a/httemplate/browse/agent.cgi +++ b/httemplate/browse/agent.cgi @@ -1,6 +1,5 @@ - + <% - #Begin silliness # #use FS::UI::CGI; @@ -11,28 +10,31 @@ #exit; #__END__ #End silliness +%> -print header('Agent Listing', menubar( +<%= header('Agent Listing', menubar( 'Main Menu' => $p, 'Agent Types' => $p. 'browse/agent_type.cgi', # 'Add new agent' => '../edit/agent.cgi' -)), < Agents are resellers of your service. Agents may be limited to a subset of your full offerings (via their type).

-END -print &table(), < - Agent - Type - Freq. (unimp.) - Prog. (unimp.) - -END +Add a new agent

+ +<%= table() %> + + Agent + Type + Freq. + Prog. + +<% # Agent # # Agent foreach my $agent ( sort { - $a->getfield('agentnum') <=> $b->getfield('agentnum') + #$a->getfield('agentnum') <=> $b->getfield('agentnum') + $a->getfield('agent') cmp $b->getfield('agent') } qsearch('agent',{}) ) { my($hashref)=$agent->hashref; my($typenum)=$hashref->{typenum}; @@ -53,12 +55,7 @@ END } print < - Add a new agent - Add a new agent type - - END