[Koha-cvs] CVS: koha/circ circulation.pl,1.40,1.41
Chris Cormack
rangi at users.sourceforge.net
Sat Sep 14 02:57:29 CEST 2002
Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv3726/circ
Modified Files:
circulation.pl
Log Message:
fixes for the ordering of the issues table in issues, and also on the
printed slip
Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -r1.40 -r1.41
*** circulation.pl 21 Aug 2002 01:40:47 -0000 1.40
--- circulation.pl 14 Sep 2002 00:57:27 -0000 1.41
***************
*** 423,427 ****
EOF
}
! foreach my $book (sort {$a->{'due_date'} <=> $b->{'due_date'}} @previousissues){
my $dd = $book->{'date_due'};
my $datedue = $book->{'date_due'};
--- 423,427 ----
EOF
}
! foreach my $book (sort {$a->{'date_due'} cmp $b->{'date_due'}} @previousissues){
my $dd = $book->{'date_due'};
my $datedue = $book->{'date_due'};
***************
*** 652,658 ****
my $i=0;
my @issues;
! foreach (sort keys %$borrowerissues) {
$issues[$i]=$borrowerissues->{$_};
my $dd=$issues[$i]->{'date_due'};
#convert to nz style dates
#this should be set with some kinda config variable
--- 652,659 ----
my $i=0;
my @issues;
! foreach (sort {$a <=> $b} keys %$borrowerissues) {
$issues[$i]=$borrowerissues->{$_};
my $dd=$issues[$i]->{'date_due'};
+ # warn $_,$dd;
#convert to nz style dates
#this should be set with some kinda config variable
***************
*** 661,667 ****
$i++;
}
! foreach (sort keys %$borroweriss2) {
$issues[$i]=$borroweriss2->{$_};
my $dd=$issues[$i]->{'date_due'};
#convert to nz style dates
#this should be set with some kinda config variable
--- 662,669 ----
$i++;
}
! foreach (sort {$a <=> $b} keys %$borroweriss2) {
$issues[$i]=$borroweriss2->{$_};
my $dd=$issues[$i]->{'date_due'};
+ # warn $_,$dd;
#convert to nz style dates
#this should be set with some kinda config variable
More information about the Koha-cvs
mailing list