Minor updates

[koha.git] / moredetail.pl

diff --git a/moredetail.pl b/moredetail.pl
index c89db96..209be72 100755 (executable)
--- a/moredetail.pl
+++ b/moredetail.pl
@@ -30,7 +30,8 @@ use C4::Catalogue;
 use C4::Output; # contains gettemplate
 use C4::Auth;
 use C4::Interface::CGI::Output;
-  
+use C4::Date;
+
 my $query=new CGI;
 
 # FIXME  subject is not exported to the template?
@@ -46,7 +47,7 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({
        flagsrequired   => {catalogue => 1},
     });
 
-# get variables 
+# get variables
 
 my $biblionumber=$query->param('bib');
 my $title=$query->param('title');
@@ -87,8 +88,8 @@ foreach my $item (@items){
     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->{'dateaccessioned'} = format_date($item->{'dateaccessioned'});
+    $item->{'datelastseen'} = format_date($item->{'datelastseen'});
     $item->{'ordernumber'} = $ordernum;
     $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'};
 
@@ -96,7 +97,7 @@ foreach my $item (@items){
     if ($item->{'date_due'} eq 'Available'){
        $item->{'issue'}="<b>Available</b><br>";
     } else {
-       $item->{'issue'}="<b>Currently on issue to:</b> <a href=/cgi-bin/koha/moremember.pl?bornum=$item->{'borrower0'}>$item->{'card'}</a><br>";
+       $item->{'issue'}="<b>Currently on issue to:</b> <a href=/cgi-bin/koha/moremember.pl?bornum=$item->{'borrower'}>$item->{'card'}</a><br>";
     }
 }