From 2d8fabfca38ef5ddba73562bc25ecf5c32a2cbf3 Mon Sep 17 00:00:00 2001
From: Peter Schulgin <peter.schulgin@opendynamic.de>
Date: Tue, 17 Nov 2015 14:04:43 +0100
Subject: [PATCH] Kontoauszug verbuchen: Sonderzeichenbehandlung

Sonderzeichen beim Vergleich Verwendungszweck - Kunde/Lieferant escapen
---
 SL/DB/BankTransaction.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/DB/BankTransaction.pm b/SL/DB/BankTransaction.pm
index e91651a98..cabdc816d 100644
--- a/SL/DB/BankTransaction.pm
+++ b/SL/DB/BankTransaction.pm
@@ -151,7 +151,7 @@ sub get_agreement_with_invoice {
   my $cvname;
   $cvname = $invoice->customer->name if $invoice->is_sales;
   $cvname = $invoice->vendor->name   if ! $invoice->is_sales;
-  if ( $cvname && $self->purpose =~ /\b$cvname\b/i ) {
+  if ( $cvname && $self->purpose =~ /\b\Q$cvname\E\b/i ) {
     $agreement += $points{cust_vend_name_in_purpose};
     $rule_matches .= 'cust_vend_name_in_purpose(' . $points{'cust_vend_name_in_purpose'} . ') ';
   };
-- 
2.20.1