use Modern::Perl; return { bug_number => 29894, description => "Add 2FA (de)enabling notices", up => sub { my ($args) = @_; my ($dbh, $out) = @$args{qw(dbh out)}; $dbh->do( q{ INSERT IGNORE INTO letter (module, code, branchcode, name, is_html, title, content, message_transport_type, lang) VALUES ('members', '2FA_DISABLE', '', 'Confirmation of disabling two factor authentication', 1, 'Confirmation of disabling two factor authentication', '
Dear [% borrower.firstname %] [% borrower.surname %],
\r\nThis is to confirm that someone disabled two factor authentication on your account.
\r\nIf you did not do this, someone else may be using your account. Please contact technical support.
\r\nYour library
', 'email', 'default'), ('members', '2FA_ENABLE', '', 'Confirmation of enabling two factor authentication', 1, 'Confirmation of enabling two factor authentication', 'Dear [% borrower.firstname %] [% borrower.surname %],
\r\nThis is to confirm that someone enabled two factor authentication on your account.
\r\nIf you did not do this, someone else may be using your account. Please contact technical support.
\r\nYour library
', 'email', 'default') }); }, };