Revision bdd1d7ea
Von Sven Schöling vor mehr als 10 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 594 | 594 |
if (-f "templates/webpages/${file}.html") {
|
| 595 | 595 |
$file = "templates/webpages/${file}.html";
|
| 596 | 596 |
|
| 597 |
} elsif (ref $file eq 'SCALAR') {
|
|
| 598 |
# file is a scalarref, use inline mode |
|
| 597 | 599 |
} else {
|
| 598 | 600 |
my $info = "Web page template '${file}' not found.\n";
|
| 601 |
$::form->header; |
|
| 599 | 602 |
print qq|<pre>$info</pre>|; |
| 600 | 603 |
::end_of_request(); |
| 601 | 604 |
} |
Auch abrufbar als: Unified diff
print_html_template auch mit scalarrefs als file aufrufbar gemacht
Ausserdem die Fehlermeldung bei nicht korrektem aufruf mit header angeben.