|
Lines 60-65
if ( $op eq 'resend_notice' ) {
Link Here
|
| 60 |
} |
60 |
} |
| 61 |
} |
61 |
} |
| 62 |
|
62 |
|
|
|
63 |
if ( $op eq 'send_welcome' ) { |
| 64 |
my $emailaddr = $patron->notice_email_address; |
| 65 |
|
| 66 |
# if we manage to find a valid email address, send notice |
| 67 |
if ($emailaddr) { |
| 68 |
eval { |
| 69 |
my $letter = GetPreparedLetter( |
| 70 |
module => 'members', |
| 71 |
letter_code => 'WELCOME', |
| 72 |
branchcode => $patron->branchcode,, |
| 73 |
lang => $patron->lang || 'default', |
| 74 |
tables => { |
| 75 |
'branches' => $patron->branchcode, |
| 76 |
'borrowers' => $patron->borrowernumber, |
| 77 |
}, |
| 78 |
want_librarian => 1, |
| 79 |
) or return; |
| 80 |
|
| 81 |
my $message_id = EnqueueLetter( |
| 82 |
{ |
| 83 |
letter => $letter, |
| 84 |
borrowernumber => $patron->id, |
| 85 |
to_address => $emailaddr, |
| 86 |
message_transport_type => 'email' |
| 87 |
} |
| 88 |
); |
| 89 |
}; |
| 90 |
if ($@) { |
| 91 |
$template->param( error_alert => $@ ); |
| 92 |
} |
| 93 |
} |
| 94 |
|
| 95 |
# redirect to self to avoid form submission on refresh |
| 96 |
print $input->redirect("/cgi-bin/koha/members/notices.pl?borrowernumber=$borrowernumber"); |
| 97 |
} |
| 98 |
|
| 63 |
# Getting the messages |
99 |
# Getting the messages |
| 64 |
my $queued_messages = C4::Letters::GetQueuedMessages({borrowernumber => $borrowernumber}); |
100 |
my $queued_messages = C4::Letters::GetQueuedMessages({borrowernumber => $borrowernumber}); |
| 65 |
|
101 |
|
| 66 |
- |
|
|