Jonathan Druart
10649d4921
Sponsored-by: BULAC - http://www.bulac.fr/ Signed-off-by: BULAC - http://www.bulac.fr/ Signed-off-by: Heather Hernandez <heather_hernandez@nps.gov> Signed-off-by: Laurence Rault <laurence.rault@biblibre.com> Signed-off-by: Nick Clemens <nick@bywatersolutions.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
37 lines
1.3 KiB
Perl
Executable file
37 lines
1.3 KiB
Perl
Executable file
use Modern::Perl;
|
|
|
|
return {
|
|
bug_number => "33547",
|
|
description => "Add a new notice template 'PRES_TRAIN_ITEM'",
|
|
up => sub {
|
|
my ($args) = @_;
|
|
my ($dbh, $out) = @$args{qw(dbh out)};
|
|
|
|
unless ( column_exists('preservation_processings', 'letter_code') ) {
|
|
$dbh->do(q{
|
|
ALTER TABLE preservation_processings
|
|
ADD COLUMN `letter_code` varchar(20) DEFAULT NULL COMMENT 'Foreign key to the letters table' AFTER `name`
|
|
});
|
|
}
|
|
|
|
my $notice_template = q{[%~ SET train = train_item.train ~%]
|
|
[%~ SET item = train_item.catalogue_item ~%]
|
|
Train name: [% train.name %]
|
|
Sent on: [% train.sent_on | $KohaDates %]
|
|
|
|
[% train.default_processing.name %]
|
|
|
|
Item number #[% train_item.user_train_item_id %]
|
|
|
|
[% FOREACH item_attribute IN train_item.attributes %]
|
|
[% item_attribute.processing_attribute.name %]: [% item_attribute.value %]
|
|
[% END %]};
|
|
|
|
$dbh->do(q{
|
|
INSERT IGNORE INTO letter
|
|
(module,code,branchcode,name,is_html,title,content,message_transport_type,lang)
|
|
VALUES
|
|
('preservation','PRES_TRAIN_ITEM','','Train item slip',0,'Train item slip',?, 'print','default')}, undef, $notice_template);
|
|
say $out "Added new letter 'PRES_TRAIN_ITEM' (print)";
|
|
},
|
|
};
|