5 description => "Add Hold Reminder messaging preference",
8 my ($dbh, $out) = @$args{qw(dbh out)};
10 INSERT IGNORE INTO `message_attributes`
11 (message_attribute_id, message_name, `takes_days`)
12 VALUES (10, 'Hold_Reminder', 0)
14 say $out "Message attribute added";
16 INSERT IGNORE INTO `message_transports`
17 (`message_attribute_id`, `message_transport_type`, `is_digest`, `letter_module`, `letter_code`)
18 VALUES (10, 'email', 0, 'circulation', 'HOLD_REMINDER'),
19 (10, 'sms', 0, 'circulation', 'HOLD_REMINDER'),
20 (10, 'phone', 0, 'circulation', 'HOLD_REMINDER'),
21 (10, 'itiva', 0, 'circulation', 'HOLD_REMINDER')
23 say $out "HOLD_REMINDER added to message_transports";
25 INSERT INTO borrower_message_preferences
26 ( borrowernumber, categorycode, message_attribute_id, days_in_advance, wants_digest )
27 SELECT borrowernumber, categorycode, 10, days_in_advance, wants_digest
28 FROM borrower_message_preferences WHERE message_attribute_id = 4
30 say $out "Hold_Filled message preference copied to Hold_Reminder";
32 INSERT INTO borrower_message_transport_preferences
33 ( borrower_message_preference_id, message_transport_type )
34 SELECT b1.borrower_message_preference_id, message_transport_type
35 FROM borrower_message_preferences b1
36 JOIN borrower_message_preferences b2 ON
37 b1.message_attribute_id = 10 AND b2.message_attribute_id = 4 AND
38 b1.borrowernumber=b2.borrowernumber
39 JOIN borrower_message_transport_preferences bt ON
40 b2.borrower_message_preference_id = bt.borrower_message_preference_id
42 say $out "Hold_Filled message transport preferences copied to Hold_Reminder";