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