From: Moritz Bunkus Date: Wed, 1 Jul 2009 10:24:50 +0000 (+0200) Subject: Test auf Übereinstimmung mit regulären Ausdrücken in <%if...%>-Blöcken ohne Berücksic... X-Git-Tag: release-2.6.1beta1~374 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=53f4de8f47b3f28498fdcfa1e7b3b071e977587f;p=kivitendo-erp.git Test auf Übereinstimmung mit regulären Ausdrücken in <%if...%>-Blöcken ohne Berücksichtigung der Groß- und Kleinschreibung. --- diff --git a/SL/Template.pm b/SL/Template.pm index c0f54cc29..6dce41b44 100644 --- a/SL/Template.pm +++ b/SL/Template.pm @@ -384,13 +384,13 @@ sub parse_block { if ($operator_type) { my $compare_to = $bareword ? $self->_get_loop_variable($bareword, 0, @indices) : $quoted_word; if ($operator_type eq '=') { - $hit = ($not && !($value eq $compare_to)) || (!$not && ($value eq $compare_to)); + $hit = ($not && !($value eq $compare_to)) || (!$not && ($value eq $compare_to)); } else { - $hit = ($not && !($value =~ m/$compare_to/)) || (!$not && ($value =~ m/$compare_to/)); + $hit = ($not && !($value =~ m/$compare_to/i)) || (!$not && ($value =~ m/$compare_to/i)); } } else { - $hit = ($not && ! $value) || (!$not && $value); + $hit = ($not && ! $value) || (!$not && $value); } if ($hit) {