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