Revision 83cc6a5b
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 611 | 611 |
sub show_generic_error {
|
| 612 | 612 |
my ($self, $error, $title, $action) = @_; |
| 613 | 613 |
|
| 614 |
my $add_params = {};
|
|
| 615 |
$add_params->{"title"} = $title if ($title);
|
|
| 616 |
$self->{"label_error"} = $error;
|
|
| 614 |
my $add_params = {
|
|
| 615 |
'title_error' => $title, |
|
| 616 |
'label_error' => $error, |
|
| 617 |
}; |
|
| 617 | 618 |
|
| 618 | 619 |
my @vars; |
| 619 | 620 |
if ($action) {
|
| ... | ... | |
| 626 | 627 |
} |
| 627 | 628 |
$add_params->{"VARIABLES"} = \@vars;
|
| 628 | 629 |
|
| 630 |
$self->{title} = $title if ($title);
|
|
| 631 |
|
|
| 629 | 632 |
$self->header(); |
| 630 |
print($self->parse_html_template("generic/error", $add_params));
|
|
| 633 |
print $self->parse_html_template2("generic/error", $add_params);
|
|
| 631 | 634 |
|
| 632 | 635 |
die("Error: $error\n");
|
| 633 | 636 |
} |
| 634 | 637 |
|
| 635 | 638 |
sub show_generic_information {
|
| 636 |
my ($self, $error, $title) = @_; |
|
| 639 |
my ($self, $text, $title) = @_; |
|
| 640 |
|
|
| 641 |
my $add_params = {
|
|
| 642 |
'title_information' => $title, |
|
| 643 |
'label_information' => $text, |
|
| 644 |
}; |
|
| 637 | 645 |
|
| 638 |
my $add_params = {};
|
|
| 639 |
$add_params->{"title"} = $title if ($title);
|
|
| 640 |
$self->{"label_information"} = $error;
|
|
| 646 |
$self->{title} = $title if ($title);
|
|
| 641 | 647 |
|
| 642 | 648 |
$self->header(); |
| 643 |
print($self->parse_html_template("generic/information", $add_params));
|
|
| 649 |
print $self->parse_html_template2("generic/information", $add_params);
|
|
| 644 | 650 |
|
| 645 | 651 |
die("Information: $error\n");
|
| 646 | 652 |
} |
Auch abrufbar als: Unified diff
Umstellung einiger Vorlagen aus templates/webpages/generic von HTML::Template auf Template. Die Vorlagen calculate_alu* werden gar nicht benutzt und deswegen entfernt.