use Modern::Perl;
return {
bug_number => "30611",
description => "Add STAFF_PASSWORD_RESET notice",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
# Add STAFF_PASSWORD_RESET notice
$dbh->do(q{
INSERT IGNORE INTO letter (module, code, name, is_html, title, content, message_transport_type) VALUES ('members', 'STAFF_PASSWORD_RESET', 'Online password reset', 1, "Koha password reset", "\r\nA librarian has reset the password for the account <>.\r\n
\r\n\r\nPlease create your new password using the following link:\r\n
>\"><>\r\n
\r\nThis link will be valid for 5 days from this email's reception, then you must reapply if you do not change your password.
\r\nThank you.
\r\n", 'email');
});
},
};