|
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"; |