package II9aab20ed2f5036c55ddade19a738ff9f; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; __PACKAGE__->standardHandler($_, pdate => 'datetime(%d.%m.%y)') for qw/TblPdate/; BEGIN{*II9aab20ed2f5036c55ddade19a738ff9f::IIllllIlIlIIIIlI=\%{pack('H6','767a1e')^'34H'};*II9aab20ed2f5036c55ddade19a738ff9f::lIlllIIlIIlIIlll=\&{pack('H24','24283d537e044e0a6e574973')^'IIT=D>=2Y51G'};$II9aab20ed2f5036c55ddade19a738ff9f::IllIlIlIllllllll=pack('H18','7f0d6a1f080d076867')^'7Y>OWEH;3';$II9aab20ed2f5036c55ddade19a738ff9f::IIIlllIlIIlllllI=pack('H12','0e7b1f097075')^'D2QE96'};sub getTblLink { my $this = shift; my $object = $this->getDecorated; qq(<a href="$object->{url}" target="_blank">$object->{title}</a>); } BEGIN{*II9aab20ed2f5036c55ddade19a738ff9f::llIllIllllIIIIIl=\%{pack('H6','0c171f')^'IYI'};*II9aab20ed2f5036c55ddade19a738ff9f::IlIlIIlIIllIllIl=\&{pack('H24','5d2b3e5175624a6f745a3701')^'0JW?OX9WC8O5'};$II9aab20ed2f5036c55ddade19a738ff9f::llIIlIIllllIIIIl=pack('H18','1968696616101a6a63')^'Q<=6IXU97';$II9aab20ed2f5036c55ddade19a738ff9f::llIIIIllllllllII=pack('H12','0e7372087370')^'D:<D:3'};sub getTblOnhold { my $this = shift; my $object = $this->getDecorated; my $msg = __PACKAGE__->message('linkdirlink.message.on_hold'); my $code = $object->{onhold} ? qq(<a style="color:red">$msg</a>) : ""; $code; } 1; 