From: Moritz Bunkus <m.bunkus@linet-services.de>
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;hp=6a9e0071135379dbcf767c03ddcc12554a8cec9c;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) {