# 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