Lines 750-757
EOF
Link Here
|
750 |
Please let us know if you are able to supply this to us. |
750 |
Please let us know if you are able to supply this to us. |
751 |
|
751 |
|
752 |
Kind Regards |
752 |
Kind Regards |
|
|
753 |
|
753 |
EOF |
754 |
EOF |
754 |
|
755 |
|
|
|
756 |
my $branch = Koha::Libraries->find($params->{current_branchcode}) |
757 |
|| die "Invalid current branchcode. Are you logged in as the database user?"; |
758 |
my @address = map { $branch->$_ } |
759 |
qw/ branchname branchaddress1 branchaddress2 branchaddress3 |
760 |
branchzip branchcity branchstate branchcountry branchphone |
761 |
branchemail /; |
762 |
my $address = ""; |
763 |
foreach my $line ( @address ) { |
764 |
$address .= $line . "\n" if $line; |
765 |
} |
766 |
|
767 |
$draft->{body} .= $address; |
768 |
|
755 |
my $partners = Koha::Patrons->search({ |
769 |
my $partners = Koha::Patrons->search({ |
756 |
categorycode => $self->_config->partner_code |
770 |
categorycode => $self->_config->partner_code |
757 |
}); |
771 |
}); |
Lines 774-781
EOF
Link Here
|
774 |
$to =~ s/\x00/; /; # Replace others with '; ' |
788 |
$to =~ s/\x00/; /; # Replace others with '; ' |
775 |
die "No target email addresses found. Either select at least one partner or check your ILL partner library records." if ( !$to ); |
789 |
die "No target email addresses found. Either select at least one partner or check your ILL partner library records." if ( !$to ); |
776 |
# Create the from, replyto and sender headers |
790 |
# Create the from, replyto and sender headers |
777 |
$branch = Koha::Libraries->find($params->{current_branchcode}) |
|
|
778 |
|| die "Invalid current branchcode. Are you logged in as the database user?"; |
779 |
my $from = $branch->branchemail; |
791 |
my $from = $branch->branchemail; |
780 |
my $replyto = $branch->branchreplyto || $from; |
792 |
my $replyto = $branch->branchreplyto || $from; |
781 |
die "Your branch has no email address. Please set it." |
793 |
die "Your branch has no email address. Please set it." |
782 |
- |
|
|