Bugfix for 1429

Signed-off-by: Chris Cormack <crc@liblime.com>

diff --git a/C4/Print.pm b/C4/Print.pm
index 957c65b..e7c7b32 100644 (file)
--- a/C4/Print.pm
+++ b/C4/Print.pm
@@ -24,6 +24,8 @@ require Exporter;
 
 use C4::Context;
 use C4::Circulation;
+use C4::Members;
+use C4::Date;
 
 use vars qw($VERSION @ISA @EXPORT);
 
@@ -186,31 +188,11 @@ EOF
 sub printslip {
     my ( $borrowernumber ) = @_;
     my ( $borrower, $flags ) = GetMemberDetails( $borrowernumber);
-    my ($borrowerissues) = GetBorrowerIssues( $borrower );
-    my ($borroweriss2) = GetBorrowerIssues( $borrower );
-    my $i = 0;
-    my @issues;
-
-    foreach ( sort { $a <=> $b } 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
-        my @tempdate = split( /-/, $dd );
-        $issues[$i]->{'date_due'} = "$tempdate[2]/$tempdate[1]/$tempdate[0]";
-        $i++;
-    }
-    foreach ( sort { $a <=> $b } 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
-        my @tempdate = split( /-/, $dd );
-        $issues[$i]->{'date_due'} = "$tempdate[2]/$tempdate[1]/$tempdate[0]";
-        $i++;
-    }
+       my ($countissues,$issueslist) = GetPendingIssues($borrowernumber); 
+       foreach my $it (@$issueslist){
+               $it->{'date_due'}=format_date($it->{'date_due'});
+    }          
+    my @issues = sort { $b->{'timestamp'} <=> $a->{'timestamp'} } @$issueslist;
     remoteprint(\@issues, $borrower );
 }