# <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};
} @agents) {
print '<OPTION VALUE="', $agent->agentnum, '"',
" SELECTED"x($agent->agentnum==$agentnum),
- ">", $agent->agentnum,": ", $agent->agent;
+ ">". $agent->agent;
+ #">", $agent->agentnum,": ", $agent->agent;
}
print "</SELECT>";
}
my $conf = new FS::Conf;
unless ( $mydomain = $conf->config('domain') ) {
die "No legacy domain config file and no svc_domain.svcnum record ".
- "for svc_acct.domsvc: ". $cust_svc->domsvc;
+ "for svc_acct.domsvc: ". $svc_acct->domsvc;
}
}
$domain = "<i>$mydomain</i><FONT COLOR=\"#FF0000\">*</FONT>";