From bcd77fb1be05ebff61b7bbcd5f47f63ed1a8c02e 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 cbf0e7a40ff..cb6c29ed636 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -792,10 +792,6 @@ sub _parseletter { $values->{'dateexpiry'} = output_pref({ dt => dt_from_string( $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; @@ -811,9 +807,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.11.0