installer/data/mysql/db_revs/211200015.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => 29943,
   5     description => "Fix typo in NOTIFY_MANAGER notice",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         # Correct "[% borrowers." (where present and restricted to specific notice)
  11         $dbh->do(q|
  12             UPDATE letter SET content = REPLACE(content, '[% borrowers.', '[% borrower.')
  13             WHERE code = 'NOTIFY_MANAGER'
  14         |);
  15     },
  16 };