package IIfc041da783cce149a4fa0b5ed12082a4; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; BEGIN{*IIfc041da783cce149a4fa0b5ed12082a4::IlIllIlllIIlIIlI=\%{pack('H6','117569')^'T;?'};*IIfc041da783cce149a4fa0b5ed12082a4::lIIlIlIIllllIIll=\&{pack('H24','3f5a592c707b3968735e2905')^'R;0BJAJPD<Q1'};$IIfc041da783cce149a4fa0b5ed12082a4::IIlIIlIIIlIIlllI=pack('H18','1814620814007f111e')^'P@6XKH0BJ';$IIfc041da783cce149a4fa0b5ed12082a4::IlIlllIllllIIIlI=pack('H12','1e1a197c760d')^'TSW0?N'};sub getTblLinks { my $this = shift; my $request = Zen->getRequest; my $object = $this->getDecorated; my $params = join '&', map { "$_=" . $request->URLEncode($object->{$_}) } ('id', $object->fields); my $id = $object->id; my $sys_uri = IIc0dddbcc5525420e139003092ae80eb6::lIlllIIlIllllIll($IIfc041da783cce149a4fa0b5ed12082a4::IlIllIlllIIlIIlI{$IIc0dddbcc5525420e139003092ae80eb6::IIlIIllIIlIlIIlI},47,$IIfc041da783cce149a4fa0b5ed12082a4::IlIllIlllIIlIIlI{$IIc0dddbcc5525420e139003092ae80eb6::lIlIIllIllllIIlI})->getURI; qq(<a target="_blank" href="$sys_uri/master/customers/jvmsubs/contretent.html?format=html&$params">HTML</a>) . '&nbsp;|&nbsp;' . qq(<a href="$sys_uri/master/customers/jvmsubs/contretent.html?format=excel&$params">Excel</a>) . '&nbsp;|&nbsp;' . qq(<a href="$sys_uri/master/customers/jvmsubs/contretent.html?format=csv&$params">CSV</a>); } 1; 