package II3aaf9f250c2a79e3874987e0171918f2; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use IIc6aa3e82c386b089a6d7ec2e1ba751e0; use IId354b5694a2e5bdc5feba0ce8da36d3b; __PACKAGE__->standardHandler('TitleEditlink', title => 'editlink'); __PACKAGE__->standardHandler('DelSeries', del_series => 'relobjviews(II0c124bc2b4053fbe458810f5aab24564)'); BEGIN{*II3aaf9f250c2a79e3874987e0171918f2::IIIllIIlllIIIIlI=\%{pack('H6','041c1e')^'ARH'};*II3aaf9f250c2a79e3874987e0171918f2::lIllIIlllllllllI=\&{pack('H24','5d5f3c2e7978380c78234e6d')^'0>U@CBK4OA6Y'};$II3aaf9f250c2a79e3874987e0171918f2::lllIllIIlllIIIIl=pack('H18','09050517051b1d681b')^'AQQGZSR;O';$II3aaf9f250c2a79e3874987e0171918f2::llIIlIIlllIlIlll=pack('H12','000f1c0a1d7d')^'JFRFT>'};sub getTitleSelector { Zen::PerlHandler->get(sprintf("IIc0dddbcc5525420e139003092ae80eb6::anchorlinker::get(title,%s)", $ENV{PATH_INFO} !~ /_m\./ ? 1 : 0))->do(@_); } BEGIN{*II3aaf9f250c2a79e3874987e0171918f2::lllIIIlIlIllIIll=\%{pack('H6','04010f')^'AOY'};*II3aaf9f250c2a79e3874987e0171918f2::llIlllIIIIIlIlll=\&{pack('H24','20252f586005440777314664')^'MDF6Z?7?@S>P'};$II3aaf9f250c2a79e3874987e0171918f2::IIIlIlIIIlllIIII=pack('H18','0b1d0511627f181511')^'CIQA=7WFE';$II3aaf9f250c2a79e3874987e0171918f2::IIIlIlIlIlIIlllI=pack('H12','7d7a011a7309')^'73OV:J'};sub getTblProducts { my $this = shift; my $object = $this->getDecorated; my @prods = IId354b5694a2e5bdc5feba0ce8da36d3b::llllIIlllllIIlIl($IIc0dddbcc5525420e139003092ae80eb6::IlIIlllIlllllIIl{$IIc0dddbcc5525420e139003092ae80eb6::IllllIlllIIIIIII},170,$IIc0dddbcc5525420e139003092ae80eb6::IlIIlllIlllllIIl{$IId354b5694a2e5bdc5feba0ce8da36d3b::IIlIIIIIIlIIlIII})->search(WHERE => "find_in_set(id,'$object->{prods}')", ORDER => 'id desc'); join '<br>', map { IId354b5694a2e5bdc5feba0ce8da36d3b::link_object_record(IIc6aa3e82c386b089a6d7ec2e1ba751e0::llllIlllIIllIlII($II3aaf9f250c2a79e3874987e0171918f2::IIIllIIlllIIIIlI{$IIc0dddbcc5525420e139003092ae80eb6::IllIIllIIlllllII},170,$II3aaf9f250c2a79e3874987e0171918f2::IIIllIIlllIIIIlI{$IIc6aa3e82c386b089a6d7ec2e1ba751e0::lIIlIlIIllIlllII}), $_->{id}, $_->{title}) . " (#$_->{id})" } @prods; } 1; 