};
if ( $@ ) {
$redirect_url .= '&email_error='.$@;
- } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_email" ) {
- $redirect_url .= '&email_error=no_email';
- } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_basketno" ) {
- $redirect_url .= '&email_error=no_basketno';
+ } elsif ( ref $err and exists $err->{error} ) {
+ $redirect_url .= '&email_error=' . $err->{error};
} else {
$redirect_url .= '&email_ok=1';
}
This vendor has no contact selected for sending orders to or is missing an e-mail address.
[% ELSIF ( email_error == "no_basketno" ) %]
No basket given.
+ [% ELSIF ( email_error == "no_letter" ) %]
+ There is no notice template with code ACQORDER defined.
[% ELSE %]
ERROR! - [% email_error %]
[% END %]
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
-use Test::More tests => 78;
+use Test::More tests => 80;
use Test::MockModule;
use Test::Warn;
is($err, 1, "Successfully sent order.");
is($mail{'To'}, 'testemail@mydomain.com', "mailto correct in sent order");
is($mail{'Message'}, 'my vendor|John Smith|Ordernumber ' . $ordernumber . ' (Silence in the library) (1 ordered)', 'Order notice text constructed successfully');
+
+$dbh->do(q{DELETE FROM letter WHERE code = 'TESTACQORDER';});
+warning_like {
+ $err = SendAlerts( 'orderacquisition', $basketno , 'TESTACQORDER' ) }
+ qr/No orderacquisition TESTACQORDER letter transported by email/,
+ "GetPreparedLetter warns about missing notice template";
+is($err->{'error'}, 'no_letter', "No TESTACQORDER letter was defined.");
}