From: Rolf Fluehmann <rolf.fluehmann@revamp-it.ch>
Date: Wed, 8 Jan 2014 14:08:56 +0000 (+0100)
Subject: #1838: beliebige Kunden- und Lieferantennamen für Kreditoren- und Debitorenbuchungen
X-Git-Tag: release-3.1.0beta1~22^2~22^2~5
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=0b19df751b48bbf3ffc0fe32103731c363bc14c4;p=kivitendo-erp.git

#1838: beliebige Kunden- und Lieferantennamen für Kreditoren- und Debitorenbuchungen
---

diff --git a/bin/mozilla/arap.pl b/bin/mozilla/arap.pl
index 254498680..f56da182f 100644
--- a/bin/mozilla/arap.pl
+++ b/bin/mozilla/arap.pl
@@ -61,7 +61,7 @@ sub check_name {
 
   $name = $name eq "customer" ? "customer" : "vendor";
 
-  my ($new_name, $new_id) = split /--/, $form->{$name};
+  my ($new_name,$new_id) = $form->{$name} =~ /^(.*?)--(\d+)$/;
   my $i = 0;
   # if we use a selection
   if ($form->{"select$name"}) {