Using destination parameter to return users to circulation if they clicked the 'edit...

[koha.git] / moredetail.pl

diff --git a/moredetail.pl b/moredetail.pl
index 3eb64b9..ab48f13 100755 (executable)
--- a/moredetail.pl
+++ b/moredetail.pl
@@ -26,10 +26,11 @@ require Exporter;
 use C4::Koha;
 use CGI;
 use C4::Search;
-use C4::Catalogue;
+use C4::Acquisition;
 use C4::Output; # contains gettemplate
 use C4::Auth;
 use C4::Interface::CGI::Output;
+use C4::Date;
 
 my $query=new CGI;
 
@@ -83,20 +84,19 @@ foreach my $item (@items){
     $item->{'withdrawn'}=~ s/0/No/;
     $item->{'withdrawn'}=~ s/1/Yes/;
     $item->{'replacementprice'}+=0.00;
-    my $year=substr($item->{'timestamp0'},0,4);
-    my $mon=substr($item->{'timestamp0'},4,2);
-    my $day=substr($item->{'timestamp0'},6,2);
-    $item->{'timestamp0'}="$day/$mon/$year";
-    $item->{'dateaccessioned'} = slashifyDate($item->{'dateaccessioned'});
-    $item->{'datelastseen'} = slashifyDate($item->{'datelastseen'});
+    $item->{'datelastborrowed'}= format_date($item->{'datelastborrowed'});
+    $item->{'dateaccessioned'} = format_date($item->{'dateaccessioned'});
+    $item->{'datelastseen'} = format_date($item->{'datelastseen'});
     $item->{'ordernumber'} = $ordernum;
     $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'};
 
-    # FIXME untranslatable strings
     if ($item->{'date_due'} eq 'Available'){
-       $item->{'issue'}="<b>Available</b><br>";
+               $item->{'issue'}= 0;
     } else {
-       $item->{'issue'}="<b>Currently on issue to:</b> <a href=/cgi-bin/koha/moremember.pl?bornum=$item->{'borrower0'}>$item->{'card'}</a><br>";
+               $item->{'date_due'} = format_date($item->{'date_due'});
+               $item->{'issue'}= 1;
+               $item->{'borrowernumber'} = $item->{'borrower'};
+               $item->{'cardnumber'} = $item->{'card'};
     }
 }