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

Ugh, hash problems.

Browse Source
This commit is contained in:
Chris 2013-05-16 17:01:08 +01:00
parent 376cbd3274
commit 8c70807c73
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Webperl/Template.pm
View File

@ -537,11 +537,12 @@ sub fix_variables {
my $textref = shift; my $textref = shift;
# Fix 'standard' variables # Fix 'standard' variables
my $email = $self->{settings}->{config}->{"Core:admin_email"};
$$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_\[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\]}/$self->{settings}->{config}->{Core:admin_email}/g; $$textref =~ s/{V_\[admin_email\]}/$email/g;
# Do any module marker replacements if we can # Do any module marker replacements if we can
if($self -> {"modules"}) { if($self -> {"modules"}) {