[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