From f38abb144955686f880a528ed6fe4c9c5453517b Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 24 Mar 2002 20:01:31 +0000
Subject: [PATCH] UI improvements for agents

---
 httemplate/browse/agent.cgi    | 3 ++-
 httemplate/edit/cust_main.cgi  | 3 ++-
 httemplate/search/svc_acct.cgi | 2 +-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/httemplate/browse/agent.cgi b/httemplate/browse/agent.cgi
index ebec068fa..c74ef2b63 100755
--- a/httemplate/browse/agent.cgi
+++ b/httemplate/browse/agent.cgi
@@ -32,7 +32,8 @@ END
 #        <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};
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 39b6ca594..33e72d864 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -85,7 +85,8 @@ if ( scalar(@agents) == 1 ) {
   } @agents) {
       print '<OPTION VALUE="', $agent->agentnum, '"',
       " SELECTED"x($agent->agentnum==$agentnum),
-      ">", $agent->agentnum,": ", $agent->agent;
+      ">". $agent->agent;
+      #">", $agent->agentnum,": ", $agent->agent;
   }
   print "</SELECT>";
 }
diff --git a/httemplate/search/svc_acct.cgi b/httemplate/search/svc_acct.cgi
index 2666ef621..daf025a38 100755
--- a/httemplate/search/svc_acct.cgi
+++ b/httemplate/search/svc_acct.cgi
@@ -141,7 +141,7 @@ END
         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>";
-- 
2.11.0