Bug 14382: [QA Follow-up] Bad regex alarm

[koha.git] / reports / guided_reports.pl

diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
index dd0386f..c93ba5f 100755 (executable)
--- a/reports/guided_reports.pl
+++ b/reports/guided_reports.pl
@@ -739,7 +739,7 @@ elsif ($phase eq 'Run this report'){
                 my $quoted = $sql_params[$i];
                 # if there are special regexp chars, we must \ them
                 $split[$i*2+1] =~ s/(\||\?|\.|\*|\(|\)|\%)/\\$1/g;
-                if ($split[$i*2+1] =~ /|date>>/) {
+                if ($split[$i*2+1] =~ /\|\s*date\s*$/) {
                     $quoted = output_pref({ dt => dt_from_string($quoted), dateformat => 'iso', dateonly => 1 }) if $quoted;
                 }
                 $quoted = C4::Context->dbh->quote($quoted);