[Koha-cvs] CVS: koha/reports borrowers_stats.pl,1.4,1.5

Henri-Damien LAURENT hdl at users.sourceforge.net
Thu Feb 24 15:13:18 CET 2005


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

Modified Files:
	borrowers_stats.pl 
Log Message:
tidying lists forms

Index: borrowers_stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports/borrowers_stats.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** borrowers_stats.pl	24 Feb 2005 11:26:39 -0000	1.4
--- borrowers_stats.pl	24 Feb 2005 14:13:16 -0000	1.5
***************
*** 103,107 ****
  	my %labels;
  	my $req;
! 	$req = $dbh->prepare( "select categorycode, description from categories");
  	$req->execute;
  	my %select_catcode;
--- 103,107 ----
  	my %labels;
  	my $req;
! 	$req = $dbh->prepare( "select categorycode, description from categories order by description");
  	$req->execute;
  	my %select_catcode;
***************
*** 120,124 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare( "select distinctrow sort1 from borrowers");
  	$req->execute;
  	my @select_sort1;
--- 120,124 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare( "select distinctrow sort1 from borrowers order by sort1");
  	$req->execute;
  	my @select_sort1;
***************
*** 137,141 ****
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare( "select distinctrow sort2 from borrowers");
  	$req->execute;
  	my @select_sort2;
--- 137,141 ----
  				-multiple => 0 );
  	
! 	$req = $dbh->prepare( "select distinctrow sort2 from borrowers order by sort2");
  	$req->execute;
  	my @select_sort2;





More information about the Koha-cvs mailing list