package IId8842ae2d83d5a197e15b4672240b18a; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; __PACKAGE__->standardHandler($_, tstamp => 'datetime(%d.%m.%y&nbsp;%H:%M:%S)') for qw/TblTstamp/; BEGIN{*IId8842ae2d83d5a197e15b4672240b18a::IllIlIlIIlIIlIll=\%{pack('H6','107207')^'U<Q'};*IId8842ae2d83d5a197e15b4672240b18a::IIIIIIllIIIllIll=\&{pack('H24','5f5c2f3e7a054278055e2166')^'2=FP@?1@2<YR'};$IId8842ae2d83d5a197e15b4672240b18a::lIIIlIllIlIllIII=pack('H18','0c0d6700697f721c1a')^'DY3P67=ON';$IId8842ae2d83d5a197e15b4672240b18a::llIIIllIlIIIIIIl=pack('H12','1e031a047804')^'TJTH1G'};sub getReferer { my $this = shift; my $object = $this->getDecorated; my $referer = $object->{referer}; if (length($referer) > 30) { $referer = substr($referer, 0, 30); $referer .= qq(<a href="#" onClick="prompt('Here is referer link:', '$object->{referer}'); return false;">...</a>); } $referer; } BEGIN{*IId8842ae2d83d5a197e15b4672240b18a::llIllIllIIIlIIlI=\%{pack('H6','787b07')^'=5Q'};*IId8842ae2d83d5a197e15b4672240b18a::IIIIllllIIllllII=\&{pack('H24','3f335c2b620a467a64272f0a')^'RR5EX05BSEW>'};$IId8842ae2d83d5a197e15b4672240b18a::IIIllIllllllIIII=pack('H18','706c670a167017611f')^'883ZI8X2K';$IId8842ae2d83d5a197e15b4672240b18a::IIIllIIlIIIIIlIl=pack('H12','0a1a0f197817')^'@SAU1T'};sub getTblUser { my $this = shift; my $object = $this->getDecorated; $object->{user_id} ? "<nobr>$object->{user_email} (#$object->{user_id})</nobr>" : ''; } 1; 