use Modern::Perl; return { bug_number => "3150", description => "Add LIST and CART 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 ('catalogue','LIST','','Send list',1,'Your list: [% listname | html %]',"[%- USE Branches -%] [%- USE AuthorisedValues -%] [%- USE Koha -%] [%- PROCESS 'html_helpers.inc' -%] Hi,

[% borrower.firstname | html %] [% borrower.surname | html %] sent you a list from our online catalog called: [% listname | html %].
Please note that the attached file is a MARC bibliographic records file which can be imported into personal bibliographic software like EndNote, Reference Manager or ProCite.
[% IF ( comment ) %]

[% comment | html | html_line_break %]

[% END %]
    [% FOREACH biblio IN biblios %]
  1. [% biblio.title | html %] [% IF ( biblio.subtitle ) %][% FOREACH subtitle IN biblio.subtitle.split(' | ') %][% subtitle | html %][% END %][% END %] [% biblio.part_number | html %] [% biblio.part_name | html %]
    [% IF ( biblio.author || biblio.get_marc_contributors.size ) %]Author(s): [% IF ( biblio.author ) %][% biblio.author | html %][% END %][% IF ( biblio.get_marc_contributors ) %][% IF ( biblio.author ) %]; [% END %][% FOREACH author IN biblio.get_marc_contributors %][% FOREACH subfield IN author.MARCAUTHOR_SUBFIELDS_LOOP %][% subfield.separator | html %][% subfield.value | html %][% END %][% UNLESS ( loop.last ) %];[% END %][% END %][% END %]
    [% END %] [% SET biblioitem = biblio.biblioitem %][% IF ( biblioitem.isbn ) %]ISBN: [% FOREACH isbn IN biblioitem.isbn %][% isbn | html %][% UNLESS ( loop.last ) %]; [% END %][% END %]
    [% END %] [% IF ( biblioitem.publishercode ) %]Published by: [% biblioitem.publishercode | html %][% IF ( biblioitem.publicationyear ) %] in [% biblioitem.publicationyear | html %][% END %][% IF ( biblioitem.pages ) %], [% biblioitem.pages | html %][% END %]
    [% END %] [% IF ( biblio.seriestitle ) %]Collection: [% biblio.seriestitle | html %]
    [% END %] [% IF ( biblio.copyrightdate ) %]Copyright year: [% biblio.copyrightdate | html %]
    [% END %] [% IF ( biblio.notes ) %]Notes: [% biblio.notes | html %]
    [% END %] [% IF ( biblio.unititle ) %]Unified title: [% biblio.unititle | html %]
    [% END %] [% IF ( biblio.serial ) %]Serial: [% biblio.serial | html %]
    [% END %] [% IF ( biblioitem.lccn ) %]LCCN: [% biblioitem.lccn | html %]
    [% END %] [% IF ( biblio.get_marc_host_only || biblio.get_marc_hostinfo_only ) %]In: [% IF biblio.get_marc_host_only.biblionumber %][% INCLUDE 'biblio-title.inc' biblio=biblio.get_marc_host_only %] [% biblio.get_marc_relatedparts_only %][% ELSE %][% biblio.get_marc_hostinfo_only %][% END %]
    [% END %] [% IF ( biblioitem.url ) %]URL: [% biblioitem.url | html %]
    [% END %] View in online catalog [% IF ( biblio.items.count > 0 ) %]
    Items: [% END %]
  2. [% END %]
", 'email','default' ), ('catalogue','CART','','Send cart',1,'Your cart',"[%- USE Branches -%] [%- USE AuthorisedValues -%] [%- USE Koha -%] [%- PROCESS 'html_helpers.inc' -%] Hi,

[% borrower.firstname | html %] [% borrower.surname | html %] sent you a cart from our online catalog.
Please note that the attached file is a MARC bibliographic records file which can be imported into personal bibliographic software like EndNote, Reference Manager or ProCite.
[% IF ( comment ) %]

[% comment | html | html_line_break %]

[% END %]
    [% FOREACH biblio IN biblios %]
  1. [% biblio.title | html %] [% IF ( biblio.subtitle ) %][% FOREACH subtitle IN biblio.subtitle.split(' | ') %][% subtitle | html %][% END %][% END %] [% biblio.part_number | html %] [% biblio.part_name | html %]
    [% IF ( biblio.author || biblio.get_marc_contributors.size ) %]Author(s): [% IF ( biblio.author ) %][% biblio.author | html %][% END %][% IF ( biblio.get_marc_contributors ) %][% IF ( biblio.author ) %]; [% END %][% FOREACH author IN biblio.get_marc_contributors %][% FOREACH subfield IN author.MARCAUTHOR_SUBFIELDS_LOOP %][% subfield.separator | html %][% subfield.value | html %][% END %][% UNLESS ( loop.last ) %];[% END %][% END %][% END %]
    [% END %] [% SET biblioitem = biblio.biblioitem %][% IF ( biblioitem.isbn ) %]ISBN: [% FOREACH isbn IN biblioitem.isbn %][% isbn | html %][% UNLESS ( loop.last ) %]; [% END %][% END %]
    [% END %] [% IF ( biblioitem.publishercode ) %]Published by: [% biblioitem.publishercode | html %][% IF ( biblioitem.publicationyear ) %] in [% biblioitem.publicationyear | html %][% END %][% IF ( biblioitem.pages ) %], [% biblioitem.pages | html %][% END %]
    [% END %] [% IF ( biblio.seriestitle ) %]Collection: [% biblio.seriestitle | html %]
    [% END %] [% IF ( biblio.copyrightdate ) %]Copyright year: [% biblio.copyrightdate | html %]
    [% END %] [% IF ( biblio.notes ) %]Notes: [% biblio.notes | html %]
    [% END %] [% IF ( biblio.unititle ) %]Unified title: [% biblio.unititle | html %]
    [% END %] [% IF ( biblio.serial ) %]Serial: [% biblio.serial | html %]
    [% END %] [% IF ( biblioitem.lccn ) %]LCCN: [% biblioitem.lccn | html %]
    [% END %] [% IF ( biblio.get_marc_host_only || biblio.get_marc_hostinfo_only ) %]In: [% IF biblio.get_marc_host_only.biblionumber %][% INCLUDE 'biblio-title.inc' biblio=biblio.get_marc_host_only %] [% biblio.get_marc_relatedparts_only %][% ELSE %][% biblio.get_marc_hostinfo_only %][% END %]
    [% END %] [% IF ( biblioitem.url ) %]URL: [% biblioitem.url | html %]
    [% END %] View in online catalog [% IF ( biblio.items.count > 0 ) %]
    Items: [% END %]
  2. [% END %]
",'email','default') }); say $out "Added new letter 'LIST' (email)"; say $out "Added new letter 'CART' (email)"; }, };