installer/data/mysql/atomicupdate/bug_24378_auto_renewals.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     # you can use $dbh here like:
   4     # $dbh->do( "ALTER TABLE biblio ADD COLUMN badtaste int" );
   5
   6     $dbh->do(q{
   7         UPDATE letter SET
   8         name = REPLACE(name, "notification on auto renewing", "Notification of automatic renewal"),
   9         title = REPLACE(title, "Auto renewals", "Automatic renewal notice"),
  10         content = REPLACE(content, "You have reach the maximum of checkouts possible.", "You have reached the maximum number of checkouts possible.")
  11         WHERE code = 'AUTO_RENEWALS';
  12     });
  13     $dbh->do(q{
  14         UPDATE letter SET
  15         content = REPLACE(content, "You have overdues.", "You have overdue items.")
  16         WHERE code = 'AUTO_RENEWALS';
  17     });
  18     $dbh->do(q{
  19         UPDATE letter SET
  20         content = REPLACE(content, "It's too late to renew this checkout.", "It's too late to renew this item.")
  21         WHERE code = 'AUTO_RENEWALS';
  22     });
  23     $dbh->do(q{
  24         UPDATE letter SET
  25         content = REPLACE(content, "You have too much unpaid fines.", "Your total unpaid fines are too high.")
  26         WHERE code = 'AUTO_RENEWALS';
  27     });
  28     $dbh->do(q{
  29         UPDATE letter SET
  30         content = REPLACE(content, "The following item [% biblio.title %] has correctly been renewed and is now due [% checkout.date_due %]", "The following item, [% biblio.title %], has correctly been renewed and is now due on [% checkout.date_due as_due_date => 1 %]
  31 ")
  32         WHERE code = 'AUTO_RENEWALS';
  33     });
  34     NewVersion( $DBversion, 24378, "Fix some grammatical errors in default auto renewal notice");
  35 }