--- /dev/null
+use Modern::Perl;
+
+return {
+ bug_number => "32967",
+ description => "Recalls notices are using the wrong database columns",
+ up => sub {
+ my ($args) = @_;
+ my ($dbh, $out) = @$args{qw(dbh out)};
+
+ $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.branchcode','recalls.pickup_library_id') WHERE code='PICKUP_RECALLED_ITEM' });
+ $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.expirationdate','recalls.expiration_date') WHERE code='PICKUP_RECALLED_ITEM' });
+
+ say $out "Fix column names in PICKUP_RECALLED_ITEM notice";
+
+ $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.waitingdate','recalls.waiting_date') WHERE code='RECALL_REQUESTER_DET' });
+ $dbh->do(q{ UPDATE letter SET content=REPLACE(content,'recalls.recallnotes','recalls.notes') WHERE code='RECALL_REQUESTER_DET' });
+
+ say $out "Fix column names in RECALL_REQUESTER_DET notice";
+ },
+};
- ""
- "<<borrowers.firstname>> <<borrowers.surname>>,"
- ""
- - "A recall that you requested on the following item: <<biblio.title>> / <<biblio.author>> (<<items.barcode>>) is now ready for you to pick up at <<recalls.branchcode>>. Please pick up your item by <<recalls.expirationdate>>."
+ - "A recall that you requested on the following item: <<biblio.title>> / <<biblio.author>> (<<items.barcode>>) is now ready for you to pick up at <<recalls.pickup_library_id>>. Please pick up your item by <<recalls.expiration_date>>."
- ""
- "Thank you!"
- "<<biblio.title>> by <<biblio.author>>"
- "Barcode: <<items.barcode>>"
- "Callnumber: <<items.itemcallnumber>>"
- - "Waiting since: <<recalls.waitingdate>>"
- - "Notes: <<recalls.recallnotes>>"
+ - "Waiting since: <<recalls.waiting_date>>"
+ - "Notes: <<recalls.notes>>"
- module: members
code: 2FA_DISABLE