diff options
Diffstat (limited to 'Xerl/Page')
| -rw-r--r-- | Xerl/Page/Content.pm | 9 | ||||
| -rw-r--r-- | Xerl/Page/Templates.pm | 9 |
2 files changed, 9 insertions, 9 deletions
diff --git a/Xerl/Page/Content.pm b/Xerl/Page/Content.pm index 05a206d..c091c70 100644 --- a/Xerl/Page/Content.pm +++ b/Xerl/Page/Content.pm @@ -72,10 +72,10 @@ sub insertrules { } sub _insertrules { - my $self = $_[0]; - my $rules = $_[1]; - my $element = $_[2]; - my $config = $self->get_config(); + my $self = $_[0]; + my $rules = $_[1]; + my $element = $_[2]; + my $config = $self->get_config(); my $nonewlines = 0; # Don't interate through the XML childs if we have a leaf node. @@ -109,6 +109,7 @@ sub _insertrules { } elsif ( lc $name eq 'inject' ) { + # Fetch via LWP::Simple my $got = get($text); $got =~ s/</</g; diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm index a2b2880..341e0dc 100644 --- a/Xerl/Page/Templates.pm +++ b/Xerl/Page/Templates.pm @@ -24,8 +24,8 @@ use Xerl::Tools::FileIO; use constant RECURSIVE => 1; sub parse { - my $self = $_[0]; - my $config = $self->get_config(); + my $self = $_[0]; + my $config = $self->get_config(); my $site = $config->get_site(); @@ -138,8 +138,8 @@ sub parse { } sub parsetemplate { - my $self = $_[0]; - my $config = $self->get_config(); + my $self = $_[0]; + my $config = $self->get_config(); my $deepnesslevel = $_[2] || 0; return $self if $deepnesslevel == 100; @@ -195,7 +195,6 @@ sub print { $line =~ s/!!GT!!/>/g; $line =~ s#!!URL\((.+?)\)!!#<a href="$1">$1</a>#g; - print $line; } |