package II3e18380a76ef9e3eebabcc35144e1da8; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use CGI qw/checkbox hidden/; use II3562149e53818b6637b38680e87ba918::perllist; use IIf404c8dfc046e4729558b9aff233579c; BEGIN{*II3e18380a76ef9e3eebabcc35144e1da8::lIIIllIIIIllIIII=\%{pack('H6','117563')^'T;5'};*II3e18380a76ef9e3eebabcc35144e1da8::lIIIlIIIllIllllI=\&{pack('H24','37213a2b0660470e722a4a77')^'Z@SE<Z46EH2C'};$II3e18380a76ef9e3eebabcc35144e1da8::lllllIIIlIIIlIIl=pack('H18','1a191e15617d711960')^'RMJE>5>J4';$II3e18380a76ef9e3eebabcc35144e1da8::lIIIIIllIIIlIllI=pack('H12','197b0573190e')^'S2K?PM'};sub fields    { qw/ tier value mode irr / } BEGIN{*II3e18380a76ef9e3eebabcc35144e1da8::IIIlIIlIIIIIlIII=\%{pack('H6','700910')^'5GF'};*II3e18380a76ef9e3eebabcc35144e1da8::lIlIIIlIlllIIIll=\&{pack('H24','245520360c693c00612f470e')^'I4IX6SO8VM?:'};$II3e18380a76ef9e3eebabcc35144e1da8::IIlIIlllllllllIl=pack('H18','700219110f1217121e')^'8VMAPZXAJ';$II3e18380a76ef9e3eebabcc35144e1da8::IllllllIIllIIlII=pack('H12','0470770d1a05')^'N99ASF'};sub required  { qw/mode/} BEGIN{*II3e18380a76ef9e3eebabcc35144e1da8::llllllIllllIllIl=\%{pack('H6','12031d')^'WMK'};*II3e18380a76ef9e3eebabcc35144e1da8::IIIllIllllIlIIlI=\&{pack('H24','5052562f097f466b73532e78')^'=3?A3E5SD1VL'};$II3e18380a76ef9e3eebabcc35144e1da8::IIIIlIlllIllIIll=pack('H18','79136b1e0c030c651d')^'1G?NSKC6I';$II3e18380a76ef9e3eebabcc35144e1da8::IllIllIIlIIlIlll=pack('H12','057d1e197b05')^'O4PU2F'};sub namesResourcePrefix { 'field.product.commission_aff.packedtable' } __PACKAGE__->standardHandler($_, $_ => 'text(7)') for qw/value/; __PACKAGE__->standardHandler($_, $_ => 'checkbox') for qw/irr/; BEGIN{*II3e18380a76ef9e3eebabcc35144e1da8::llIIllIllIllIlII=\%{pack('H6','02791c')^'G7J'};*II3e18380a76ef9e3eebabcc35144e1da8::IlIIIlIIIlllllll=\&{pack('H24','2a395f516d714a0c7755327e')^'GX6?WK94@7JJ'};$II3e18380a76ef9e3eebabcc35144e1da8::llIIlIllIllIlIll=pack('H18','07120e6b0976016c65')^'OFZ;V>N?1';$II3e18380a76ef9e3eebabcc35144e1da8::IIlllIlIIIIlIIII=pack('H12','0e771c090f7c')^'D>REF?'};sub getTier { my ($form, $v) = @_; my $object = $form->getDecorated; $form->getNames->{'tier'} . " $object->{_row_id}"; } BEGIN{*II3e18380a76ef9e3eebabcc35144e1da8::IIIlllIllIlIlIlI=\%{pack('H6','7a0a10')^'?DF'};*II3e18380a76ef9e3eebabcc35144e1da8::llIlIIIlIIIIIllI=\&{pack('H24','565b2a38756e3b096f533e7f')^';:CVOTH1X1FK'};$II3e18380a76ef9e3eebabcc35144e1da8::IIIIlllllllIIIIl=pack('H18','731b6369060b780607')^';O79YC7US';$II3e18380a76ef9e3eebabcc35144e1da8::IllllIlIllllIlII=pack('H12','097a7773757e')^'C39?<='};sub getMode { my $form = shift; my $object = $form->getDecorated; my $name = $form->pfx . 'mode'; my %sel = $object->{mode} ? ($object->{mode} => 'checked') : ('%' => 'checked'); my $sign = II3e18380a76ef9e3eebabcc35144e1da8::lIIIlIIIllIllllI($IIf404c8dfc046e4729558b9aff233579c::IIlIllIIIIlllIlI{$II3e18380a76ef9e3eebabcc35144e1da8::IIIIlIlllIllIIll},81,$IIf404c8dfc046e4729558b9aff233579c::IIlIllIIIIlllIlI{$II3e18380a76ef9e3eebabcc35144e1da8::IllllIlIllllIlII})->cfg->{signs}{ II3562149e53818b6637b38680e87ba918::IlllIlllIIlllIlI($II3562149e53818b6637b38680e87ba918::IIIlIIIlllIIIIll{$II3e18380a76ef9e3eebabcc35144e1da8::IIIIlIlllIllIIll},81,$II3562149e53818b6637b38680e87ba918::IIIlIIIlllIIIIll{$II3e18380a76ef9e3eebabcc35144e1da8::IllllllIIllIIlII})->getCurrCode }; qq( <input type=radio name="$name" value="\%" $sel{'%'}>&nbsp;%&nbsp; <input type=radio name="$name" value="\$" $sel{'$'}>&nbsp;$sign ); } BEGIN{*II3e18380a76ef9e3eebabcc35144e1da8::llIlIIlllllllIll=\%{pack('H6','0a1b13')^'OUE'};*II3e18380a76ef9e3eebabcc35144e1da8::IlIIIIlllIIIIlIl=\&{pack('H24','3e2a203a067d476070202262')^'SKIT<G4XGBZV'};$II3e18380a76ef9e3eebabcc35144e1da8::llIlIlIllllIIIIl=pack('H18','7d6f641b65090d6a1d')^'5;0K:AB9I';$II3e18380a76ef9e3eebabcc35144e1da8::IIIlIIIlIIlIllIl=pack('H12','0c0e720e7106')^'FG<B8E'};sub getIrr { my $form = shift; my $f = 'irr'; CGI->checkbox( -name => $form->pfx . $f, -checked => $form->getDecorated->{$f}, -value => 1, -label => ' ' . lc($form->getNames->{'irr'}), ) . CGI->hidden( -name => $form->pfx . $f, -default => [''], ); } BEGIN{*II3e18380a76ef9e3eebabcc35144e1da8::lIlIIlllIlIIllII=\%{pack('H6','7d7f6c')^'81:'};*II3e18380a76ef9e3eebabcc35144e1da8::lIIlIIIllIlIIlII=\&{pack('H24','58285a5a0e7a370f6638390d')^'5I344@D7QZA9'};$II3e18380a76ef9e3eebabcc35144e1da8::lIlIlIlllIIllIIl=pack('H18','1d69171b1104090103')^'U=CKNLFRW';$II3e18380a76ef9e3eebabcc35144e1da8::lllIllIIIllIllll=pack('H12','100174191902')^'ZH:UPA'};sub setValue { my ($form, $v) = @_; my $object = $form->getDecorated; $object->{value} = $v; $form->addError(__PACKAGE__->message('product.form.error.invalid_commission_aff', $object->{_row_id}, $v)) if $v && $v !~ /^\d+(\.\d\d?)?$/; } 1; 