From 721237de0b78c620fb748eb186e0e128a2b9b780 Mon Sep 17 00:00:00 2001 From: Alex Buckley Date: Sun, 30 Sep 2018 01:44:28 +0000 Subject: [PATCH] Bug 8367: Removed unneccessary warns and commented code Sponsored-By: Brimbank Library, Australia --- C4/Letters.pm | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/C4/Letters.pm b/C4/Letters.pm index 070c31a..a42dbef 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -787,10 +787,6 @@ sub _parseletter { $values->{'dateexpiry'} = output_pref({ str => $values->{dateexpiry}, dateonly => 1 }); } -# if ( $table eq 'reserves' && $values->{'waitingdate'}) { -# $values->{'waitingdate'} = output_pref({ dt => dt_from_string( $values->{'waitingdate'} ), dateonly => 1 }); -# } - if ($letter->{content} && $letter->{content} =~ /<>/) { my $todaysdate = output_pref( DateTime->now() ); $letter->{content} =~ s/<>/$todaysdate/go; @@ -806,9 +802,7 @@ sub _parseletter { my $av = Koha::AuthorisedValues->search({ category => 'ROADTYPE', authorised_value => $val }); $val = $av->count ? $av->next->lib : ''; } -warn $table; -warn $field; -warn $val; + # Dates replacement my $replacedby = defined ($val) ? $val : ''; if ( $replacedby -- 2.1.4