package II6e7d64d371b24f2bd97c685915742a2d; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; BEGIN{*II6e7d64d371b24f2bd97c685915742a2d::llIllIIIlIllIIII=\%{pack('H6','1d7263')^'X<5'};*II6e7d64d371b24f2bd97c685915742a2d::IlIlllIIIIllllIl=\&{pack('H24','295325397f6e46737b514a60')^'D2LWET5KL32T'};$II6e7d64d371b24f2bd97c685915742a2d::llIlllIIIIIIlIlI=pack('H18','7b0e610a0d0e776469')^'3Z5ZRF87=';$II6e7d64d371b24f2bd97c685915742a2d::IlllIlllllIIIlII=pack('H12','1074797c1f16')^'Z=70VU'};sub getFormCfg { my $this = shift; Zen::Config->get("Zen\:\:FormEditor\:\:". $this->getDecorated->{code}); } BEGIN{*II6e7d64d371b24f2bd97c685915742a2d::llIIIlllllIIIllI=\%{pack('H6','071c6f')^'BR9'};*II6e7d64d371b24f2bd97c685915742a2d::IIIlllIlIlIlllIl=\&{pack('H24','2e545a36750d29750a20330a')^'C53XO7ZM=BK>'};$II6e7d64d371b24f2bd97c685915742a2d::IIllIIlIIlIlIIIl=pack('H18','776b6a6e14010d1e6c')^'??>>KIBM8';$II6e7d64d371b24f2bd97c685915742a2d::IIllIlIlIlIllIll=pack('H12','0e7475160c0a')^'D=;ZEI'};sub getTitle { my $this = shift; $this->getFormCfg()->{main}{Title}; } BEGIN{*II6e7d64d371b24f2bd97c685915742a2d::IllIllllIIllllII=\%{pack('H6','02076c')^'GI:'};*II6e7d64d371b24f2bd97c685915742a2d::IIlllllIIIlIIlII=\&{pack('H24','2b51532375734c777e2f3763')^'F0:MOI?OIMOW'};$II6e7d64d371b24f2bd97c685915742a2d::IIllllIllllllIIl=pack('H18','7c0e180a6a111a1003')^'4ZLZ5YUCW';$II6e7d64d371b24f2bd97c685915742a2d::IlIllIIIIIIlIIlI=pack('H12','1d050014107b')^'WLNXY8'};sub getDataDefault { my $this = shift; my $object = $this->getDecorated; my $cfg = $this->getFormCfg(); my @fields = grep { length } split(/\s/, $cfg->{main}{List}); my $d = $object->{_view_data} = { List => \@fields }; for my $f (@fields) { my $fcfg = $cfg->{"field_$f"}; $d->{Fields}{$f} = { %$fcfg }; } for my $t (grep { $_ } map { /^type_(.+)/ ? $1 : undef } keys %$cfg) { my $tcfg = $cfg->{"type_$t"}; $d->{Types}{$t} = { %$tcfg }; } $d; } BEGIN{*II6e7d64d371b24f2bd97c685915742a2d::llIIIIlIlllIIIlI=\%{pack('H6','09076a')^'LI<'};*II6e7d64d371b24f2bd97c685915742a2d::llIIlllIIIIlIIII=\&{pack('H24','3a5a5f237d0d3a7d7e2d4563')^'W;6MG7IEIO=W'};$II6e7d64d371b24f2bd97c685915742a2d::IllIllIlIIIIlIll=pack('H18','1011070a6e7e770a12')^'XESZ168YF';$II6e7d64d371b24f2bd97c685915742a2d::IllIIIlllIIlllIl=pack('H12','060e7d0a1c7d')^'LG3FU>'};sub getData { my $this = shift; my $object = $this->getDecorated; my $d = $this->getDataDefault; for my $line (split "\n", $object->{data}) { my ($keys, $val) = split '=', $line, 2; if ($keys eq 'List') { $d->{List} = [split(',', $val)]; } else { $keys =~ s/\./\}\{/g; eval "\$d->{$keys} = \$val"; } } $d; } 1; 