View | Details | Raw Unified | Return to bug 9097
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/members-toolbar.inc (+4 lines)
Lines 64-69 Link Here
64
                    [% END %]
64
                    [% END %]
65
                [% END %]
65
                [% END %]
66
66
67
                [% IF CAN_user_borrowers_edit_borrowers %]
68
                    <li><a id="sendwelcome" href="/cgi-bin/koha/members/notices.pl?borrowernumber=[% patron.borrowernumber | uri %]&op=send_welcome">Send welcome email</a></li>
69
                [% END %]
70
67
                [% IF CAN_user_borrowers_delete_borrowers %]
71
                [% IF CAN_user_borrowers_delete_borrowers %]
68
                    <li><a id="deletepatron" href="#">Delete</a></li>
72
                    <li><a id="deletepatron" href="#">Delete</a></li>
69
                [% ELSE %]
73
                [% ELSE %]
(-)a/members/notices.pl (-2 / +34 lines)
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
- 

Return to bug 9097