Bug 5549 : fixed datetime issue so time is shown in output for circulation.pl and...

diff --git a/C4/Members.pm b/C4/Members.pm
index 1f0ac3f..6161ac9 100644 (file)
--- 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 26e20ae..082b3d4 100755 (executable)
--- 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 bbad1de..c2f0d53 100755 (executable)
--- 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};