use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");my $o = Zen::PerlHandler->get(IIb39071a48a82a07eeb9256f406abebc5::lIIlIIIlllllllII($IIb39071a48a82a07eeb9256f406abebc5::IIllIIIIIIIIlllI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllIlIIllI},47,$IIb39071a48a82a07eeb9256f406abebc5::IIllIIIIIIIIlllI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIllIlllllllII}).'->getOrDummy')->do();$C->{SYS} = $o->getView("" || undef);$this->out("\n");$C->{StepsList} = Zen::PerlHandler->get(II982446f8950cc3dc59e487adba22df54::IIlllIlIIllIIlll($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIIIlIlIlIII{$II982446f8950cc3dc59e487adba22df54::IIlIIIIIlIIlIllI},134,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIIIlIlIlIII{$II720d6e18aa34327713eb014408fc9144::IllIllIIlIIIIlIl}).'->search')->do(series_id => $C->{Object}{id}, ORDER => 'ctime');$_ = $_->getView for @{ $C->{StepsList} };$this->out("\n");my $in = $C->{StepsList};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{p} = -1;for my $f (@$loop) {$C->{ITERATION}{p}++;$C->{p} = $f;$this->out("\n<a href=\"$C->{SYS}{URI}/master/affiliates/series/series_step.html?TabAct=edit&ObjectID=$C->{p}{id}&cgi_ret=$C->{SYS}{URI}/master/affiliates/series.html?flush\"><img src=\"$C->{SYS}{URL}/suppl/atk/edit.png\" border=0 alt=\"Edit\"></a>\n\n<a href=\"#\" onClick=\"if (confirm(\'Are you sure you want to delete this step?\')) document.location=\'$C->{SYS}{URL}/master/affiliates/series/series_step.html?TabAct=delete&ObjectID=$C->{p}{id}&cgi_ret=$C->{SYS}{URI}/master/affiliates/series.html?flush\'; return false\"><img src=\"$C->{SYS}{URL}/suppl/atk/delete.png\" border=0 alt=\"Delete\"></a>\n\n$C->{p}{TblAffprogTitle}<br>\n");}$this->out("\n<a href=\"$C->{SYS}{URL}/master/affiliates/series/series_step.html?TabAct=edit&cgi_ret=$C->{SYS}{URI}/master/affiliates/series.html?flush&TabCustom1=$C->{Object}{id}\">[add new step]</a>\n");}