X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ce651068ffd6d20ef408dbc45d8a04a69a3dc3ed..ba52ee60:/bin/mozilla/arap.pl?ds=inline 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"}) {