5 description => "A password change notification feature",
8 my ($dbh, $out) = @$args{qw(dbh out)};
10 # Add PASSWORD_CHANGE notice
12 INSERT IGNORE INTO letter (module, code, name, title, content, message_transport_type) VALUES ('members', 'PASSWORD_CHANGE', 'Notification of password change', 'Library account password change notification',
13 "Dear [% borrower.firstname %] [% borrower.surname %],\r\n\r\nWe want to notify you that your password has been changed. If you did not change it yourself (or requested that change), please contact library staff.\r\n\r\nYour library.", 'email');
16 say $out "Added new letter 'PASSWORD_CHANGE' (email)";
18 # Add systempreference
20 INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type)
21 VALUES ('NotifyPasswordChange','0','','Notify patrons whenever their password is changed.','YesNo')
24 say $out "Added new system preference 'NotifyPasswordChange'";