[Koha-cvs] CVS: koha/circ circulation.pl,1.40,1.41

[Chris Cormack]

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