From cd5ea7fbcf2b36efc57a6a12319c4c7ac6337d2f Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 7 Mar 2024 11:10:35 -0500 Subject: [PATCH] Bug 36244: Add atomic update to check for affected notices Signed-off-by: Kyle M Hall --- .../data/mysql/atomicupdate/bug_36244.pl | 26 +++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/bug_36244.pl diff --git a/installer/data/mysql/atomicupdate/bug_36244.pl b/installer/data/mysql/atomicupdate/bug_36244.pl new file mode 100755 index 00000000000..33b2451d5bf --- /dev/null +++ b/installer/data/mysql/atomicupdate/bug_36244.pl @@ -0,0 +1,26 @@ +use Modern::Perl; + +return { + bug_number => "364244", + description => "Template toolkit syntax ont escaped in letter templates", + up => sub { + my ($args) = @_; + my ( $dbh, $out ) = @$args{qw(dbh out)}; + + my $query = q{SELECT * FROM letter WHERE content LIKE "[|%%SET%<<%|%]" ESCAPE '|'}; + my $sth = $dbh->prepare($query); + $sth->execute(); + if ( $sth->rows ) { + say $out "You have one or more templates that have been affected by bug 364244."; + say $out "These templates assign template toolkit variables values."; + say $out "based on the double arrows syntax. E.g. [% SET name = '<>' %]"; + say $out "This will no longer function correctly as Template Toolkit is now rendered before the double arrow syntax."; + say $out "The following notices will need to be updated:"; + + while ( my $row = $sth->fetchrow_hashref() ) { + say $out + "ID: $row->{id} / MODULE: $row->{module} / CODE: $row->{code} / BRANCHCODE: $row->{branchcode} / NAME: $row->{name}"; + } + } + }, +}; -- 2.30.2