tidying lists forms

This commit is contained in:
hdl 2005-02-24 14:13:16 +00:00
parent 49ee6854f2
commit b54e2e55eb

View file

@ -102,7 +102,7 @@ if ($do_it) {
my @values;
my %labels;
my $req;
$req = $dbh->prepare( "select categorycode, description from categories");
$req = $dbh->prepare( "select categorycode, description from categories order by description");
$req->execute;
my %select_catcode;
my @select_catcode;
@ -119,7 +119,7 @@ if ($do_it) {
-size => 1,
-multiple => 0 );
$req = $dbh->prepare( "select distinctrow sort1 from borrowers");
$req = $dbh->prepare( "select distinctrow sort1 from borrowers order by sort1");
$req->execute;
my @select_sort1;
push @select_sort1,"";
@ -136,7 +136,7 @@ if ($do_it) {
-size => 1,
-multiple => 0 );
$req = $dbh->prepare( "select distinctrow sort2 from borrowers");
$req = $dbh->prepare( "select distinctrow sort2 from borrowers order by sort2");
$req->execute;
my @select_sort2;
push @select_sort2,"";