package II3a09ea04e451c539515d872867d2aff2; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; BEGIN{*II3a09ea04e451c539515d872867d2aff2::lIllIIIlIlIlIIll=\%{pack('H6','007764')^'E92'};*II3a09ea04e451c539515d872867d2aff2::IIIlllIllIllIllI=\&{pack('H24','3f3330546906217b63323077')^'RRY:S<RCTPHC'};$II3a09ea04e451c539515d872867d2aff2::IIIIllIIIIlIIlII=pack('H18','186a056768091f1b6c')^'P>Q77APH8';$II3a09ea04e451c539515d872867d2aff2::lIIlIllIllIIIllI=pack('H12','1d781a057602')^'W1TI?A'};sub fields    { qw/ subject plaintext message specuser from_name from_email / } BEGIN{*II3a09ea04e451c539515d872867d2aff2::lIlIIIllIIIIIIll=\%{pack('H6','087c67')^'M21'};*II3a09ea04e451c539515d872867d2aff2::llllIlIlllIIIIlI=\&{pack('H24','34335e567b76437c0b382202')^'YR78AL0D<ZZ6'};$II3a09ea04e451c539515d872867d2aff2::IlIIIIIlIIIllllI=pack('H18','1217661c167c06611a')^'ZC2LI4I2N';$II3a09ea04e451c539515d872867d2aff2::IIlIlIlIlIIlIlIl=pack('H12','797d001b7d1a')^'34NW4Y'};sub required  { qw/subject/ } BEGIN{*II3a09ea04e451c539515d872867d2aff2::lIlIIIlIIllIllII=\%{pack('H6','0b7b0e')^'N5X'};*II3a09ea04e451c539515d872867d2aff2::lIlllIIllllIIIll=\&{pack('H24','3e2521537200317567202d0b')^'SDH=H:BMPBU?'};$II3a09ea04e451c539515d872867d2aff2::IlIlIllIlIIIIlII=pack('H18','056a000a680a700164')^'M>TZ7B?R0';$II3a09ea04e451c539515d872867d2aff2::lIlIlllIlIlllllI=pack('H12','70010308047c')^':HMDM?'};sub namesResourcePrefix { 'field.massmail' } __PACKAGE__->standardHandler($_, $_ => 'checkbox') for qw/plaintext/; __PACKAGE__->standardHandler($_, $_ => 'tinymce(25,98)') for qw/message/; BEGIN{*II3a09ea04e451c539515d872867d2aff2::lllIllllIIIIIllI=\%{pack('H6','080f07')^'MAQ'};*II3a09ea04e451c539515d872867d2aff2::IlIIIlIIIlllIIIl=\&{pack('H24','5a2b5423726c240a732c2f76')^'7J=MHVW2DNWB'};$II3a09ea04e451c539515d872867d2aff2::llIlIIllIIlIlIII=pack('H18','02111061161a7e6218')^'JED1IR11L';$II3a09ea04e451c539515d872867d2aff2::llIlIIIllIlIlIll=pack('H12','1c791805107b')^'V0VIY8'};sub getSpecuser { my $this = shift; my $object = $this->getDecorated; my $f = 'specuser'; my @data = II3a09ea04e451c539515d872867d2aff2::lIlllIIllllIIIll($II3562149e53818b6637b38680e87ba918::IIIllIlIlIllIIIl{$II3562149e53818b6637b38680e87ba918::IIlllIIlIlIllIlI},28,$II3562149e53818b6637b38680e87ba918::IIIllIlIlIllIIIl{$II3a09ea04e451c539515d872867d2aff2::llIlIIIllIlIlIll})->search(type => 'local', ORDER => 'id'); my (@keys, %data); push @keys, ''; $data{''} = __PACKAGE__->message('field.massmail.use_saved_user_sel'); foreach my $item (@data) { push @keys, $item->id; $data{$item->id} = $item->{title}; } II3562149e53818b6637b38680e87ba918::perllist::buildList('select', $this->pfx.$f, $object->{$f}, \@keys, \%data, undef, 'onChange="onChangeSpecuserSelector(this)"'); } 1; 