installer/data/mysql/db_revs/221200014.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "30555",
   5     description => "Add more sample notice for sms messages",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         $dbh->do(q{
  10             INSERT IGNORE INTO letter
  11             (module,code,branchcode,name,is_html,title,content,message_transport_type,lang)
  12             VALUES
  13             ('circulation','CHECKIN','','Item check-in (digest)',0,'Check-ins','The following items have been checked in:\r\n----\r\n[% biblio.title %]\r\n----\r\nThank you.','sms','default'),
  14             ('circulation','CHECKOUT','','Item check-out (digest)',0,'Checkouts','The following items have been checked out:\r\n----\r\n[% biblio.title %]\r\n----\r\nThank you for visiting [% branch.branchname %].','sms','default'),
  15             ('circulation','DUE','','Item due reminder',0,'Item due reminder','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item is now due:\r\n\r\n<<biblio.title>>','sms','default'),
  16             ('circulation','DUEDGST','','Item due reminder (digest)',0,'Item due reminder','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYou have <<count>> item(s) that are now due\r\n\r\nThank you.','sms','default'),
  17             ('circulation','PREDUE','','Advance notice of item due',0,'Advance notice of item due','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nThe following item will be due soon:\r\n\r\n<<biblio.title>>','sms','default'),
  18             ('circulation','PREDUEDGST','','Advance notice of item due (digest)',0,'Advance notice of item due','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYou have <<count>> item(s) that will be due soon.\r\n\r\nThank you.','sms','default'),
  19             ('reserves','HOLD','','Hold available for pickup',0,'Hold available for pickup at <<branches.branchname>>','Dear <<borrowers.firstname>> <<borrowers.surname>>,\r\n\r\nYour hold for <<biblio.title>> is available for pickup.','sms','default')
  20         });
  21
  22         say $out "Added new letter 'CHECKIN' (sms)";
  23         say $out "Added new letter 'CHECKOUT' (sms)";
  24         say $out "Added new letter 'DUE' (sms)";
  25         say $out "Added new letter 'DUEDGST' (sms)";
  26         say $out "Added new letter 'PREDUE' (sms)";
  27         say $out "Added new letter 'PREDUEDGST' (sms)";
  28         say $out "Added new letter 'HOLD' (sms)";
  29     },
  30 };