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 (-1 / +36 lines)
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
- 

Return to bug 9097