unpack — unpacks mapped output into template
Attribute | Pos. | Req. | Default | Description |
---|---|---|---|---|
interpolate | 1 | interpolate input? | ||
reparse | 1 | interpolate output? | ||
hide | 0 | Hide the tag return value? |
Interchange 5.9.0:
Source: code/SystemTag/unpack.coretag
Lines: 44
# 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. # # $Id: unpack.coretag,v 1.4 2007-03-30 23:40:49 pajamian Exp $ UserTag unpack PosNumber 0 UserTag unpack addAttr UserTag unpack hasEndTag UserTag unpack Interpolate UserTag unpack Version $Revision: 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