Revision 900dff5f
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 435 | 435 |
$main::lxdebug->leave_sub(); |
| 436 | 436 |
} |
| 437 | 437 |
|
| 438 |
sub check_params {
|
|
| 439 |
my $params = shift; |
|
| 440 |
|
|
| 441 |
foreach my $key (@_) {
|
|
| 442 |
if (!defined $params->{$key}) {
|
|
| 443 |
my $subroutine = (caller(1))[3]; |
|
| 444 |
$main::form->error($main::locale->text("Missing parameter #1 in call to sub #2.", $key, $subroutine));
|
|
| 445 |
} |
|
| 446 |
} |
|
| 447 |
} |
|
| 448 |
|
|
| 438 | 449 |
1; |
Auch abrufbar als: Unified diff
Eine Funktion zur Überprüfung der Existens von Funktionsparametern hinzugefügt, wenn diese als Hash übergeben werden.