package II686947e8022fc82be289a9cf40d2bb90; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use II0c124bc2b4053fbe458810f5aab24564; BEGIN{*II686947e8022fc82be289a9cf40d2bb90::lIIlIIllIIIIlllI=\%{pack('H6','0a0c65')^'OB3'};*II686947e8022fc82be289a9cf40d2bb90::lIIIIlIIlIIIIIll=\&{pack('H24','2a283c570d60357a732f4303')^'GIU97ZFBDM;7'};$II686947e8022fc82be289a9cf40d2bb90::IllllIllllllIlll=pack('H18','780e12046f0a1b1a68')^'0ZFT0BTI<';$II686947e8022fc82be289a9cf40d2bb90::llIlIIllIIlIIlIl=pack('H12','0f7c147e7673')^'E5Z2?0'};sub fields    { qw/user_id series_id message_id stime TblConfirmed optout optout_tstamp/ } BEGIN{*II686947e8022fc82be289a9cf40d2bb90::IlIllIlIIIllIIII=\%{pack('H6','7e7964')^';72'};*II686947e8022fc82be289a9cf40d2bb90::IIIllIIlllIlIllI=\&{pack('H24','2220233a7375307d62332c70')^'OAJTIOCEUQTD'};$II686947e8022fc82be289a9cf40d2bb90::IIIIIIllllllIIII=pack('H18','001b62010a10166015')^'HO6QUXY3A';$II686947e8022fc82be289a9cf40d2bb90::IIlllIllIIIIlIll=pack('H12','1f0e7c7a037f')^'UG26J<'};sub required  { qw/user_id message_id/ } BEGIN{*II686947e8022fc82be289a9cf40d2bb90::lllIIlllIlIIlllI=\%{pack('H6','0f0e6a')^'J@<'};*II686947e8022fc82be289a9cf40d2bb90::lllIIlllIllllllI=\&{pack('H24','532a5d21796a490907334176')^'>K4OCP:10Q9B'};$II686947e8022fc82be289a9cf40d2bb90::lIIIIlllllIIlIlI=pack('H18','0a666f000802716c6a')^'B2;PWJ>?>';$II686947e8022fc82be289a9cf40d2bb90::IlIlIlllIIIlIlII=pack('H12','0e027a0b0006')^'DK4GIE'};sub namesResourcePrefix { 'field.followupman_user_series' } __PACKAGE__->standardHandler($_, $_ => 'view') for qw/TblConfirmed optout_tstamp/; __PACKAGE__->standardHandler($_, $_ => 'checkbox') for qw/optout/; BEGIN{*II686947e8022fc82be289a9cf40d2bb90::llllIIlIllllllll=\%{pack('H6','007f15')^'E1C'};*II686947e8022fc82be289a9cf40d2bb90::IlIlIlIllIIIlIlI=\&{pack('H24','223558220f00476c79313f72')^'OT1L5:4TNSGF'};$II686947e8022fc82be289a9cf40d2bb90::IlllIlIlllIlIIlI=pack('H18','7a046409191f166813')^'2P0YFWY;G';$II686947e8022fc82be289a9cf40d2bb90::IIlIIIIIlIlIIIII=pack('H12','02017a071006')^'HH4KYE'};sub getUser_id { my $this = shift; my $object = $this->getDecorated; my $f = 'user_id'; my $pfx = $this->pfx; if ($object->stored) { my $user = $object->getUser; return <<END;
<input type="hidden" name="$pfx$f" value="_fake">
<nobr>$user->{name} (#$user->{id})</nobr>
END
} Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::singlelinker' . '::get(' . II3562149e53818b6637b38680e87ba918::IlllIlllIIlllIlI($II686947e8022fc82be289a9cf40d2bb90::IllIIlIlllIlIIll{$II0c124bc2b4053fbe458810f5aab24564::lllIlllllllllIlI},47,$II686947e8022fc82be289a9cf40d2bb90::IllIIlIlllIlIIll{$II0c124bc2b4053fbe458810f5aab24564::IllllIIlIIIIlIll})->getURL . '/master/users/all/selector.html?flushAutokeep=1,User,name)')->do($this, $f); } BEGIN{*II686947e8022fc82be289a9cf40d2bb90::lllIlIIllIlllllI=\%{pack('H6','077563')^'B;5'};*II686947e8022fc82be289a9cf40d2bb90::llllIIIlllllllII=\&{pack('H24','282428286d012b6904204000')^'EEAFW;XQ3B84'};$II686947e8022fc82be289a9cf40d2bb90::IlllIlllIIIllIll=pack('H18','7e121418140901661d')^'6F@HKAN5I';$II686947e8022fc82be289a9cf40d2bb90::llIIlIlllllIIlll=pack('H12','137d76787d1a')^'Y4844Y'};sub setUser_id { my ($this, $v) = @_; return if $this->getDecorated->stored; Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::singlelinker::set')->do($this, 'user_id', $v); } BEGIN{*II686947e8022fc82be289a9cf40d2bb90::lIIIIIIIIllllllI=\%{pack('H6','7e0500')^';KV'};*II686947e8022fc82be289a9cf40d2bb90::IllIIlIllllIIIll=\&{pack('H24','5b20572f636e29067f312f07')^'6A>AYTZ>HSW3'};$II686947e8022fc82be289a9cf40d2bb90::IIIIlIIIIlIIIllI=pack('H18','01601d0561037d191f')^'I4IU>K2JK';$II686947e8022fc82be289a9cf40d2bb90::llllllIlllIIIIIl=pack('H12','010114067409')^'KHZJ=J'};sub getSeries_id { my $this = shift; my $object = $this->getDecorated; return $object->getSeries->{title} if $object->stored; my $f = 'series_id'; my @data = II686947e8022fc82be289a9cf40d2bb90::llllIIllIlllllIl($II3562149e53818b6637b38680e87ba918::llIIIIlIIlIIlIII{$II3562149e53818b6637b38680e87ba918::lIIllllllIIIlIIl},21,$II3562149e53818b6637b38680e87ba918::llIIIIlIIlIIlIII{$II0c124bc2b4053fbe458810f5aab24564::IllllIIlIIIIlIll})->search(); my (@keys, %data); foreach my $item (@data) { push @keys, $item->id; $data{$item->id} = $item->{title}; } II3562149e53818b6637b38680e87ba918::perllist::buildList('select', $this->pfx.$f, $object->{$f}, \@keys, \%data, '=', "onChange=atkGoActionEditor('reload')"); } BEGIN{*II686947e8022fc82be289a9cf40d2bb90::lIllllIlllIIIlII=\%{pack('H6','0f0b65')^'JE3'};*II686947e8022fc82be289a9cf40d2bb90::llllIIllIlllllIl=\&{pack('H24','2325213b770d48086e554275')^'NDHUM7;0Y7:A'};$II686947e8022fc82be289a9cf40d2bb90::IIIIIIllIIIIIlll=pack('H18','781464150b19060968')^'0@0ETQIZ<';$II686947e8022fc82be289a9cf40d2bb90::IlIIllIIIlllIIll=pack('H12','7b0078047c08')^'1I6H5K'};sub getMessage_id { my $this = shift; my $object = $this->getDecorated; return undef unless $object->{series_id}; my $f = 'message_id'; my @data = II0c124bc2b4053fbe458810f5aab24564::lllIlIllIllIIIlI($II3562149e53818b6637b38680e87ba918::llIIlIIIllIIIlll{$II686947e8022fc82be289a9cf40d2bb90::IlllIlIlllIlIIlI},172,$II3562149e53818b6637b38680e87ba918::llIIlIIIllIIIlll{$II3562149e53818b6637b38680e87ba918::lIIlllIIIIIlIlIl})->search(series_id => $object->{series_id}, ORDER => 'seq'); my (@keys, %data); foreach my $item (@data) { push @keys, $item->id; $data{$item->id} = $item->{subject} . " #($item->{id})"; } push @keys, 0; $data{0} = $this->message('followupman_user_series.series_completed'); II3562149e53818b6637b38680e87ba918::perllist::buildList('radio', $this->pfx.$f, $object->{$f}, \@keys, \%data); } BEGIN{*II686947e8022fc82be289a9cf40d2bb90::IllIIlIlllIlIIll=\%{pack('H6','7c1e04')^'9PR'};*II686947e8022fc82be289a9cf40d2bb90::IIIIllIIIlIIlIll=\&{pack('H24','3f313c5f7e6f397f77384e71')^'RPU1DUJG@Z6E'};$II686947e8022fc82be289a9cf40d2bb90::IlIlIIIlIIlIIIIl=pack('H18','711b6b6a0b0e1f1307')^'9O?:TFP@S';$II686947e8022fc82be289a9cf40d2bb90::lIlIIllIllIIIIII=pack('H12','7b76080f1d10')^'1?FCTS'};sub getStime { my $this = shift; my $object = $this->getDecorated; return undef unless $object->{series_id}; Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::datetime::get(%e %B %Y  %H:%M:%S)')->do($this, 'stime'); } BEGIN{*II686947e8022fc82be289a9cf40d2bb90::lIllllIllIllIllI=\%{pack('H6','0a0119')^'OOO'};*II686947e8022fc82be289a9cf40d2bb90::lIIIIlIlIIIIIIII=\&{pack('H24','5e5e3056076f3b6b6f583964')^'3?Y8=UHSX:AP'};$II686947e8022fc82be289a9cf40d2bb90::IIlIllIlIIlIIllI=pack('H18','0f656968691e726d04')^'G1=86V=>P';$II686947e8022fc82be289a9cf40d2bb90::lIIIlIIlllIIlIII=pack('H12','051d73047513')^'OT=H<P'};sub setStime { my ($this, $v) = @_; Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::datetime::set')->do($this, 'stime', $v); } 1;