package II8e0eff862c984e8b3643580b0a4d5ab8; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use IIf404c8dfc046e4729558b9aff233579c; __PACKAGE__->standardHandler('TitleEditlink', title => 'editlink'); __PACKAGE__->standardHandler('CommissionSpecialUnpacked', commission_special => 'packedtable(II900434c9d4991b975f395c683d7490a7::packedtable_affprog_commission_special)'); BEGIN{*II8e0eff862c984e8b3643580b0a4d5ab8::IllIIIlllIlIIIlI=\%{pack('H6','130d1f')^'VCI'};*II8e0eff862c984e8b3643580b0a4d5ab8::IIIlIIllIIllIlII=\&{pack('H24','582530390d6c3e7a055a3c78')^'5DYW7VMB28DL'};$II8e0eff862c984e8b3643580b0a4d5ab8::lIlIIIIIIlIIlIII=pack('H18','041e64171b0470621f')^'LJ0GDL?1K';$II8e0eff862c984e8b3643580b0a4d5ab8::lIlIlllIllIIllIl=pack('H12','787d0514797f')^'24KX0<'};sub getTitleSelector { Zen::PerlHandler->get(sprintf("IIc0dddbcc5525420e139003092ae80eb6::anchorlinker::get(title,%s)", $ENV{PATH_INFO} !~ /_m\./ ? 1 : 0))->do(@_); } BEGIN{*II8e0eff862c984e8b3643580b0a4d5ab8::IIIIllllllIllIll=\%{pack('H6','7e740c')^';:Z'};*II8e0eff862c984e8b3643580b0a4d5ab8::lIlIlllIIIIlIlll=\&{pack('H24','52533c2f62032168065c4662')^'?2UAX9RP1>>V'};$II8e0eff862c984e8b3643580b0a4d5ab8::lIllIlIlIlIIIIlI=pack('H18','7519026e1c05176b1b')^'=MV>CMX8O';$II8e0eff862c984e8b3643580b0a4d5ab8::IIllIIIIIllIIIII=pack('H12','06021b081803')^'LKUDQ@'};sub getTblCommission_special { my $this = shift; my @lines; my $i = 0; for my $comm ( @{$this->{CommissionSpecialUnpacked}} ) { $i++; my $irr = $comm->{irr} ? __PACKAGE__->message('affprog.form.msg.irreducible') : ''; my $value = $comm->{mode} eq '$' ? IIf404c8dfc046e4729558b9aff233579c::llIIlIllIIIIllIl($IIc0dddbcc5525420e139003092ae80eb6::IllllIlIIlIIIlIl{$IIc0dddbcc5525420e139003092ae80eb6::IIIIIIIIlIlIIIlI},81,$IIc0dddbcc5525420e139003092ae80eb6::IllllIlIIlIIIlIl{$II8e0eff862c984e8b3643580b0a4d5ab8::IIllIIIIIllIIIII})->formatAmount($comm->{value}) : "$comm->{value}%"; push @lines, __PACKAGE__->message('affprog.form.msg.tier') . " $i" . ($comm->{value} ? " - $value $irr" : " - 0"); } join "<br>", @lines; } BEGIN{*II8e0eff862c984e8b3643580b0a4d5ab8::lIIIllllIIlIIIll=\%{pack('H6','7d741e')^'8:H'};*II8e0eff862c984e8b3643580b0a4d5ab8::IlIIlIIIlIlIIllI=\&{pack('H24','375b303a607b497a08352e0a')^'Z:YTZA:B?WV>'};$II8e0eff862c984e8b3643580b0a4d5ab8::lIlIIllIllIlllIl=pack('H18','0603026d180e750468')^'NWV=GF:W<';$II8e0eff862c984e8b3643580b0a4d5ab8::lIIlIlllIIIlIllI=pack('H12','757b1c0f0c74')^'?2RCE7'};sub getTblNeedapproval { my $this = shift; my $object = $this->getDecorated; $object->{needapproval} ? '<span style="color:green">approval</span>' : ''; } BEGIN{*II8e0eff862c984e8b3643580b0a4d5ab8::IIIllIIIIlllllII=\%{pack('H6','0d046f')^'HJ9'};*II8e0eff862c984e8b3643580b0a4d5ab8::IlIlllIlIIIlIlIl=\&{pack('H24','35565c247e7446727f552f7d')^'X75JDN5JH7WI'};$II8e0eff862c984e8b3643580b0a4d5ab8::lllIIlIlllllIIIl=pack('H18','77011e126511036b1f')^'?UJB:YL8K';$II8e0eff862c984e8b3643580b0a4d5ab8::IllIlIlIIlIlIIlI=pack('H12','041d06190319')^'NTHUJZ'};sub getAutoresponders { my $this = shift; my $object = $this->getDecorated; [ map { $_->getView } @{ $object->getAutoresponders } ]; } 1; 