From 49c35ba38eee7bf4880f9975c9b4a5bed5227cc4 Mon Sep 17 00:00:00 2001 From: Elliott Davis 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.39.5