package II0991810f54215427fba8a74b92d529f9; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use IId354b5694a2e5bdc5feba0ce8da36d3b; BEGIN{*IIbb432e54fc61c22ecd8d5b84d8a2bb85::IllllIlIIIIIlllI=\%{pack('H6','7a7f06')^'?1P'};*IIbb432e54fc61c22ecd8d5b84d8a2bb85::llIlIIIIllIllIIl=\&{pack('H24','3e293a22756a410a615e4d7e')^'SHSLOP22V<5J'};$IIe941599074ed6b7092c1cfdcdb167300.bcp::View::llIIllIllIIIlllI=pack('H18','796210036a0f771160')^'16DS5G8B4';$IIe941599074ed6b7092c1cfdcdb167300.bcp::View::IIIIIIlllIllllII=pack('H12','7c037b1e0f19')^'6J5RFZ'};sub getTitleSelector { Zen::PerlHandler->get(sprintf("IIc0dddbcc5525420e139003092ae80eb6::anchorlinker::get(title,%s)", $ENV{PATH_INFO} !~ /_m\./ ? 1 : 0))->do(@_); } BEGIN{*IIbb432e54fc61c22ecd8d5b84d8a2bb85::lllIIllIlIIlIIlI=\%{pack('H6','011b12')^'DUD'};*IIbb432e54fc61c22ecd8d5b84d8a2bb85::IlIlllIIIIIlIIIl=\&{pack('H24','38355f527871436f00564664')^'UT6<BK0W74>P'};$IIe941599074ed6b7092c1cfdcdb167300.bcp::View::lIIIlIllIlIIIlll=pack('H18','0a111a616271086462')^'BEN1=9G76';$IIe941599074ed6b7092c1cfdcdb167300.bcp::View::IIIllllIlIIllIlI=pack('H12','047203147710')^'N;MX>S'};sub getTblLinkedID { my $this = shift; my $object = $this->getDecorated; IId354b5694a2e5bdc5feba0ce8da36d3b::link_object_record(IIc0dddbcc5525420e139003092ae80eb6::IIIIlllllIlIllII($IIc0dddbcc5525420e139003092ae80eb6::IIIlIIlIlIIIllll{$IIe941599074ed6b7092c1cfdcdb167300.bcp::View::lIIIlIllIlIIIlll},75,$IIc0dddbcc5525420e139003092ae80eb6::IIIlIIlIlIIIllll{$IIc0dddbcc5525420e139003092ae80eb6::llllIIIIlIlllIII}), $object->{id}, $object->{id}); } 1; 