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