Erweiterung des <%include FILE%> Befehls um die Moeglichkeit

ein Verzeichnis unterhalb von $template_dir angeben
zu koennen. Die alte Funktionsweise bleibt unangetastet. Die
neue Syntax lautet <%include DIR/SUBDIR/FILENAME%>.

diff --git a/SL/Form.pm b/SL/Form.pm
index b7b76e4..a9c7225 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -939,12 +939,12 @@ sub parse_template {
     # check for <%include filename%>
     if (/\s*<%include /) {
 
-      # get the filename
+      # get the directory/filename
       chomp $var;
       $var =~ s/\s*<%include (.+?)%>/$1/;
 
-      # mangle filename
-      $var =~ s/(\/|\.\.)//g;
+      # mangle filename on basedir
+      $var =~ s/^(\/|\.\.)//g;
 
       # prevent the infinite loop!
       next if ($self->{"$var"});