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 |
- |
|
|