package II1ff2942538f9c45f1eff53d62768966c; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIf349b392e6c732ca4413d65af6e28479; BEGIN{*II1ff2942538f9c45f1eff53d62768966c::lIIIIllIlllllllI=\%{pack('H6','140b0e')^'QEX'};*II1ff2942538f9c45f1eff53d62768966c::IIlllIIlIlIlllII=\&{pack('H24','57535d247e7738777d31417d')^':24JDMKOJS9I'};$II1ff2942538f9c45f1eff53d62768966c::lllIIIlllIllIIII=pack('H18','740d021b607d790b6c')^'<YVK?56X8';$II1ff2942538f9c45f1eff53d62768966c::IIIlllllIIIlIIlI=pack('H12','0d71001c107b')^'G8NPY8'};sub _form_get { my ($form, $f) = @_; my $obj_id = $form->getDecorated->id; my $checked = IIf349b392e6c732ca4413d65af6e28479::IIIIIIlIlIlIIlIl($II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$II1ff2942538f9c45f1eff53d62768966c::lllIIIlllIllIIII},132,$II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$IIf349b392e6c732ca4413d65af6e28479::IlIlllIIIIIlIIlI})->getCustom($f, $obj_id) ? 'checked' : ''; my $display = $checked ? '' : 'display:none'; my $msg1 = $form->message('form_editor.override_default_form'); my $msg2 = $form->message('form_editor.click_here_to_edit'); my $code; $code .= qq(<input type="hidden" name="$f" value=""><input id="chbox_$f" type="checkbox" name="$f" class="custom-control-input" $checked onClick="document.getElementById('DivFormEditorAnchor$f').style.display=this.checked ? '' : 'none'"><label for="chbox_$f" class="custom-control-label">$msg1</label>); $code .= qq(&nbsp;<a id="DivFormEditorAnchor$f" style='$display' href="javascript:jinPopWin('/action/Jin/FormEditor/FormAnchor/redirect.html?code=$f&obj_id=$obj_id');">$msg2</a>); $code; } BEGIN{*II1ff2942538f9c45f1eff53d62768966c::IlIlllIllIllIlll=\%{pack('H6','7d1416')^'8Z@'};*II1ff2942538f9c45f1eff53d62768966c::IIlIIlllIllIlIll=\&{pack('H24','3b265e23010347600f5d4b6c')^'VG7M;94X8?3X'};$II1ff2942538f9c45f1eff53d62768966c::lIlIlIllIIlIllIl=pack('H18','7d1f1f626e700b6f0d')^'5KK218D<Y';$II1ff2942538f9c45f1eff53d62768966c::IlllIIIIllIIllII=pack('H12','051e1d1f7a79')^'OWSS3:'};sub _form_set { my ($form, $f, $v) = @_; unless ($v) { my $object = II720d6e18aa34327713eb014408fc9144::IllIIIIlIIlllIll($II1ff2942538f9c45f1eff53d62768966c::lIIIIllIlllllllI{$II720d6e18aa34327713eb014408fc9144::llIlIlIIIIIlIIlI},132,$II1ff2942538f9c45f1eff53d62768966c::lIIIIllIlllllllI{$II720d6e18aa34327713eb014408fc9144::llIIIIIIIlllIIII})->getCustom($f, $form->getDecorated->id); $object->delete if $object; } return; } BEGIN{*II1ff2942538f9c45f1eff53d62768966c::lllIlIIIlIIIllII=\%{pack('H6','070066')^'BN0'};*II1ff2942538f9c45f1eff53d62768966c::IIllllIIIlIIIIll=\&{pack('H24','265457546e6c317c65553e7a')^'K5>:TVBDR7FN'};$II1ff2942538f9c45f1eff53d62768966c::lIlllllIIIIlIIIl=pack('H18','7d126109060f166366')^'5F5YYGY02';$II1ff2942538f9c45f1eff53d62768966c::llIIIlllIlIlIlll=pack('H12','1a72720d767e')^'P;<A?='};sub act_redirect { my $class = shift; my $in = Zen->getRequest->getInput; die "code or obj_id not defined" unless $in->{code} && $in->{obj_id}; my $object = II1ff2942538f9c45f1eff53d62768966c::IIllllIIIlIIIIll($II1ff2942538f9c45f1eff53d62768966c::lllIlIIIlIIIllII{$II1ff2942538f9c45f1eff53d62768966c::lllIIIlllIllIIII},132,$II1ff2942538f9c45f1eff53d62768966c::lllIlIIIlIIIllII{$IIf349b392e6c732ca4413d65af6e28479::IllIlllIIIIIlIIl})->getCustom($in->{code}, $in->{obj_id}) || II720d6e18aa34327713eb014408fc9144::lIIlIIIIllIllIIl($II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II720d6e18aa34327713eb014408fc9144::lIIIIIlIIIlIIIII},132,$II720d6e18aa34327713eb014408fc9144::lIIIlllIllIIlllI{$II1ff2942538f9c45f1eff53d62768966c::IlllIIIIllIIllII})->getGlobal($in->{code})->copy->set(obj_id => $in->{obj_id})->save; my $sysURL = IIf349b392e6c732ca4413d65af6e28479::IIIIIIlIlIlIIlIl($II1ff2942538f9c45f1eff53d62768966c::IlIlllIllIllIlll{$II1ff2942538f9c45f1eff53d62768966c::lllIIIlllIllIIII},47,$II1ff2942538f9c45f1eff53d62768966c::IlIlllIllIllIlll{$II720d6e18aa34327713eb014408fc9144::IllIllIIlIIIIlIl})->getURL; Zen->getRequest->redirect("$sysURL/master/tools/formscustom.html?TabAct=edit&ObjectID=$object->{id}"); } 1; 