X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/900dff5fd67e8ffd81beef6c2c83d155682c17fd..b6dc5623d93c1be1c54248d4512e80f495af2899:/SL/Common.pm

diff --git a/SL/Common.pm b/SL/Common.pm
index 43b9aaab7..9d7cdcbcc 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -446,4 +446,15 @@ sub check_params {
   }
 }
 
+sub check_params_x {
+  my $params = shift;
+
+  foreach my $key (@_) {
+    if (!exists $params->{$key}) {
+      my $subroutine = (caller(1))[3];
+      $main::form->error($main::locale->text("Missing parameter #1 in call to sub #2.", $key, $subroutine));
+    }
+  }
+}
+
 1;