Revision 40782548
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| am.pl | ||
|---|---|---|
| 52 | 52 |
|
| 53 | 53 |
eval { require "lx-erp.conf"; };
|
| 54 | 54 |
|
| 55 |
require "bin/mozilla/common.pl"; |
|
| 56 |
|
|
| 55 | 57 |
if (defined($latex) && !defined($latex_templates)) {
|
| 56 | 58 |
$latex_templates = $latex; |
| 57 | 59 |
undef($latex); |
| ... | ... | |
| 129 | 131 |
. $locale->text('Version')
|
| 130 | 132 |
. " $form->{version} - $myconfig{name} - $myconfig{dbname}";
|
| 131 | 133 |
|
| 132 |
&{ $locale->findsub($form->{action}) };
|
|
| 134 |
call_sub($locale->findsub($form->{action}));
|
|
| 133 | 135 |
} else {
|
| 134 | 136 |
$form->error($locale->text('action= not defined!'));
|
| 135 | 137 |
} |
Auch abrufbar als: Unified diff
Eine Funktion zum "sicheren" Aufrufen von Unterfunktionen eingebaut, damit &{ $form->{nextsub} }(); nicht ungeprüft aufgerufen werden muss.