From cba4e7e7bc579ce62c338873a0207cc68b482893 Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Thu, 29 Nov 2007 17:43:13 -0600 Subject: [PATCH] moremember.pl - Dates.pm "syspref" made explicit. Scripts should not call C4::Context->preference('dateformat'). Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- members/moremember.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/members/moremember.pl b/members/moremember.pl index 9eb3ffaad0..34f55bb8d5 100755 --- a/members/moremember.pl +++ b/members/moremember.pl @@ -94,7 +94,7 @@ my $category_type = $borrowercategory->{'category_type'}; $template->param( $data->{'categorycode'} => 1 ); foreach (qw(dateenrolled dateexpiry dateofbirth)) { - my $tempdate = C4::Dates->new($data->{$_},'iso')->output + my $tempdate = C4::Dates->new($data->{$_},'iso')->output('syspref') or warn ("Invalid $_ = " . $data->{$_}); $data->{$_} = $tempdate || ''; } @@ -188,7 +188,7 @@ my $totalprice = 0; my $toggle = 0; for ( my $i = 0 ; $i < $count ; $i++ ) { my $datedue = $issue->[$i]{'date_due'}; - $issue->[$i]{'date_due'} = C4::Dates->new($issue->[$i]{'date_due'},'iso')->output(C4::Context->preference('dateformat')); + $issue->[$i]{'date_due'} = C4::Dates->new($issue->[$i]{'date_due'},'iso')->output('syspref'); my %row = %{ $issue->[$i] }; $totalprice += $issue->[$i]{'replacementprice'}; $row{'replacementprice'} = $issue->[$i]{'replacementprice'}; @@ -233,7 +233,7 @@ if ($borrowernumber) { foreach (qw(waiting transfered nottransfered)) { $getreserv{$_} = 0; } - $getreserv{reservedate} = C4::Dates->new($num_res->{'reservedate'},'iso')->output(C4::Context->preference('dateformat')); + $getreserv{reservedate} = C4::Dates->new($num_res->{'reservedate'},'iso')->output('syspref'); foreach (qw(biblionumber title author barcodereserv itemcallnumber )) { $getreserv{$_} = $getiteminfo->{$_}; } @@ -249,7 +249,7 @@ if ($borrowernumber) { if ($transfertwhen) { $getreserv{color} = 'transfered'; $getreserv{transfered} = 1; - $getreserv{datesent} = C4::Dates->new($transfertwhen, 'iso')->output() or die "Cannot get new($transfertwhen, 'iso') from C4::Dates"; + $getreserv{datesent} = C4::Dates->new($transfertwhen, 'iso')->output('syspref') or die "Cannot get new($transfertwhen, 'iso') from C4::Dates"; $getreserv{frombranch} = GetBranchName($transfertfrom); } -- 2.20.1