tidying lists forms

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,"";