Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
43 lines (41 sloc) 1.21 KB
# Copyright 2002-2007 Interchange Development Group and others
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
UserTag unpack PosNumber 0
UserTag unpack addAttr
UserTag unpack hasEndTag
UserTag unpack Interpolate
UserTag unpack Version 1.4
UserTag unpack Routine <<EOR
sub {
my ($opt, $template) = @_;
Vend::Interpolate::substitute_image(\$template);
if($Vend::MultiOutput) {
#::logDebug("We have mult-output");
for my $space (keys %Vend::OutPtr) {
#::logDebug("Filtering $space");
my $things = $Vend::OutPtr{$space} || [];
for my $ptr (@$things) {
my $subs = $Vend::OutFilter{$space} || [];
for my $sub (@$subs) {
#::logDebug("Filtering ${$Vend::Output[$ptr]}");
$sub->($Vend::Output[$ptr]);
#::logDebug("Now is ${$Vend::Output[$ptr]}");
}
}
}
}
else {
for(@Vend::Output) {
Vend::Interpolate::substitute_image($_);
}
}
undef $Vend::MultiOutput;
$::Pragma->{no_image_rewrite} = 1;
Vend::Page::templatize($template);
return;
}
EOR