package IIc2ab12c21f67332c6b7b8b994b5f22e3; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use Zen::PerlHandler; use II7abdf80bcb08f6e77a72ea08c833b9b9; BEGIN{*IIc2ab12c21f67332c6b7b8b994b5f22e3::IIllIIlIlIlIlIIl=\%{pack('H6','090c18')^'LBN'};*IIc2ab12c21f67332c6b7b8b994b5f22e3::lIIllIIIlIlIlIlI=\&{pack('H24','5155305f6e7e4a0f095a4c73')^'<4Y1TD97>84G'};$IIc2ab12c21f67332c6b7b8b994b5f22e3::lIlIIIlIlIlllIlI=pack('H18','7f631e066f7d186d64')^'77JV05W>0';$IIc2ab12c21f67332c6b7b8b994b5f22e3::llIIllllIllIIlII=pack('H12','1010187d130b')^'ZYV1ZH'};sub fields    { qw/ country state user_id user_order_link / } BEGIN{*IIc2ab12c21f67332c6b7b8b994b5f22e3::lllIIlIllIlIIIIl=\%{pack('H6','707d05')^'53S'};*IIc2ab12c21f67332c6b7b8b994b5f22e3::lIIllIlIllIIIlll=\&{pack('H24','2e202b23606b397f63313962')^'CABMZQJGTSAV'};$IIc2ab12c21f67332c6b7b8b994b5f22e3::IlllIIIlIlIlllll=pack('H18','181c1d171910166e0c')^'PHIGFXY=X';$IIc2ab12c21f67332c6b7b8b994b5f22e3::lIIIIIllIIlIlllI=pack('H12','761801757e0d')^'<QO97N'};sub required  { qw/country user_id/ } BEGIN{*IIc2ab12c21f67332c6b7b8b994b5f22e3::lIlllllIlIlllIII=\%{pack('H6','7d0614')^'8HB'};*IIc2ab12c21f67332c6b7b8b994b5f22e3::llIlllIIIlIllIIl=\&{pack('H24','225238377e7d43720d38327b')^'O3QYDG0J:ZJO'};$IIc2ab12c21f67332c6b7b8b994b5f22e3::IlllIIllIIlIllll=pack('H18','7d0d011611190a1d6f')^'5YUFNQEN;';$IIc2ab12c21f67332c6b7b8b994b5f22e3::IIIIllIIIIIIIlII=pack('H12','78107d057917')^'2Y3I0T'};sub namesResourcePrefix { 'field.geoforce' } __PACKAGE__->standardHandler($_, $_ => 'conflist(select,lists::countries::main,=,id="SelCountry")') for qw/country/; __PACKAGE__->standardHandler($_, $_ => 'dynamicStatesList(SelCountry,SelState)') for qw/state/; __PACKAGE__->standardHandler($_, $_ => 'linkerpro(single,linkers::user::main)') for qw/user_id/; BEGIN{*IIc2ab12c21f67332c6b7b8b994b5f22e3::IIIllllIIllllllI=\%{pack('H6','130116')^'VO@'};*IIc2ab12c21f67332c6b7b8b994b5f22e3::IlIlIIllIIlIlIlI=\&{pack('H24','57363e53630e33790b532879')^':WW=Y4@A<1PM'};$IIc2ab12c21f67332c6b7b8b994b5f22e3::llllIIIIllllIlII=pack('H18','111211026c02011265')^'YFER3JNA1';$IIc2ab12c21f67332c6b7b8b994b5f22e3::IIIlIllIIllllIlI=pack('H12','06100c0c0d7a')^'LYB@D9'};sub getUser_order_link { my $form = shift; my $object = $form->getDecorated; my $pfx = $form->pfx; my $f = 'user_order_link'; my $in = Zen->getRequest->getInput; my $display = $object->{$f} || $in->{"$pfx$f\_mode"} eq 'redirect' ? '' : 'none'; my %checked = $object->{$f} || $in->{"$pfx$f\_mode"} eq 'redirect' ? (redirect => 'checked') : (force => 'checked'); my $code = qq(<input type="radio" name="$pfx$f\_mode" value="force" $checked{force} onClick="document.getElementById('DivUserOrderLink').style.display='none';">&nbsp;) . __PACKAGE__->message('geoforce.form.msg.force_mode') . "<br>" . qq(<input type="radio" name="$pfx$f\_mode" value="redirect" $checked{redirect}  onClick="document.getElementById('DivUserOrderLink').style.display='';">&nbsp;) . __PACKAGE__->message('geoforce.form.msg.redirect_mode') . "<br>" . qq(<div id="DivUserOrderLink" style="display:$display;padding:5px 5px 5px 25px;">) . Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::text::get(42)')->do($form, $f) . qq(</div>); $code; } BEGIN{*IIc2ab12c21f67332c6b7b8b994b5f22e3::lIIllIIlIIIlIllI=\%{pack('H6','037462')^'F:4'};*IIc2ab12c21f67332c6b7b8b994b5f22e3::IIlIlllIlIlIllIl=\&{pack('H24','2d5856386a703770705c2f74')^'@9?VPJDHG>W@'};$IIc2ab12c21f67332c6b7b8b994b5f22e3::IIIlllIlIlIlIlII=pack('H18','08001b686e03771d13')^'@TO81K8NG';$IIc2ab12c21f67332c6b7b8b994b5f22e3::IlllllIIlIlIIlll=pack('H12','0d701a76760f')^'G9T:?L'};sub setUser_order_link { my ($form, $v) = @_; my $in = $form->getInput; my $object = $form->getDecorated; my $pfx = $form->pfx; my $f = 'user_order_link'; if ($in->{"$pfx$f\_mode"} eq 'force') { $object->{$f} = ''; } else { Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::text' . '::set')->do($form, $f, $v); $form->addError(__PACKAGE__->message('geoforce.form.error.order_link_required')) unless $object->{$f}; } return; } 1; 