[Koha-cvs] CVS: koha/reports catalogue_stats.pl,1.2,1.3

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/reports
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31033/reports

Modified Files:
	catalogue_stats.pl 
Log Message:
tidying lists

Index: catalogue_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/catalogue_stats.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** catalogue_stats.pl	24 Feb 2005 11:27:32 -0000	1.2
--- catalogue_stats.pl	24 Feb 2005 14:10:44 -0000	1.3
***************
*** 104,108 ****
  	my %labels;
  	my $req;
! 	$req = $dbh->prepare("select distinctrow left(dewey,3) from biblioitems");
  	$req->execute;
  	my $hasdewey=1;
--- 104,108 ----
  	my %labels;
  	my $req;
! 	$req = $dbh->prepare("select distinctrow left(dewey,3) from biblioitems order by dewey");
  	$req->execute;
  	my $hasdewey=1;
***************
*** 119,123 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare( "select distinctrow left(lccn,3) from biblioitems");
  	$req->execute;
  	undef @select;
--- 119,123 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare( "select distinctrow left(lccn,3) from biblioitems order by lccn");
  	$req->execute;
  	undef @select;
***************
*** 136,140 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow left(itemcallnumber,5) from items");
  	$req->execute;
  	undef @select;
--- 136,140 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow left(itemcallnumber,5) from items order by itemcallnumber");
  	$req->execute;
  	undef @select;
***************
*** 164,168 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow itemtype from biblioitems");
  	$req->execute;
  	undef @select;
--- 164,168 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow itemtype from biblioitems order by itemtype");
  	$req->execute;
  	undef @select;
***************
*** 177,181 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow publishercode from biblioitems");
  	$req->execute;
  	undef @select;
--- 177,181 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow publishercode from biblioitems order by publishercode");
  	$req->execute;
  	undef @select;
***************
*** 206,210 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow location from items");
  	$req->execute;
  	undef @select;
--- 206,210 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare("select distinctrow location from items order by location");
  	$req->execute;
  	undef @select;