@@ -, +, @@
---
.../prog/en/includes/members-toolbar.inc | 4 +++
members/notices.pl | 35 ++++++++++++++++++-
2 files changed, 38 insertions(+), 1 deletion(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc
+++ a/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc
@@ -64,6 +64,10 @@
[% END %]
[% END %]
+ [% IF CAN_user_borrowers_edit_borrowers %]
+
Send welcome email
+ [% END %]
+
[% IF CAN_user_borrowers_delete_borrowers %]
Delete
[% ELSE %]
--- a/members/notices.pl
+++ a/members/notices.pl
@@ -24,7 +24,7 @@ use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
-use C4::Letters;
+use C4::Letters qw( GetPreparedLetter EnqueueLetter );
use Koha::Patrons;
use Koha::Patron::Categories;
@@ -60,6 +60,39 @@ if ( $op eq 'resend_notice' ) {
}
}
+if ( $op eq 'send_welcome' ) {
+ my $emailaddr = $patron->notice_email_address;
+
+ # if we manage to find a valid email address, send notice
+ if ($emailaddr) {
+ eval {
+ my $letter = GetPreparedLetter(
+ module => 'members',
+ letter_code => 'WELCOME',
+ branchcode => $patron->branchcode,,
+ lang => $patron->lang || 'default',
+ tables => {
+ 'branches' => $patron->branchcode,
+ 'borrowers' => $patron->borrowernumber,
+ },
+ want_librarian => 1,
+ ) or return;
+
+ my $message_id = EnqueueLetter(
+ {
+ letter => $letter,
+ borrowernumber => $patron->id,
+ to_address => $emailaddr,
+ message_transport_type => 'email'
+ }
+ );
+ };
+ }
+
+ # redirect to self to avoid form submission on refresh
+ print $input->redirect("/cgi-bin/koha/members/notices.pl?borrowernumber=$borrowernumber");
+}
+
# Getting the messages
my $queued_messages = C4::Letters::GetQueuedMessages({borrowernumber => $borrowernumber});
--