Revision 49189bfb
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
|
}
|
||
|
}
|
||
|
|
||
|
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;
|
||
Auch abrufbar als: Unified diff
Eine Funtion zur Überprüfung der Existenz von hash-basierten Funktionsparameter.