installer/data/mysql/db_revs/211200006.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "29557",
   5     description => "Add auto_account_expired to AUTO_RENEWALS notice",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         my @c = $dbh->do(q{
  10             UPDATE letter
  11             SET content=REPLACE(content, "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% END %]", "[% ELSIF checkout.auto_renew_error == 'too_unseen' %]\r\nThis item must be renewed at the library.\r\n[% ELSIF checkout.auto_renew_error == 'auto_account_expired' %]\r\nYour account has expired.\r\n[% END %]")
  12             WHERE code="AUTO_RENEWALS"
  13         });
  14         say $out "Please update your AUTO_RENEWALS notice manually if you have changed or translated it"
  15     },
  16 }