Lines 1-27
Link Here
|
1 |
#! /usr/bin/perl |
|
|
2 |
use strict; |
3 |
use warnings; |
4 |
use C4::Context; |
5 |
my $dbh = C4::Context->dbh; |
6 |
|
7 |
# add phone message transport type |
8 |
$dbh->do("INSERT INTO message_transport_types (message_transport_type) VALUES ('phone')"); |
9 |
|
10 |
# adds HOLD and PREDUE letters (as placeholders) |
11 |
$dbh->do("INSERT INTO letter (module, code, name, title, content, message_transport_type) VALUES |
12 |
('reserves', 'HOLD', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup', 'phone'), |
13 |
('circulation', 'PREDUE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon', 'phone'), |
14 |
('circulation', 'OVERDUE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue', 'phone') |
15 |
"); |
16 |
|
17 |
# add phone notifications to patron message preferences options |
18 |
$dbh->do("INSERT INTO message_transports |
19 |
(message_attribute_id, message_transport_type, is_digest, letter_module, letter_code) VALUES |
20 |
(4, 'phone', 0, 'reserves', 'HOLD'), |
21 |
(2, 'phone', 0, 'circulation', 'PREDUE') |
22 |
"); |
23 |
|
24 |
# add TalkingTechItivaPhoneNotification syspref |
25 |
$dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('TalkingTechItivaPhoneNotification',0,'If ON, enables Talking Tech I-tiva phone notifications',NULL,'YesNo');"); |
26 |
|
27 |
print "Upgrade done (Support for Talking Tech i-tiva phone notification system)\n"; |