From 49c35ba38eee7bf4880f9975c9b4a5bed5227cc4 Mon Sep 17 00:00:00 2001
From: Elliott Davis <tdavis@uttyler.edu>
Date: Mon, 19 Mar 2012 15:24:51 -0500
Subject: [PATCH] Bug 5549 : fixed datetime issue so time is shown in output
 for circulation.pl and moremember.pl

---
 C4/Members.pm         | 2 +-
 circ/circulation.pl   | 2 +-
 members/moremember.pl | 1 -
 3 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/C4/Members.pm b/C4/Members.pm
index 1f0ac3f995..6161ac9f30 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1039,7 +1039,7 @@ sub GetPendingIssues {
     my $today = DateTime->now( time_zone => $tz);
     foreach (@{$data}) {
         if ($_->{issuedate}) {
-            $_->{issuedate} = dt_from_string($_->{issuedate}. 'sql');
+            $_->{issuedate} = dt_from_string($_->{issuedate}, 'sql');
         }
         $_->{date_due} or next;
         $_->{date_due} = DateTime::Format::DateParse->parse_datetime($_->{date_due}, $tz->name());
diff --git a/circ/circulation.pl b/circ/circulation.pl
index 26e20ae16b..082b3d4d0e 100755
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -449,7 +449,7 @@ sub build_issue_data {
         $it->{'itemtype'} = $itemtypeinfo->{'description'};
         $it->{'itemtype_image'} = $itemtypeinfo->{'imageurl'};
         $it->{'dd'} = output_pref($it->{'date_due'});
-        $it->{'displaydate'} = format_date($it->{'issuedate'});
+        $it->{'displaydate'} = output_pref($it->{'issuedate'});
         #$it->{'od'} = ( $it->{'date_due'} lt $todaysdate ) ? 1 : 0 ;
         $it->{'od'} = $it->{'overdue'};
         ($it->{'author'} eq '') and $it->{'author'} = ' ';
diff --git a/members/moremember.pl b/members/moremember.pl
index bbad1de60c..c2f0d5305c 100755
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -431,7 +431,6 @@ sub build_issue_data {
            $issuedate = $issue->{issuedate}->clone();
         }
 
-        #wtf $issue->{'date_due'}  = format_date($issue->[$i]->{issuedate});
         $issue->{date_due}  = output_pref( $issue->{date_due} );
         $issue->{issuedate} = output_pref( $issue->{issuedate} ) if defined $issue->{issuedate};
         my $biblionumber = $issue->{biblionumber};
-- 
2.11.0