From 5c1fb49ca6043c09f35dc42429443a7a3d97dce1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Mon, 20 Feb 2012 13:22:56 +0100
Subject: [PATCH] CT->get_contact - Fehlerhaften Aufruf abfangen.

---
 SL/CT.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/SL/CT.pm b/SL/CT.pm
index b46ee099b..4fbb583d7 100644
--- a/SL/CT.pm
+++ b/SL/CT.pm
@@ -868,6 +868,9 @@ sub get_contact {
   $main::lxdebug->enter_sub();
 
   my ( $self, $myconfig, $form ) = @_;
+
+  die 'Missing argument: cp_id' unless $::form->{cp_id};
+
   my $dbh   = $form->dbconnect($myconfig);
   my $query =
     qq|SELECT * FROM contacts c | .
-- 
2.20.1