|
Lines 730-735
attempts to submit the email.
Link Here
|
| 730 |
|
730 |
|
| 731 |
sub generic_confirm { |
731 |
sub generic_confirm { |
| 732 |
my ( $self, $params ) = @_; |
732 |
my ( $self, $params ) = @_; |
|
|
733 |
my $branch = Koha::Libraries->find($params->{current_branchcode}) |
| 734 |
|| die "Invalid current branchcode. Are you logged in as the database user?"; |
| 733 |
if ( !$params->{stage}|| $params->{stage} eq 'init' ) { |
735 |
if ( !$params->{stage}|| $params->{stage} eq 'init' ) { |
| 734 |
my $draft->{subject} = "ILL Request"; |
736 |
my $draft->{subject} = "ILL Request"; |
| 735 |
$draft->{body} = <<EOF; |
737 |
$draft->{body} = <<EOF; |
|
Lines 753-760
Kind Regards
Link Here
|
| 753 |
|
755 |
|
| 754 |
EOF |
756 |
EOF |
| 755 |
|
757 |
|
| 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->$_ } |
758 |
my @address = map { $branch->$_ } |
| 759 |
qw/ branchname branchaddress1 branchaddress2 branchaddress3 |
759 |
qw/ branchname branchaddress1 branchaddress2 branchaddress3 |
| 760 |
branchzip branchcity branchstate branchcountry branchphone |
760 |
branchzip branchcity branchstate branchcountry branchphone |
| 761 |
- |
|
|