25 lines
861 B
Perl
Executable file
25 lines
861 B
Perl
Executable file
use Modern::Perl;
|
|
|
|
return {
|
|
bug_number => 30290,
|
|
description => "Modify AR notices, include TOC line",
|
|
up => sub {
|
|
my ($args) = @_;
|
|
my ($dbh, $out) = @$args{qw(dbh out)};
|
|
my $sql = q|
|
|
UPDATE letter
|
|
SET content=REPLACE(content, '\nPages:', '\nTOC: [% IF article_request.toc_request %]Yes[% ELSE %]No[% END %]\nPages:')
|
|
WHERE code RLIKE '^AR_' AND module='circulation' AND content NOT RLIKE '\nTOC:';
|
|
|;
|
|
$dbh->do( $sql );
|
|
|
|
# Warn if we find translated notices (educated guess with word Pages)
|
|
$sql=q|
|
|
SELECT COUNT(*)
|
|
FROM letter
|
|
WHERE code RLIKE '^AR_' AND module='circulation' AND content NOT RLIKE '\nPages:';
|
|
|;
|
|
my ( $count ) = $dbh->selectrow_array( $sql );
|
|
say $out "WARNING: If you have translated AR notices, please add TOC lines yourself." if $count;
|
|
},
|
|
};
|