20 lines
955 B
Perl
Executable file
20 lines
955 B
Perl
Executable file
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";
|
|
},
|
|
};
|