From b54e2e55ebabfd442b239efe342a0e1160636a96 Mon Sep 17 00:00:00 2001 From: hdl Date: Thu, 24 Feb 2005 14:13:16 +0000 Subject: [PATCH] tidying lists forms --- reports/borrowers_stats.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/reports/borrowers_stats.pl b/reports/borrowers_stats.pl index 797209c519..326a4c7d79 100755 --- a/reports/borrowers_stats.pl +++ b/reports/borrowers_stats.pl @@ -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,""; -- 2.39.2