installer/data/mysql/db_revs/230600052.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number  => "8838",
   5     description => "Add digest option for HOLD notice",
   6     up          => sub {
   7         my ($args) = @_;
   8         my ( $dbh, $out ) = @$args{qw(dbh out)};
   9
  10         $dbh->do(
  11             q{
  12             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');
  13         }
  14         );
  15
  16         say $out "Added new notice 'HOLDDGST' (email)";
  17
  18         $dbh->do(
  19             q{
  20             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');
  21         }
  22         );
  23
  24         say $out "Added new notice 'HOLDDGST' (sms)";
  25
  26         $dbh->do(
  27             q{
  28             INSERT IGNORE INTO message_transports VALUES
  29             ( 4, "email", 1, "reserves", "HOLDDGST", "" ),
  30             ( 4, "sms", 1, "reserves", "HOLDDGST", "" ),
  31             ( 4, "phone", 1, "reserves", "HOLDDGST", "");
  32         }
  33         );
  34     },
  35 };