Line 0
Link Here
|
|
|
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 |
}; |