package II5ad24f613c03984fce43b1af0cef2d9a; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use II3562149e53818b6637b38680e87ba918::text; use II371757f50bba70b0f2acd445b94a6d95; BEGIN{*II5ad24f613c03984fce43b1af0cef2d9a::IIIIllIIllllIIIl=\%{pack('H6','130160')^'VO6'};*II5ad24f613c03984fce43b1af0cef2d9a::IlIlIllIIlIlIIII=\&{pack('H24','2f5e532f05093e6f7a222d0f')^'B?:A?3MWM@U;'};$II5ad24f613c03984fce43b1af0cef2d9a::lIlIIIIIIllllIIl=pack('H18','1a0265610a081c1117')^'RV11U@SBC';$II5ad24f613c03984fce43b1af0cef2d9a::IlIlllIlIlIIlIIl=pack('H12','7804761f7319')^'2M8S:Z'};sub fields    { qw/title notes remote_delavo_api_url/ } BEGIN{*II5ad24f613c03984fce43b1af0cef2d9a::IIllIIlllIIIlIll=\%{pack('H6','0d0d6c')^'HC:'};*II5ad24f613c03984fce43b1af0cef2d9a::lIlIIIIllllIllll=\&{pack('H24','22382a5d6e6c47626d284463')^'OYC3TV4ZZJ<W'};$II5ad24f613c03984fce43b1af0cef2d9a::llIIIIlIIIlIlIII=pack('H18','080062070d700d1d11')^'@T6WR8BNE';$II5ad24f613c03984fce43b1af0cef2d9a::IlIlIlIllllIllIl=pack('H12','7c7979057876')^'607I15'};sub required  { qw/title/ } BEGIN{*II5ad24f613c03984fce43b1af0cef2d9a::lllIIllIllIlIlll=\%{pack('H6','767219')^'3<O'};*II5ad24f613c03984fce43b1af0cef2d9a::llIllIIIIllIIlIl=\&{pack('H24','2c273c5369022162052a4500')^'AFU=S8RZ2H=4'};$II5ad24f613c03984fce43b1af0cef2d9a::IlIlIlIllIIIlIIl=pack('H18','7b176418147c730502')^'3C0HK4<VV';$II5ad24f613c03984fce43b1af0cef2d9a::IllIIIllIllIIIlI=pack('H12','0a1e05180f0c')^'@WKTFO'};sub namesResourcePrefix { 'field.specusers' } __PACKAGE__->standardHandler($_, $_ => 'textarea(5,50)') for qw/notes/; BEGIN{*II5ad24f613c03984fce43b1af0cef2d9a::IllIllllIllIIIlI=\%{pack('H6','0d791c')^'H7J'};*II5ad24f613c03984fce43b1af0cef2d9a::IlIIlIlIIIlllllI=\&{pack('H24','3c5b53380d09460f77544a09')^'Q::V7357@62='};$II5ad24f613c03984fce43b1af0cef2d9a::llIIIIIlIIlIIIlI=pack('H18','076f6e610b1a7d6018')^'O;:1TR23L';$II5ad24f613c03984fce43b1af0cef2d9a::IlllIlllIIIIllll=pack('H12','1d0d19060b04')^'WDWJBG'};sub getType { my $this = shift; my $object = $this->getDecorated; my $in = $this->getInput; my $type = $object->stored ? $object->{type} : $in->{TabCustom1}; die('failed to resolve type') unless II3562149e53818b6637b38680e87ba918::IIllIIIlIIlIlIIl($II5ad24f613c03984fce43b1af0cef2d9a::IIllIIlIlIlIIIll{$II3562149e53818b6637b38680e87ba918::lIIllllllIIIlIIl},28,$II5ad24f613c03984fce43b1af0cef2d9a::IIllIIlIlIlIIIll{$II371757f50bba70b0f2acd445b94a6d95::IlIIllllIIIIIIIl})->isAvailableType($type); II3562149e53818b6637b38680e87ba918::IIIlIllllllIlIIl($II5ad24f613c03984fce43b1af0cef2d9a::IIIIllIIllllIIIl{$II3562149e53818b6637b38680e87ba918::IIllIIIIIllIIIlI},28,$II5ad24f613c03984fce43b1af0cef2d9a::IIIIllIIllllIIIl{$II5ad24f613c03984fce43b1af0cef2d9a::IllIIIllIllIIIlI})->modRegistry->{$type}; } BEGIN{*II5ad24f613c03984fce43b1af0cef2d9a::IIllIIlIlIlIIIll=\%{pack('H6','7a1f06')^'?QP'};*II5ad24f613c03984fce43b1af0cef2d9a::IIllIlIlIlIIIIlI=\&{pack('H24','245d5b3e0379477c6724460b')^'I<2P9C4DPF>?'};$II5ad24f613c03984fce43b1af0cef2d9a::lIllllIIIIllIlII=pack('H18','721e04176602726a15')^':JPG9J=9A';$II5ad24f613c03984fce43b1af0cef2d9a::IIIIllIllIllllIl=pack('H12','0b11070f1c15')^'AXICUV'};sub setRemote_delavo_api_url { my ($form, $v) = @_; my $in = $form->getInput; my $object = $form->getDecorated; my $f = 'remote_delavo_api_url'; II3562149e53818b6637b38680e87ba918::text::set($form, $f, $v); if ($v && $v !~ m!^https?://[\w\-\./]+?/api/[\d\.]+/?\?apikey=\d+\-.+!) { $form->addError(__PACKAGE__->message('specusers.form.error.invalid_remote_delavo_api_url')); return; } if ($v) { my ($status, $content) = @{ $object->remoteDelavoAPIPing }; $form->addError(__PACKAGE__->message('specusers.form.error.erroneous_remote_delavo_api_url')) unless $content eq 'OK'; } return; } 1; 