Revision 49189bfb
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/Common.pm | ||
|---|---|---|
| 446 | 446 |
} |
| 447 | 447 |
} |
| 448 | 448 |
|
| 449 |
sub check_params_x {
|
|
| 450 |
my $params = shift; |
|
| 451 |
|
|
| 452 |
foreach my $key (@_) {
|
|
| 453 |
if (!exists $params->{$key}) {
|
|
| 454 |
my $subroutine = (caller(1))[3]; |
|
| 455 |
$main::form->error($main::locale->text("Missing parameter #1 in call to sub #2.", $key, $subroutine));
|
|
| 456 |
} |
|
| 457 |
} |
|
| 458 |
} |
|
| 459 |
|
|
| 449 | 460 |
1; |
Auch abrufbar als: Unified diff
Eine Funtion zur Überprüfung der Existenz von hash-basierten Funktionsparameter.