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

Allow version IDs for javascript path (allows cache bypass force)

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

6
Webperl/Template.pm
View File

@ -356,6 +356,11 @@ sub set_template_dir {
$self -> {"templatepath"} = path_join($self -> {"scriptpath"}, $self -> {"basedir"}, $self -> {"theme"}); $self -> {"templatepath"} = path_join($self -> {"scriptpath"}, $self -> {"basedir"}, $self -> {"theme"});
$self -> {"templatepath"} .= "/" unless($self -> {"templatepath"} =~ m|/$|); # templatepath must have trailing slash $self -> {"templatepath"} .= "/" unless($self -> {"templatepath"} =~ m|/$|); # templatepath must have trailing slash
# work out the javascript path
my $jsdir = "js";
$jsdir .= "_".$self -> {"settings"} -> {"config"} -> {"jsdirid"} if($self -> {"settings"} -> {"config"} -> {"jsdirid"});
$self -> {"jspath"} = path_join($self -> {"templatepath"}, $jsdir);
# 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"})."/"
if($self -> {"cgi"}); if($self -> {"cgi"});
@ -546,6 +551,7 @@ sub fix_variables {
$$textref =~ s/{V_\[scriptpath\]}/$self->{scriptpath}/g; $$textref =~ s/{V_\[scriptpath\]}/$self->{scriptpath}/g;
$$textref =~ s/{V_\[templatepath\]}/$self->{templatepath}/g; $$textref =~ s/{V_\[templatepath\]}/$self->{templatepath}/g;
$$textref =~ s/{V_\[templateurl\]}/$self->{templateurl}/g; $$textref =~ s/{V_\[templateurl\]}/$self->{templateurl}/g;
$$textref =~ s/{V_\[jspath\]}/$self->{jspath}/g;
$$textref =~ s/{V_\[commonpath\]}/$self->{commonpath}/g; $$textref =~ s/{V_\[commonpath\]}/$self->{commonpath}/g;
$$textref =~ s/{V_\[sitename\]}/$self->{settings}->{config}->{site_name}/g; $$textref =~ s/{V_\[sitename\]}/$self->{settings}->{config}->{site_name}/g;
$$textref =~ s/{V_\[admin_email\]}/$email/g; $$textref =~ s/{V_\[admin_email\]}/$email/g;