From 0b19df751b48bbf3ffc0fe32103731c363bc14c4 Mon Sep 17 00:00:00 2001
From: Rolf Fluehmann <rolf.fluehmann@revamp-it.ch>
Date: Wed, 8 Jan 2014 15:08:56 +0100
Subject: [PATCH] =?utf8?q?#1838:=20beliebige=20Kunden-=20und=20Lieferanten?=
 =?utf8?q?namen=20f=C3=BCr=20Kreditoren-=20und=20Debitorenbuchungen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/arap.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"}) {
-- 
2.20.1