installer/data/mysql/db_revs/210600047.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "28374",
   5     description => "Update point of sale print receipt",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9
  10         $dbh->do(q{
  11             UPDATE letter
  12                 SET content = CONCAT('[% USE KohaDates %][% USE Branches %][% USE Price %]', content),
  13                     is_html = 1
  14             WHERE   code = 'RECEIPT'
  15                 AND content NOT LIKE '%[\% USE KohaDates \%][\% USE Branches \%][\% USE Price \%]%';
  16         });
  17         say $out "Added KohaDates, Branches and Price plugins";
  18
  19         $dbh->do(q{
  20             UPDATE letter SET content = REPLACE(content, 'payment.', 'credit.') WHERE code = 'RECEIPT';
  21         });
  22         say $out "Replaced 'payment' with 'credit' param in RECEIPT template";
  23
  24         $dbh->do(q{
  25             UPDATE letter SET content = REPLACE(content, 'offsets', 'credit.debits') WHERE code = 'RECEIPT';
  26         });
  27         say $out "Replaced 'offsets' with 'credit.debits' param in RECEIPT template";
  28
  29         $dbh->do(q{
  30             UPDATE letter SET content = REPLACE(content, 'offset', 'debit') WHERE code = 'RECEIPT';
  31         });
  32         say $out "Replaced 'offset' with 'debit' param in RECEIPT template";
  33
  34         $dbh->do(q{
  35             UPDATE letter SET content = REPLACE(content, 'debit.debit', 'debit') WHERE code = 'RECEIPT';
  36         });
  37         say $out "Replaced 'debit.debit' with 'debit' param in RECEIPT template";
  38     },
  39 }