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