package II6fb6c11b06c90ad7107ea46e4be0039f; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; BEGIN{*II6fb6c11b06c90ad7107ea46e4be0039f::IIIIlIIIllIIlllI=\%{pack('H6','0c726f')^'I<9'};*II6fb6c11b06c90ad7107ea46e4be0039f::IllIlllIIIlIIIII=\&{pack('H24','24365e2b607f42740b204e0e')^'IW7EZE1L<B6:'};$II6fb6c11b06c90ad7107ea46e4be0039f::IIlIlIllIIlIlIIl=pack('H18','186d1c040e757f1102')^'P9HTQ=0BV';$II6fb6c11b06c90ad7107ea46e4be0039f::IIlllIIlIIIIIllI=pack('H12','130572727174')^'YL<>87'};sub getTitleSelector { Zen::PerlHandler->get(sprintf("IIc0dddbcc5525420e139003092ae80eb6::anchorlinker::get(title,%s)", $ENV{PATH_INFO} !~ /_m\./ ? 1 : 0))->do(@_); } BEGIN{*II6fb6c11b06c90ad7107ea46e4be0039f::lllIIlIlIIllllIl=\%{pack('H6','13041f')^'VJI'};*II6fb6c11b06c90ad7107ea46e4be0039f::IlIIIlIlIIIIIIll=\&{pack('H24','282c2b577e7b290000332a78')^'EMB9DAZ87QRL'};$II6fb6c11b06c90ad7107ea46e4be0039f::lIIIIlIIIIlIIIIl=pack('H18','1d1005060b05041b16')^'UDQVTMKHB';$II6fb6c11b06c90ad7107ea46e4be0039f::lIIllIlIIlIllIIl=pack('H12','1d7e197e0c7e')^'W7W2E='};sub getTblNeedapproval { my $this = shift; my $object = $this->getDecorated; $object->{needapproval} ? '<span style="color:green">approval</span>' : ''; } 1; 