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

(-)a/installer/data/mysql/atomicupdate/bug_30955-add-new-notice.pl (-16 lines)
Lines 1-15 Link Here
1
use Modern::Perl;
2
3
return {
4
    bug_number  => "30955",
5
    description => "Send a notice to new owner when transferring shared list",
6
    up          => sub {
7
        my ($args) = @_;
8
        my ( $dbh, $out ) = @$args{qw(dbh out)};
9
10
        $dbh->do(
11
            q{ INSERT IGNORE INTO letter (module, code, name, is_html, title, content, message_transport_type) VALUES ('lists', 'TRANSFER_OWNERSHIP', 'Transfer ownership', 1, 'A list has been transferred to you', "Dear [%- INCLUDE 'patron-title.inc' patron => new_owner -%],<br>\r\n<br>\r\nA public list, titled <em>[% shelf.shelfname | html %]</em>, has been transferred to you[% IF ( old_owner ) %] by [%- INCLUDE 'patron-title.inc' patron => old_owner%][% IF ( old_owner.email ) %] <em>([% old_owner.email | html %])</em>[% END %][% END %].<br>\r\n<br>\r\nThank you<br>\r\n<br>\r\n", 'email') }
12
        );
13
        say $out "Added notice TRANSFER_OWNERSHIP";
14
    },
15
};
16
- 

Return to bug 30955