package IIe65c225e83ce950518c6c72fb1aee139; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; BEGIN{*IIe65c225e83ce950518c6c72fb1aee139::IIllIlllIlIllllI=\%{pack('H6','1c0264')^'YL2'};*IIe65c225e83ce950518c6c72fb1aee139::lIlIIllIlIlIlIll=\&{pack('H24','54345839767d217c0530450c')^'9U1WLGRD2R=8'};$IIe65c225e83ce950518c6c72fb1aee139::IlIllIlllIllIIII=pack('H18','10160210667102036d')^'XBV@99MP9';$IIe65c225e83ce950518c6c72fb1aee139::IlllIIlIIllllIIl=pack('H12','761f07077900')^'<VIK0C'};sub fields    { qw/ obj_type expires / } BEGIN{*IIe65c225e83ce950518c6c72fb1aee139::IlIIIlIIIllIlIlI=\%{pack('H6','0a736b')^'O=='};*IIe65c225e83ce950518c6c72fb1aee139::IIIllIIlIIllIIll=\&{pack('H24','555c582c75773d74775f2209')^'8=1BOMNL@=Z='};$IIe65c225e83ce950518c6c72fb1aee139::llllIlIlIIIIllII=pack('H18','09060e1f6e06046c6c')^'ARZO1NK?8';$IIe65c225e83ce950518c6c72fb1aee139::lllIlIlIllllllIl=pack('H12','1a701c0c0719')^'P9R@NZ'};sub namesResourcePrefix { 'field.massuserop' } __PACKAGE__->standardHandler($_, $_ => 'datepopup(,)') for qw/expires/; BEGIN{*IIe65c225e83ce950518c6c72fb1aee139::lIlllIllllIllIIl=\%{pack('H6','09010c')^'LOZ'};*IIe65c225e83ce950518c6c72fb1aee139::lIIIIIlIllllIIIl=\&{pack('H24','2939552a7807470065524970')^'DX<DB=48R01D'};$IIe65c225e83ce950518c6c72fb1aee139::IlIlIlllllIlllII=pack('H18','0b0d6b12080c76180c')^'CY?BWD9KX';$IIe65c225e83ce950518c6c72fb1aee139::lllIllllIlllllII=pack('H12','08191a197908')^'BPTU0K'};sub process { my $this = shift; my $object = $this->getDecorated; my $in = $this->getInput; $this->SUPER::process; return if $this->{errors}; $this->addError(__PACKAGE__->message('massuserop.form.error.sel_obj_required')) unless $in->{sel_obj_id}; $this->addError(__PACKAGE__->message('massuserop.form.error.copy_obj_required')) if $in->{action} eq 'copy_recs' && ! $in->{copy_obj_id}; $this->addError(__PACKAGE__->message('massuserop.form.error.change_obj_required')) if $in->{action} eq 'change_recs' && ! $in->{change_obj_id}; return; } BEGIN{*IIe65c225e83ce950518c6c72fb1aee139::IIIIllIIlIlIllIl=\%{pack('H6','041c64')^'AR2'};*IIe65c225e83ce950518c6c72fb1aee139::llIIIIIIllIIllII=\&{pack('H24','2838212f686c3f6c7e333974')^'EYHARVLTIQA@'};$IIe65c225e83ce950518c6c72fb1aee139::IlIIlIllIlIlllII=pack('H18','7d676d61147d756f61')^'5391K5:<5';$IIe65c225e83ce950518c6c72fb1aee139::lIIIIIlIllIIIIlI=pack('H12','101c14037209')^'ZUZO;J'};sub getObj_type { my $this = shift; my $object = $this->getDecorated; my $f = 'obj_type'; my $obj_types = Zen::Config->get('lists::massuserop_obj_types')->{main}; my (@keys, %data); foreach my $type (keys %$obj_types) { if ($type eq 'extscript') { next unless II3562149e53818b6637b38680e87ba918::IlIIlIlIlIIIIIlI($II3562149e53818b6637b38680e87ba918::llIIIIlIIlIIlIII{$IIe65c225e83ce950518c6c72fb1aee139::IlIlIlllllIlllII},1032,$II3562149e53818b6637b38680e87ba918::llIIIIlIIlIIlIII{$IIe65c225e83ce950518c6c72fb1aee139::lIIIIIlIllIIIIlI})->hasFeature($type); } push @keys, $type; $data{$type} = $obj_types->{$type}; } II3562149e53818b6637b38680e87ba918::perllist::buildList('radio', $this->pfx.$f, $object->{$f}, \@keys, \%data, undef, "onClick=SetObjType(this.value,'','','')"); } 1; 