CT->get_contact - Fehlerhaften Aufruf abfangen.

diff --git a/SL/CT.pm b/SL/CT.pm
index b46ee09..4fbb583 100644 (file)
--- 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 | .