View | Details | Raw Unified | Return to bug 30290
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_30290.pl (-1 / +16 lines)
Line 0 Link Here
0
- 
1
use Modern::Perl;
2
3
return {
4
    bug_number => 30290,
5
    description => "Modify AR notices, include TOC line",
6
    up => sub {
7
        my ($args) = @_;
8
        my ($dbh, $out) = @$args{qw(dbh out)};
9
        my $sql = q|
10
UPDATE letter
11
SET content=REPLACE(content, '\nPages:', '\nTOC: [% IF article_request.toc_request %]Include TOC[% ELSE %]No[% END %]\nPages:')
12
WHERE code RLIKE '^AR_'  AND module='circulation' AND content NOT RLIKE '\nTOC:';
13
        |;
14
        $dbh->do( $sql );
15
    },
16
};

Return to bug 30290