@@ -, +, @@ --- C4/Letters.pm | 20 +++++++++++++++----- C4/Serials.pm | 7 ++++++- acqui/lateorders.pl | 2 +- .../prog/en/modules/serials/claims.tt | 6 ++++-- members/memberentry.pl | 2 +- serials/claims.pl | 8 ++++++-- 6 files changed, 33 insertions(+), 12 deletions(-) --- a/C4/Letters.pm +++ a/C4/Letters.pm @@ -309,7 +309,10 @@ sub SendAlerts { Message => Encode::encode( "utf8", "" . $letter->{content} ), 'Content-Type' => 'text/plain; charset="utf8"', ); - sendmail(%mail) or carp $Mail::Sendmail::error; + unless ( sendmail(%mail) ) { + carp $Mail::Sendmail::error; + return { error => $Mail::Sendmail::error }; + } } } elsif ( $type eq 'claimacquisition' or $type eq 'claimissues' ) { @@ -351,7 +354,7 @@ sub SendAlerts { push @email, $databookseller->{contemail} if $databookseller->{contemail}; unless (@email) { warn "Bookseller $dataorders->[0]->{booksellerid} without emails"; - return { error => "no_email" }; + return { error => "no_to_address" }; } my $userenv = C4::Context->userenv; @@ -375,7 +378,11 @@ sub SendAlerts { Message => Encode::encode( "utf8", "" . $letter->{content} ), 'Content-Type' => 'text/plain; charset="utf8"', ); - sendmail(%mail) or carp $Mail::Sendmail::error; + + unless ( sendmail(%mail) ) { + carp $Mail::Sendmail::error; + return { error => $Mail::Sendmail::error }; + } logaction( "ACQUISITION", @@ -404,7 +411,7 @@ sub SendAlerts { want_librarian => 1, ) or return; - return { error => "no_email" } unless $externalid->{'emailaddr'}; + return { error => "no_to_address" } unless $externalid->{'emailaddr'}; my %mail = ( To => $externalid->{'emailaddr'}, From => $branchdetails->{'branchemail'} || C4::Context->preference("KohaAdminEmailAddress"), @@ -412,7 +419,10 @@ sub SendAlerts { Message => Encode::encode( "utf8", $letter->{'content'} ), 'Content-Type' => 'text/plain; charset="utf8"', ); - sendmail(%mail) or carp $Mail::Sendmail::error; + unless ( sendmail(%mail) ) { + carp $Mail::Sendmail::error; + return { error => $Mail::Sendmail::error }; + } } } --- a/C4/Serials.pm +++ a/C4/Serials.pm @@ -1182,7 +1182,12 @@ sub ModSerialStatus { # check if an alert must be sent... (= a letter is defined & status became "arrived" if ( $val->{letter} && $status == 2 && $oldstatus != 2 ) { require C4::Letters; - C4::Letters::SendAlerts( 'issue', $val->{subscriptionid}, $val->{letter} ); + eval { + C4::Letters::SendAlerts( 'issue', $val->{subscriptionid}, $val->{letter} ); + }; + if ( $@ ) { + #FIXME Do something... + } } } return; --- a/acqui/lateorders.pl +++ a/acqui/lateorders.pl @@ -111,7 +111,7 @@ if ($op and $op eq "send_alert"){ }; if ( $@ ) { $template->param(error_claim => $@); - } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_email" ) { + } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_to_address" ) { $template->{VARS}->{'error_claim'} = "no_email"; } else { $template->{VARS}->{'info_claim'} = 1; --- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/claims.tt @@ -157,8 +157,10 @@

Claims

[% IF error_claim %] - [% IF ( error_claim == "no_email" ) %] -
This vendor has no email
+ [% IF ( error_claim == "no_vendor_email" ) %] +
This vendor has no email.
+ [% ELSIF ( error_claim == "no_loggedin_user_email" ) %] +
No email is configured for this account.
[% ELSE %]
[% error_claim %]
[% END %] --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -367,7 +367,7 @@ if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){ }; if ( $@ ) { $template->param(error_alert => $@); - } elsif ( ref($err) eq "HASH" && defined $err->{error} and $err->{error} eq "no_email" ) { + } elsif ( ref($err) eq "HASH" && defined $err->{error} and $err->{error} eq "no_to_address" ) { $template->{VARS}->{'error_alert'} = "no_email"; } else { $template->{VARS}->{'info_alert'} = 1; --- a/serials/claims.pl +++ a/serials/claims.pl @@ -70,8 +70,12 @@ if (@serialnums) { # i.e. they have been flagged to generate claims }; if ( $@ ) { $template->param(error_claim => $@); - } elsif ( ref $err and exists $err->{error} and $err->{error} eq "no_email" ) { - $template->{VARS}->{'error_claim'} = "no_email"; + } elsif ( ref $err and exists $err->{error} ) { + if ( $err->{error} eq "no_to_address" ) { + $template->{VARS}->{'error_claim'} = "no_vendor_email"; + } elsif ( $err->{error} =~ m|Bad or missing From address| ) { + $template->{VARS}->{'error_claim'} = "no_loggedin_user_email"; + } } else { $template->{VARS}->{'info_claim'} = 1; } --