Lines 24-30
use C4::Auth qw( get_template_and_user );
Link Here
|
24 |
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); |
24 |
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers ); |
25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
26 |
use C4::Members; |
26 |
use C4::Members; |
27 |
use C4::Letters; |
27 |
use C4::Letters qw( GetPreparedLetter EnqueueLetter ); |
28 |
use Koha::Patrons; |
28 |
use Koha::Patrons; |
29 |
use Koha::Patron::Categories; |
29 |
use Koha::Patron::Categories; |
30 |
|
30 |
|
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 |
} |
91 |
|
92 |
# redirect to self to avoid form submission on refresh |
93 |
print $input->redirect("/cgi-bin/koha/members/notices.pl?borrowernumber=$borrowernumber"); |
94 |
} |
95 |
|
63 |
# Getting the messages |
96 |
# Getting the messages |
64 |
my $queued_messages = C4::Letters::GetQueuedMessages({borrowernumber => $borrowernumber}); |
97 |
my $queued_messages = C4::Letters::GetQueuedMessages({borrowernumber => $borrowernumber}); |
65 |
|
98 |
|
66 |
- |
|
|