package II2f0cd8f0c23e642fc11f0e71b466539c; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use CGI qw/checkbox hidden/; use II3562149e53818b6637b38680e87ba918::perllist; use IIf404c8dfc046e4729558b9aff233579c; use II1d17f4bae0cdcee9878216ee8bd5ec5d; BEGIN{*II2f0cd8f0c23e642fc11f0e71b466539c::lllIIlIlIIllIlIl=\%{pack('H6','131b6f')^'VU9'};*II2f0cd8f0c23e642fc11f0e71b466539c::lIIIIllllIlIllIl=\&{pack('H24','3f5b53376e0845027a513471')^'R::YT26:M3LE'};$II2f0cd8f0c23e642fc11f0e71b466539c::lIllIlIIlllIIIlI=pack('H18','7a156b621773771805')^'2A?2H;8KQ';$II2f0cd8f0c23e642fc11f0e71b466539c::lIIlIIIlIlIIlIll=pack('H12','7f73171a0a07')^'5:YVCD'};sub fields    { qw/ value mode user_id irr / } BEGIN{*II2f0cd8f0c23e642fc11f0e71b466539c::lIlllIIlllIlIlII=\%{pack('H6','0d7611')^'H8G'};*II2f0cd8f0c23e642fc11f0e71b466539c::lIlIlIIIlIIllllI=\&{pack('H24','202c2c52747520736e3a470e')^'MME<NOSKYX?:'};$II2f0cd8f0c23e642fc11f0e71b466539c::llllIlIIIIllIllI=pack('H18','1b690115077b75666f')^'S=UEX3:5;';$II2f0cd8f0c23e642fc11f0e71b466539c::IllllllllIlIIlll=pack('H12','0978027f0400')^'C1L3MC'};sub required  { qw/mode user_id/} BEGIN{*II2f0cd8f0c23e642fc11f0e71b466539c::lIIlIIllIIIlIIlI=\%{pack('H6','110d01')^'TCW'};*II2f0cd8f0c23e642fc11f0e71b466539c::IIIIlIlIIIIIIIlI=\&{pack('H24','295758257875477c7f5a4108')^'D61KBO4DH89<'};$II2f0cd8f0c23e642fc11f0e71b466539c::llIllIlIIlIlIlIl=pack('H18','710c14661811776011')^'9X@6GY83E';$II2f0cd8f0c23e642fc11f0e71b466539c::IlIlIlIIlIIlIIll=pack('H12','0a081f1d1011')^'@AQQYR'};sub namesResourcePrefix { 'field.product.commission_charity.packedtable' } __PACKAGE__->standardHandler($_, $_ => 'text(7)') for qw/value/; __PACKAGE__->standardHandler($_, $_ => 'singlelinker('.II9c46e93f5b6070f21b7517464c68d330->getURL.'/master/users/all/selector.html?flushAutokeep=1,User,name,II969763fd38c3b88f5e8d223b1b367c8e)') for qw/user_id/; __PACKAGE__->standardHandler($_, $_ => 'checkbox') for qw/irr/; BEGIN{*II2f0cd8f0c23e642fc11f0e71b466539c::IIlIIIlIlIIlIIIl=\%{pack('H6','7e0462')^';J4'};*II2f0cd8f0c23e642fc11f0e71b466539c::llIlIIllllIIllIl=\&{pack('H24','3d3150396263200703363e62')^'PP9WXYS?4TFV'};$II2f0cd8f0c23e642fc11f0e71b466539c::IIIIlllIIIlllIll=pack('H18','1a136d171673046303')^'RG9GI;K0W';$II2f0cd8f0c23e642fc11f0e71b466539c::llIlIlIIIIlIIIll=pack('H12','7f13700b0503')^'5Z>GL@'};sub getMode { my $form = shift; my $object = $form->getDecorated; my $f = 'mode'; my $name = $form->pfx . $f; my $default = $object->{$f} || '%'; my $sign = II3562149e53818b6637b38680e87ba918::lIlIIIIIllIIlIll($II2f0cd8f0c23e642fc11f0e71b466539c::lllIIlIlIIllIlIl{$II3562149e53818b6637b38680e87ba918::lllIllllIllllIIl},81,$II2f0cd8f0c23e642fc11f0e71b466539c::lllIIlIlIIllIlIl{$II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIlIlIlIIlIl})->cfg->{signs}{ IIf404c8dfc046e4729558b9aff233579c::llIlIllIIIIIIllI($II3562149e53818b6637b38680e87ba918::IlIlIlllIlllllII{$II2f0cd8f0c23e642fc11f0e71b466539c::llllIlIIIIllIllI},81,$II3562149e53818b6637b38680e87ba918::IlIlIlllIlllllII{$II2f0cd8f0c23e642fc11f0e71b466539c::IIIIIlIIIIIlIlIl})->getCurrCode }; my @values = ('%', '$', '%%'); my %labels = ('%' => '%', '$' => $sign, '%%' => __PACKAGE__->message('product.form.msg.percent_from_admin_profit')); II3562149e53818b6637b38680e87ba918::perllist::buildList('select', $name, $default, \@values, \%labels); } BEGIN{*II2f0cd8f0c23e642fc11f0e71b466539c::IIlIIlIlllllIIIl=\%{pack('H6','71041a')^'4JL'};*II2f0cd8f0c23e642fc11f0e71b466539c::llIllIllIlIlllIl=\&{pack('H24','2b29513d760f470c76264f07')^'FH8SL544AD73'};$II2f0cd8f0c23e642fc11f0e71b466539c::llIIIllIIIIlIlIl=pack('H18','00611c116c7e071f06')^'H5HA36HLR';$II2f0cd8f0c23e642fc11f0e71b466539c::lIIlIlIlllIIIlII=pack('H12','7a701b050c0f')^'09UIEL'};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{*II2f0cd8f0c23e642fc11f0e71b466539c::lIIlIlIllIlIllll=\%{pack('H6','0e0611')^'KHG'};*II2f0cd8f0c23e642fc11f0e71b466539c::IlIIIllIIlIIIlIl=\&{pack('H24','353257596800300e7731410c')^'XS>7R:C6@S98'};$II2f0cd8f0c23e642fc11f0e71b466539c::lIllllllIIIIllII=pack('H18','066e126609781e6111')^'N:F6V0Q2E';$II2f0cd8f0c23e642fc11f0e71b466539c::IIIIIlIIIIIlIlIl=pack('H12','7d1009180003')^'7YGTI@'};sub setValue { my ($form, $v) = @_; my $object = $form->getDecorated; $object->{value} = $v; $form->addError(__PACKAGE__->message('product.form.error.invalid_commission_charity', $v)) if $v && $v !~ /^\d+(\.\d\d?)?$/; } 1; 