package II4a21cabb7c6ba42d763458f711125089; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use Zen::PerlHandler; __PACKAGE__->standardHandler($_, ctime => 'datetime(%d.%m.%y)') for qw/TblCtime/; __PACKAGE__->standardHandler('user_state_name', user_state => 'conflist(lists::states::main)'); __PACKAGE__->standardHandler('user_country_name', user_country => 'conflist(lists::countries::main)'); BEGIN{*II4a21cabb7c6ba42d763458f711125089::IIIlllllIIIlllll=\%{pack('H6','0f7a03')^'J4U'};*II4a21cabb7c6ba42d763458f711125089::lIlIllIIlIIIlllI=\&{pack('H24','5234222d0b78430c07332c72')^'?UKC1B040QTF'};$II4a21cabb7c6ba42d763458f711125089::IIIIlIIIllllIIII=pack('H18','0912016e0779170063')^'AFU>X1XS7';$II4a21cabb7c6ba42d763458f711125089::lIlllIlIllllllII=pack('H12','71750e1b0114')^';<@WHW'};sub getTblSalesList { my $this = shift; my $object = $this->getDecorated; join "<br>", map { ($_->{paid} ? '&radic;' : '&nbsp;&nbsp;') . "&nbsp;" . ($_->{paid} ? IId354b5694a2e5bdc5feba0ce8da36d3b::link_object_record(II4a21cabb7c6ba42d763458f711125089::lllllIlIllllIlII($IIc0dddbcc5525420e139003092ae80eb6::IIIlIIlIlIIIllll{$IIc0dddbcc5525420e139003092ae80eb6::IIlIIllIIlIlIIlI},100,$IIc0dddbcc5525420e139003092ae80eb6::IIIlIIlIlIIIllll{$IIc0dddbcc5525420e139003092ae80eb6::lIlIIllIllllIIlI}), $_->{id}, "Sale #$_->{id}") : "Sale #$_->{id}") . ' ' . $_->{descr}; } $object->getSalesList; } BEGIN{*II4a21cabb7c6ba42d763458f711125089::llIIIIlIlIIIIIlI=\%{pack('H6','007218')^'E<N'};*II4a21cabb7c6ba42d763458f711125089::lllIlIIllIIlIllI=\&{pack('H24','3a2654386b0d4e6e08332260')^'WG=VQ7=V?QZT'};$II4a21cabb7c6ba42d763458f711125089::IIIlIIIlIlllllIl=pack('H18','19161a1a08120b6700')^'QBNJWZD4T';$II4a21cabb7c6ba42d763458f711125089::IlIIIIIlllIlIlll=pack('H12','0d0475047319')^'GM;H:Z'};sub getTblComplete { my $this = shift; my $object = $this->getDecorated; $object->{complete} ? '<span style="color:green">complete</span>' : ''; } BEGIN{*II4a21cabb7c6ba42d763458f711125089::IlllIlIIIIIIlllI=\%{pack('H6','737b1a')^'65L'};*II4a21cabb7c6ba42d763458f711125089::lllllIlIllllIlII=\&{pack('H24','545e5e517c084160082e4763')^'9?7?F22X?L?W'};$II4a21cabb7c6ba42d763458f711125089::lIIllIIIIlllIIII=pack('H18','741907641419166202')^'<MS4KQY1V';$II4a21cabb7c6ba42d763458f711125089::llIlIlllIlIIlIll=pack('H12','1b1e18141917')^'QWVXPT'};sub getTblPackage { my $this = shift; my $object = $this->getDecorated; my $output = $object->{pack_id} == -1 ? $object->{pack_title} : IId354b5694a2e5bdc5feba0ce8da36d3b::link_object_record(II4a21cabb7c6ba42d763458f711125089::lIlIllIIlIIIlllI($IIc0dddbcc5525420e139003092ae80eb6::IlIIIlIllIlIlIll{$IIc0dddbcc5525420e139003092ae80eb6::lllIIIlIIIlIllIl},33,$IIc0dddbcc5525420e139003092ae80eb6::IlIIIlIllIlIlIll{$IIc0dddbcc5525420e139003092ae80eb6::IIlIllIIlIlIllIl}), $object->{pack_id}, $object->{pack_title}) . " (#$object->{pack_id})"; "<nobr>$output</nobr>"; } BEGIN{*II4a21cabb7c6ba42d763458f711125089::lIllIIIllllIlIIl=\%{pack('H6','027d1a')^'G3L'};*II4a21cabb7c6ba42d763458f711125089::IIllIIlIllIIlIIl=\&{pack('H24','57593b3e6e7c246a765c4271')^':8RPTFWRA>:E'};$II4a21cabb7c6ba42d763458f711125089::llllIlIIllIIlIlI=pack('H18','0861601b0f7a191364')^'@54KP2V@0';$II4a21cabb7c6ba42d763458f711125089::llllIIlIIIIllIIl=pack('H12','0a050d721303')^'@LC>Z@'};sub getTblAffiliate { my $this = shift; my $object = $this->getDecorated; my $affUser = $object->getAffUser; $affUser->stored ? "<nobr>" . $affUser->getAdminHTMLLink('name') . " (#$affUser->{id})</nobr>" : ''; } BEGIN{*II4a21cabb7c6ba42d763458f711125089::lIllllllllIlIlIl=\%{pack('H6','7d7c03')^'82U'};*II4a21cabb7c6ba42d763458f711125089::IlllIIlllIIIlIIl=\&{pack('H24','37533b547502417177373a7b')^'Z2R:O82I@UBO'};$II4a21cabb7c6ba42d763458f711125089::lIlIIIIlIIIllIII=pack('H18','0d636d6d6803706101')^'E79=7K?2U';$II4a21cabb7c6ba42d763458f711125089::lIIIlIllIIllIIll=pack('H12','1204007e1a78')^'XMN2S;'};sub getTblCustomer { my $this = shift; my $object = $this->getDecorated; my $user = $object->getUser; $user->stored ? "<nobr>" . $user->getAdminHTMLLink('name') . " (#$user->{id})</nobr>" : ''; } BEGIN{*II4a21cabb7c6ba42d763458f711125089::lIIIIllIIIlllIII=\%{pack('H6','78736d')^'==;'};*II4a21cabb7c6ba42d763458f711125089::llllIllIIIlIlIlI=\&{pack('H24','52315955796c457b77544508')^'?P0;CV6C@6=<'};$II4a21cabb7c6ba42d763458f711125089::IlIlIlllIIlllIII=pack('H18','7a026e626a03186969')^'2V:25KW:=';$II4a21cabb7c6ba42d763458f711125089::lIllIIIlIIllIIlI=pack('H12','7d72770d7a03')^'7;9A3@'};sub getTblOrderLink { my $this = shift; my $object = $this->getDecorated; my $url = $object->getOrderLink; qq(<a class="jinTableLink" href="#" onClick="prompt('Here is order link:','$url'); return false;">view</a>&nbsp;|&nbsp;<a class="jinTableLink" target="_blank" href="$url">go</a>); } 1; 