print_html_template auch mit scalarrefs als file aufrufbar gemacht

Ausserdem die Fehlermeldung bei nicht korrektem aufruf mit header angeben.

diff --git a/SL/Form.pm b/SL/Form.pm
index 221f7b1aa2451703804cbd43ecd608bcb280bdfb..9f0cf11bc3385cfbeaac74b3070906fa6b111883 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -594,8 +594,11 @@ sub _prepare_html_template {
   if (-f "templates/webpages/${file}.html") {
     $file = "templates/webpages/${file}.html";
 
   if (-f "templates/webpages/${file}.html") {
     $file = "templates/webpages/${file}.html";
 

+  } elsif (ref $file eq 'SCALAR') {
+    # file is a scalarref, use inline mode

   } else {
     my $info = "Web page template '${file}' not found.\n";
   } else {
     my $info = "Web page template '${file}' not found.\n";

+    $::form->header;

     print qq|<pre>$info</pre>|;
     ::end_of_request();
   }
     print qq|<pre>$info</pre>|;
     ::end_of_request();
   }