|
Lines 8-14
return {
Link Here
|
| 8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
8 |
my ($dbh, $out) = @$args{qw(dbh out)}; |
| 9 |
|
9 |
|
| 10 |
$dbh->do(q{ |
10 |
$dbh->do(q{ |
| 11 |
UPDATE letter SET content = CONCAT('[% USE KohaDates %][% USE Branches %][% USE Price %]', content), is_html = 1 WHERE code = 'RECEIPT'; |
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 \%]%'; |
| 12 |
}); |
16 |
}); |
| 13 |
say $out "Added KohaDates, Branches and Price plugins"; |
17 |
say $out "Added KohaDates, Branches and Price plugins"; |
| 14 |
|
18 |
|
| 15 |
- |
|
|