CT->get_contact - Fehlerhaften Aufruf abfangen.

diff --git a/SL/CT.pm b/SL/CT.pm
index b46ee099b37549fb5896b8f02272199f2a1d8cb0..4fbb583d74eb1895d6636e6e0d3b9031118f1164 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 ) = @_;
   $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 | .
   my $dbh   = $form->dbconnect($myconfig);
   my $query =
     qq|SELECT * FROM contacts c | .