[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