Revision b2945bf6
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 455 | 455 |
$self->show_generic_error($msg); |
| 456 | 456 |
|
| 457 | 457 |
} else {
|
| 458 |
|
|
| 459 |
die "Error: $msg\n";
|
|
| 458 |
print STDERR "Error: $msg\n"; |
|
| 459 |
::end_of_request();
|
|
| 460 | 460 |
} |
| 461 | 461 |
|
| 462 | 462 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 772 | 772 |
my $info = "Developer information: templates/webpages/${file}.html is newer than the translation file locale/${language}/all.\n" .
|
| 773 | 773 |
"Please re-run 'locales.pl' in 'locale/${language}'.";
|
| 774 | 774 |
print(qq|<pre>$info</pre>|); |
| 775 |
die($info);
|
|
| 775 |
::end_of_request();
|
|
| 776 | 776 |
} |
| 777 | 777 |
|
| 778 | 778 |
$file = "templates/webpages/${file}.html";
|
| ... | ... | |
| 781 | 781 |
my $info = "Web page template '${file}' not found.\n" .
|
| 782 | 782 |
"Please re-run 'locales.pl' in 'locale/${language}'.";
|
| 783 | 783 |
print(qq|<pre>$info</pre>|); |
| 784 |
die($info);
|
|
| 784 |
::end_of_request();
|
|
| 785 | 785 |
} |
| 786 | 786 |
|
| 787 | 787 |
if ($self->{"DEBUG"}) {
|
| ... | ... | |
| 895 | 895 |
$self->header(); |
| 896 | 896 |
print $self->parse_html_template("generic/error", $add_params);
|
| 897 | 897 |
|
| 898 |
print STDERR "Error: $error\n"; |
|
| 899 |
|
|
| 898 | 900 |
$main::lxdebug->leave_sub(); |
| 899 | 901 |
|
| 900 |
die("Error: $error\n");
|
|
| 902 |
::end_of_request();
|
|
| 901 | 903 |
} |
| 902 | 904 |
|
| 903 | 905 |
sub show_generic_information {
|
| ... | ... | |
| 917 | 919 |
|
| 918 | 920 |
$main::lxdebug->leave_sub(); |
| 919 | 921 |
|
| 920 |
die("Information: $text\n");
|
|
| 922 |
::end_of_request();
|
|
| 921 | 923 |
} |
| 922 | 924 |
|
| 923 | 925 |
# write Trigger JavaScript-Code ($qty = quantity of Triggers) |
| ... | ... | |
| 975 | 977 |
if (!$self->{callback}) {
|
| 976 | 978 |
|
| 977 | 979 |
$self->info($msg); |
| 978 |
exit;
|
|
| 980 |
::end_of_request();
|
|
| 979 | 981 |
} |
| 980 | 982 |
|
| 981 | 983 |
# my ($script, $argv) = split(/\?/, $self->{callback}, 2);
|
Auch abrufbar als: Unified diff
Aufrufe von 'exit' durch eigene Funktion '::end_of_request()' ersetzt.
Außerdem dafür gesorgt, dass Meldungen, die per
$form->show_generic_(error|information) ausgegeben werden, nicht
doppelt angezeigt werden.
Conflicts: