Talking Tech Support - Phase I
[koha.git] / installer / data / mysql / atomicupdate / Bug-4246-Talking-Tech-itiva-phone-notifications.pl
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_PHONE and PREDUE_PHONE letters (as placeholders)
11 $dbh->do("INSERT INTO letter (module, code, name, title, content) VALUES
12           ('reserves', 'HOLD_PHONE', 'Item Available for Pick-up (phone notice)', 'Item Available for Pick-up (phone notice)', 'Your item is available for pickup'),
13           ('circulation', 'PREDUE_PHONE', 'Advance Notice of Item Due (phone notice)', 'Advance Notice of Item Due (phone notice)', 'Your item is due soon'),
14           ('circulation', 'OVERDUE_PHONE', 'Overdue Notice (phone notice)', 'Overdue Notice (phone notice)', 'Your item is overdue')
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_PHONE'),
21          (2, 'phone', 0, 'circulation', 'PREDUE_PHONE')
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";