Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ensure trailing / on jspath

Browse Source
This commit is contained in:
Chris 2014-04-11 14:53:46 +01:00
parent d25efbefe8
commit 2ff5d614df
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Webperl/Template.pm
View File

@ -360,6 +360,7 @@ sub set_template_dir {
my $jsdir = "js"; my $jsdir = "js";
$jsdir .= "_".$self -> {"settings"} -> {"config"} -> {"jsdirid"} if($self -> {"settings"} -> {"config"} -> {"jsdirid"}); $jsdir .= "_".$self -> {"settings"} -> {"config"} -> {"jsdirid"} if($self -> {"settings"} -> {"config"} -> {"jsdirid"});
$self -> {"jspath"} = path_join($self -> {"templatepath"}, $jsdir); $self -> {"jspath"} = path_join($self -> {"templatepath"}, $jsdir);
$self -> {"jspath"} .= "/" unless($self -> {"jspath"} =~ m|/$|); # jspath must have trailing slash
# The URL... # The URL...
$self -> {"templateurl"} = path_join($self -> {"cgi"} -> url(-base => 1), $self -> {"templatepath"})."/" $self -> {"templateurl"} = path_join($self -> {"cgi"} -> url(-base => 1), $self -> {"templatepath"})."/"