From cd51d3e231d49544b3fb4e6705548cdc9d189951 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 26 May 2008 09:44:55 +0000
Subject: [PATCH] =?utf8?q?Beim=20Ausdruck=20von=20Einkaufsbelegen=20den=20?=
 =?utf8?q?ausgew=C3=A4hlten=20Ansprechpartner=20laden=20(Variable=20"conta?=
 =?utf8?q?ct"=20gibt=20es=20nicht=20mehr,=20nur=20noch=20"cp=5Fid").?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/IR.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/IR.pm b/SL/IR.pm
index 30f49fd7c..0da055bbb 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -1075,7 +1075,7 @@ sub vendor_details {
   my @values;
 
   # get contact id, set it if nessessary
-  $form->{cp_id} = (split /--/, $form->{contact})[1];
+  $form->{cp_id} *= 1;
   my $contact = "";
   if ($form->{cp_id}) {
     $contact = "AND cp.cp_id = ?";
-- 
2.20.1