use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");$C->{Blocks} = Zen::PerlHandler->get(II720d6e18aa34327713eb014408fc9144::IlIlIlIIIIllIlII($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIIIIIIIllIIIIIl},142,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II720d6e18aa34327713eb014408fc9144::IlIIllIlllllIIll}).'->search')->do(ORDER => 'seq');$_ = $_->getView for @{ $C->{Blocks} };$this->out("");my $in = $C->{Blocks};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{b} = -1;for my $f (@$loop) {$C->{ITERATION}{b}++;$C->{b} = $f;$this->out("$C->{b}{HTML}\n");}$this->out("");}