From 49ee6854f2a8a0e5c05d07e1c4dfd401b6a14ad0 Mon Sep 17 00:00:00 2001
From: hdl <hdl>
Date: Thu, 24 Feb 2005 14:10:44 +0000
Subject: [PATCH] tidying lists

---
 reports/catalogue_stats.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/reports/catalogue_stats.pl b/reports/catalogue_stats.pl
index 02e56c6341..aacc7cef66 100755
--- a/reports/catalogue_stats.pl
+++ b/reports/catalogue_stats.pl
@@ -103,7 +103,7 @@ if ($do_it) {
 	my @values;
 	my %labels;
 	my $req;
-	$req = $dbh->prepare("select distinctrow left(dewey,3) from biblioitems");
+	$req = $dbh->prepare("select distinctrow left(dewey,3) from biblioitems order by dewey");
 	$req->execute;
 	my $hasdewey=1;
 	my @select;
@@ -118,7 +118,7 @@ if ($do_it) {
 				-size     => 1,
 				-multiple => 0 );
 	
-	$req = $dbh->prepare( "select distinctrow left(lccn,3) from biblioitems");
+	$req = $dbh->prepare( "select distinctrow left(lccn,3) from biblioitems order by lccn");
 	$req->execute;
 	undef @select;
 	push @select,"";
@@ -135,7 +135,7 @@ if ($do_it) {
 				-size     => 1,
 				-multiple => 0 );
 	
-	$req = $dbh->prepare("select distinctrow left(itemcallnumber,5) from items");
+	$req = $dbh->prepare("select distinctrow left(itemcallnumber,5) from items order by itemcallnumber");
 	$req->execute;
 	undef @select;
 	push @select,"";
@@ -163,7 +163,7 @@ if ($do_it) {
 				-size     => 1,
 				-multiple => 0 );
 	
-	$req = $dbh->prepare("select distinctrow itemtype from biblioitems");
+	$req = $dbh->prepare("select distinctrow itemtype from biblioitems order by itemtype");
 	$req->execute;
 	undef @select;
 	push @select,"";
@@ -176,7 +176,7 @@ if ($do_it) {
 				-size     => 1,
 				-multiple => 0 );
 	
-	$req = $dbh->prepare("select distinctrow publishercode from biblioitems");
+	$req = $dbh->prepare("select distinctrow publishercode from biblioitems order by publishercode");
 	$req->execute;
 	undef @select;
 	push @select,"";
@@ -205,7 +205,7 @@ if ($do_it) {
 				-size     => 1,
 				-multiple => 0 );
 	
-	$req = $dbh->prepare("select distinctrow location from items");
+	$req = $dbh->prepare("select distinctrow location from items order by location");
 	$req->execute;
 	undef @select;
 	push @select,"";
-- 
2.20.1