35 lines
1.6 KiB
Perl
Executable file
35 lines
1.6 KiB
Perl
Executable file
use Modern::Perl;
|
|
|
|
return {
|
|
bug_number => "8838",
|
|
description => "Add digest option for HOLD notice",
|
|
up => sub {
|
|
my ($args) = @_;
|
|
my ( $dbh, $out ) = @$args{qw(dbh out)};
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO `letter` VALUES (NULL,'reserves','HOLDDGST','','Hold available for pickup (digest)',0,'Hold(s) available for pickup','You have one or more holds available for pickup:\r\n\r\n----\r\nTitle: [% hold.biblio.title %]\r\nAuthor: [% hold.biblio.author %]\r\nCopy: [% hold.item.copynumber %]\r\nLocation: [% hold.branch.branchname %]\r\nWaiting since: [% hold.waitingdate %]\r\nWaiting at: [%hold.branch.branchname%]\r\n[% hold.branch.branchaddress1 %]\r\n[% hold.branch.branchaddress2 %]\r\n[% hold.branch.branchaddress3 %]\r\n[% hold.branch.branchcity %] [% hold.branch.branchzip %]\r\n----','email','default','2023-08-29 18:42:15');
|
|
}
|
|
);
|
|
|
|
say $out "Added new notice 'HOLDDGST' (email)";
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO `letter` VALUES (NULL,'reserves','HOLDDGST','','Hold available for pickup (digest)',0,'Hold(s) available for pickup','You have one or more holds available for pickup:\r\n----\r\n[% hold.biblio.title %]\r\n----','sms','default','2023-08-29 18:42:15');
|
|
}
|
|
);
|
|
|
|
say $out "Added new notice 'HOLDDGST' (sms)";
|
|
|
|
$dbh->do(
|
|
q{
|
|
INSERT IGNORE INTO message_transports VALUES
|
|
( 4, "email", 1, "reserves", "HOLDDGST", "" ),
|
|
( 4, "sms", 1, "reserves", "HOLDDGST", "" ),
|
|
( 4, "phone", 1, "reserves", "HOLDDGST", "");
|
|
}
|
|
);
|
|
},
|
|
};
|