|
Lines 30-36
use C4::Context;
Link Here
|
| 30 |
use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers ); |
30 |
use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers ); |
| 31 |
use C4::Members qw( checkcardnumber get_cardnumber_length ); |
31 |
use C4::Members qw( checkcardnumber get_cardnumber_length ); |
| 32 |
use C4::Koha qw( GetAuthorisedValues ); |
32 |
use C4::Koha qw( GetAuthorisedValues ); |
| 33 |
use C4::Letters qw( SendAlerts ); |
33 |
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages ); |
| 34 |
use C4::Form::MessagingPreferences; |
34 |
use C4::Form::MessagingPreferences; |
| 35 |
use Koha::AuthUtils; |
35 |
use Koha::AuthUtils; |
| 36 |
use Koha::AuthorisedValues; |
36 |
use Koha::AuthorisedValues; |
|
Lines 478-484
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
| 478 |
want_librarian => 1, |
478 |
want_librarian => 1, |
| 479 |
) or return; |
479 |
) or return; |
| 480 |
|
480 |
|
| 481 |
my $success = EnqueueLetter( |
481 |
my $message_id = EnqueueLetter( |
| 482 |
{ |
482 |
{ |
| 483 |
letter => $letter, |
483 |
letter => $letter, |
| 484 |
borrowernumber => $patron->id, |
484 |
borrowernumber => $patron->id, |
|
Lines 486-491
if ((!$nok) and $nodouble and ($op eq 'insert' or $op eq 'save')){
Link Here
|
| 486 |
message_transport_type => 'email' |
486 |
message_transport_type => 'email' |
| 487 |
} |
487 |
} |
| 488 |
); |
488 |
); |
|
|
489 |
SendQueuedMessages({ message_id => $message_id }); |
| 489 |
}; |
490 |
}; |
| 490 |
if ($@) { |
491 |
if ($@) { |
| 491 |
$template->param( error_alert => $@ ); |
492 |
$template->param( error_alert => $@ ); |
| 492 |
- |
|
|