use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");{my $G = (ref $this)->get("/headfoot/inner_header.html", $this->{param}) or die "no skel /headfoot/inner_header.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("\n<div style=\"margin: 7px\">\n\n<br>\n\n");$C->{FunnelElements} = Zen::PerlHandler->get(II720d6e18aa34327713eb014408fc9144::IlllIllllIllIIIl($IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIllIllIllI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIIlIlIlIlIIIl},72,$IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIllIllIllI{$IIb39071a48a82a07eeb9256f406abebc5::llIIIllIIlIIIIIl}).'->search')->do(ORDER => 'title');$_ = $_->getView for @{ $C->{FunnelElements} };$this->out("<table border=0 cellpadding=0 cellspacing=1 class=atkMainTable>\n<tr><td class=atkHeader>Elements</td></tr>\n<tr><td><table class=atkInnerTable cellpadding=4 cellspacing=3 width=100\%>\n");my $in = $C->{FunnelElements};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{e} = -1;for my $f (@$loop) {$C->{ITERATION}{e}++;$C->{e} = $f;$this->out("");$C->{tagname} = $C->{e}{tagname} || $C->{e}{id};$this->out("<tr>\n	<td class=atkEditorLeft><b>#{</b><b>FunnelElement.$C->{tagname}}</b></td>\n	<td class=atkEditorRight>$C->{e}{title}</td>\n</tr>\n");}$this->out("</table></td></tr>\n<tr><td class=atkEditorControl>&nbsp;</td></tr>\n</table>  \n\n</div>\n\n");{my $G = (ref $this)->get("/headfoot/inner_footer.html", $this->{param}) or die "no skel /headfoot/inner_footer.html";my $ctx = $this->{C};my $out = $G->execute($ctx);$this->out(@$out) if $out;}$this->out("");}