package IIf2acfeb405ce9f8ecd59c06bf58b7d2d; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use IId354b5694a2e5bdc5feba0ce8da36d3b; BEGIN{*IIf2acfeb405ce9f8ecd59c06bf58b7d2d::lIIIllIlIIllIIII=\%{pack('H6','7b090e')^'>GX'};*IIf2acfeb405ce9f8ecd59c06bf58b7d2d::lllIIIIIlIlIlIll=\&{pack('H24','3f5b253f7f704b74603a3005')^'R:LQEJ8LWXH1'};$IIf2acfeb405ce9f8ecd59c06bf58b7d2d::IIIIIllIlIIlIIll=pack('H18','06131962197d780a11')^'NGM2F57YE';$IIf2acfeb405ce9f8ecd59c06bf58b7d2d::lIlIIlllIlIIlIll=pack('H12','7810070e1f01')^'2YIBVB'};sub getTitleSelector { Zen::PerlHandler->get(sprintf("IIc0dddbcc5525420e139003092ae80eb6::anchorlinker::get(title,%s)", $ENV{PATH_INFO} !~ /_m\./ ? 1 : 0))->do(@_); } BEGIN{*IIf2acfeb405ce9f8ecd59c06bf58b7d2d::IIIllllIllllIlll=\%{pack('H6','780006')^'=NP'};*IIf2acfeb405ce9f8ecd59c06bf58b7d2d::IlIlIllIIllIIIlI=\&{pack('H24','5b3057367963367b0f303071')^'6Q>XCYEC8RHE'};$IIf2acfeb405ce9f8ecd59c06bf58b7d2d::IIIIIlIlIIlIIIIl=pack('H18','7f6b6f026f0616020c')^'7?;R0NYQX';$IIf2acfeb405ce9f8ecd59c06bf58b7d2d::IlIlIlIllIIIIlll=pack('H12','1075721d0d7c')^'Z<<QD?'};sub getTblLinkedID { my $this = shift; my $object = $this->getDecorated; IId354b5694a2e5bdc5feba0ce8da36d3b::link_object_record(IId354b5694a2e5bdc5feba0ce8da36d3b::llllIIlllllIIlIl($IIf2acfeb405ce9f8ecd59c06bf58b7d2d::IIIllllIllllIlll{$IIc0dddbcc5525420e139003092ae80eb6::IIIIIIIIlIlIIIlI},13,$IIf2acfeb405ce9f8ecd59c06bf58b7d2d::IIIllllIllllIlll{$IIc0dddbcc5525420e139003092ae80eb6::llIIIlllllIIIIlI}), $object->{id}, $object->{id}); } 1; 