View | Details | Raw Unified | Return to bug 11760
Collapse All | Expand All

(-)a/C4/Letters.pm (-1 / +2 lines)
Lines 23-28 use warnings; Link Here
23
use MIME::Lite;
23
use MIME::Lite;
24
use Mail::Sendmail;
24
use Mail::Sendmail;
25
25
26
use C4::Koha qw(GetAuthorisedValueByCode);
26
use C4::Members;
27
use C4::Members;
27
use C4::Members::Attributes qw(GetBorrowerAttributes);
28
use C4::Members::Attributes qw(GetBorrowerAttributes);
28
use C4::Branch;
29
use C4::Branch;
Lines 637-642 sub _parseletter { Link Here
637
            #Therefore adding the test on biblio. This includes biblioitems,
638
            #Therefore adding the test on biblio. This includes biblioitems,
638
            #but excludes items. Removed unneeded global and lookahead.
639
            #but excludes items. Removed unneeded global and lookahead.
639
640
641
        $val = GetAuthorisedValueByCode ('ROADTYPE', $val, 0) if $table=~/borrowers/ && $field=~/streettype/;
640
        my $replacedby   = defined ($val) ? $val : '';
642
        my $replacedby   = defined ($val) ? $val : '';
641
        ($letter->{title}  ) and do {
643
        ($letter->{title}  ) and do {
642
            $letter->{title}   =~ s/$replacetablefield/$replacedby/g;
644
            $letter->{title}   =~ s/$replacetablefield/$replacedby/g;
643
- 

Return to bug 11760