From 4f86b5e7653e62e9330a2748b989161ed4935302 Mon Sep 17 00:00:00 2001 From: Sophie Meynieux Date: Fri, 14 Feb 2014 12:10:32 +0100 Subject: [PATCH] MT11760 : In notices, code of road type is used instead of description Test plan : - Define a notice containing <> - Trigger an event that generate this notice Without patch <> is replaced by ROADTYPE authorised value code. With the patch it is resplaced by its description This patch needs bug 7372 to be applied --- C4/Letters.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/C4/Letters.pm b/C4/Letters.pm index 2595369..1dd522b 100644 --- a/C4/Letters.pm +++ b/C4/Letters.pm @@ -23,6 +23,7 @@ use warnings; use MIME::Lite; use Mail::Sendmail; +use C4::Koha qw(GetAuthorisedValueByCode); use C4::Members; use C4::Members::Attributes qw(GetBorrowerAttributes); use C4::Branch; @@ -637,6 +638,7 @@ sub _parseletter { #Therefore adding the test on biblio. This includes biblioitems, #but excludes items. Removed unneeded global and lookahead. + $val = GetAuthorisedValueByCode ('ROADTYPE', $val, 0) if $table=~/borrowers/ && $field=~/streettype/; my $replacedby = defined ($val) ? $val : ''; ($letter->{title} ) and do { $letter->{title} =~ s/$replacetablefield/$replacedby/g; -- 1.7.10.4