[Koha-cvs] koha/circ circulation.pl [dev_week]

[Cindy Murdock]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Cindy Murdock <clm>     08/04/29 17:27:49

Modified files:
        circ           : circulation.pl 

Log message:
        Fix for sorting borrowers in circulation.pl.  Thanks to Chris for bug 
patch!

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/circ/circulation.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.81.2.14.2.25&r2=1.81.2.14.2.26

Patches:
Index: circulation.pl
===================================================================
RCS file: /sources/koha/koha/circ/circulation.pl,v
retrieving revision 1.81.2.14.2.25
retrieving revision 1.81.2.14.2.26
diff -u -b -r1.81.2.14.2.25 -r1.81.2.14.2.26
--- circulation.pl      1 Feb 2008 16:56:04 -0000       1.81.2.14.2.25
+++ circulation.pl      29 Apr 2008 17:27:49 -0000      1.81.2.14.2.26
@@ -355,7 +355,12 @@
 my %labels;
 my $CGIselectborrower;
 if ($borrowerslist) {
-       foreach (sort {$a->{'surname'}.$a->{'firstname'} cmp 
$b->{'surname'}.$b->{'firstname'}} @$borrowerslist){
+       foreach (
+       sort {
+       lc $a->{'surname'}.
+       lc $a->{'firstname'} cmp lc $b->{'surname'}.
+       lc $b->{'firstname'}
+       } @$borrowerslist){
                push @values,$_->{'borrowernumber'};
                $labels{$_->{'borrowernumber'}} ="$_->{'surname'}, 
$_->{'firstname'} ... ($_->{'cardnumber'} - $_->{'categorycode'}) ...  
$_->{'streetaddress'} ";
        }