From: khoff <khoff>
Date: Mon, 12 Jan 2004 20:40:28 +0000 (+0000)
Subject: Lists are just better sorted.
X-Git-Tag: freeside_1_5_0pre4^2~76
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=bceb76982c9a2516122d7996f2a4c2a30cd79a45;p=freeside.git

Lists are just better sorted.
---

diff --git a/httemplate/edit/part_virtual_field.cgi b/httemplate/edit/part_virtual_field.cgi
index 8bc84387f..fb10321e8 100644
--- a/httemplate/edit/part_virtual_field.cgi
+++ b/httemplate/edit/part_virtual_field.cgi
@@ -47,7 +47,7 @@ Field #<B><%=$vfieldpart or "(NEW)"%></B><BR><BR>
     <TD><% if ($action eq 'Add') { %>
       <SELECT SIZE=1 NAME="dbtable"><%
         my $dbdef = dbdef;  # ick
-        foreach my $dbtable ($dbdef->tables) {
+        foreach my $dbtable (sort { $a cmp $b } $dbdef->tables) {
           if ($dbtable !~ /^h_/
           and $dbdef->table($dbtable)->primary_key) { %>
             <OPTION VALUE="<%=$dbtable%>"><%=$dbtable%></OPTION><%