-<!-- $Id: agent.cgi,v 1.7 2002-01-30 14:18:08 ivan Exp $ -->
+<!-- mason kludge -->
<%
#Begin silliness
# <TH>Agent</TH>
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};