use strict;return sub{my $this = shift;my $C = $this->{C};$this->out("");my $o = Zen::PerlHandler->get(II720d6e18aa34327713eb014408fc9144::IIllIllIIlIIIlll($II982446f8950cc3dc59e487adba22df54::llIIlIllIIIIIIlI{$IIb39071a48a82a07eeb9256f406abebc5::IllIlIIllIlIIIll},47,$II982446f8950cc3dc59e487adba22df54::llIIlIllIIIIIIlI{$IIb39071a48a82a07eeb9256f406abebc5::IlIIllllllIIIlll}).'->getOrDummy')->do();$C->{SYS} = $o->getView("" || undef);$this->out("\n");$C->{CategoriesList} = Zen::PerlHandler->get(II720d6e18aa34327713eb014408fc9144::llllllIlIIIIllll($II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlllIIIlIIIlIlI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllIlIIllIlIIllI},32,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlllIIIlIIIlIlI{$II982446f8950cc3dc59e487adba22df54::IllIIllIIIIlIIll}).'->search')->do(group_id => $C->{Object}{id}, ORDER => 'id');$_ = $_->getView for @{ $C->{CategoriesList} };$this->out("\n");my $in = $C->{CategoriesList};my $loop = ref($in) eq "ARRAY" ? $in : ref($in) eq "CODE" ? &{$in} : [];$C->{ITERATION}{cat} = -1;for my $f (@$loop) {$C->{ITERATION}{cat}++;$C->{cat} = $f;$this->out("\n<a href=\"$C->{SYS}{URL}/master/users/insignia/category.html?TabAct=edit&ObjectID=$C->{cat}{id}&TabCustom1=$C->{Object}{id}&cgi_ret=$C->{SYS}{URI}/master/users/insignia.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 category?\')) document.location=\'$C->{SYS}{URL}/master/users/insignia/category.html?TabAct=delete&ObjectID=$C->{cat}{id}&cgi_ret=$C->{SYS}{URI}/master/users/insignia.html?flush\'; return false\"><img src=\"$C->{SYS}{URL}/suppl/atk/delete.png\" border=0 alt=\"Delete\"></a>\n\n$C->{cat}{TblTitle}<br>\n");}$this->out("\n<a href=\"$C->{SYS}{URL}/master/users/insignia/category.html?TabAct=edit&TabCustom1=$C->{Object}{id}&cgi_ret=$C->{SYS}{URI}/master/users/insignia.html?flush\">[add new category]</a>\n\n");}