package IId06662e668f85018c35c285e4c5009c8; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use II13ad067bb968992b5850d4fdd8cd9821; use II1d17f4bae0cdcee9878216ee8bd5ec5d; BEGIN{*IId06662e668f85018c35c285e4c5009c8::IIlIllIlIIlIllIl=\%{pack('H6','101800')^'UVV'};*IId06662e668f85018c35c285e4c5009c8::lIIlIlIIlIlIllIl=\&{pack('H24','5e29295e630c4d60742c450d')^'3H@0Y6>XCN=9'};$IId06662e668f85018c35c285e4c5009c8::lllIllIlIlIlllIl=pack('H18','0212601a647f770016')^'JF4J;78SB';$IId06662e668f85018c35c285e4c5009c8::lllIlIlIllIllIll=pack('H12','740b7d0f7273')^'>B3C;0'};sub fields    { II13ad067bb968992b5850d4fdd8cd9821::IIllllllIIIllIIl($II13ad067bb968992b5850d4fdd8cd9821::IIIlIIIIIIIllIlI{$IId06662e668f85018c35c285e4c5009c8::IIIIlIllIlllIlII},861,$II13ad067bb968992b5850d4fdd8cd9821::IIIlIIIIIIIllIlI{$II13ad067bb968992b5850d4fdd8cd9821::IIlllIIlIllIIIIl})->dbFields } BEGIN{*IId06662e668f85018c35c285e4c5009c8::IlIIlIIlIIllIIIl=\%{pack('H6','030867')^'FF1'};*IId06662e668f85018c35c285e4c5009c8::IIIIlIIlIIllllIl=\&{pack('H24','3a302e55716d306c6f37437f')^'WQG;KWCTXU;K'};$IId06662e668f85018c35c285e4c5009c8::lIIIIIIlIIIlIllI=pack('H18','72111b1e6d1a756614')^':EON2R:5@';$IId06662e668f85018c35c285e4c5009c8::IllIlIlIIIlIIlII=pack('H12','7a7e7e091a11')^'070ESR'};sub required  { qw/ type title remind_date recurring / } BEGIN{*IId06662e668f85018c35c285e4c5009c8::IIIIlIllIlIlIIIl=\%{pack('H6','7e7b6f')^';59'};*IId06662e668f85018c35c285e4c5009c8::IIIllIIlIIlIlIll=\&{pack('H24','3f5c5655080b237263264567')^'R=?;21PJTD=S'};$IId06662e668f85018c35c285e4c5009c8::llIIIlIIIlIllllI=pack('H18','76630e081f03740263')^'>7ZX@K;Q7';$IId06662e668f85018c35c285e4c5009c8::IIIlllIlllllIlll=pack('H12','070b0f097878')^'MBAE1;'};sub namesResourcePrefix { 'field.reminder' } __PACKAGE__->standardHandler($_, $_ => 'textarea(7,60)') for qw/comment/; __PACKAGE__->standardHandler($_, $_ => 'datepopup') for qw/event_date/; __PACKAGE__->standardHandler($_, $_ => 'datepopup') for qw/remind_date/; __PACKAGE__->standardHandler($_, $_ => 'conflist(select,lists::reminder_recurring::main)') for qw/recurring/; __PACKAGE__->standardHandler($_, $_ => 'datepopup') for qw/recur_until/; BEGIN{*IId06662e668f85018c35c285e4c5009c8::IllllIllIlIIlllI=\%{pack('H6','7f0c6b')^':B='};*IId06662e668f85018c35c285e4c5009c8::IIIIIlIIIllIIllI=\&{pack('H24','39352d5d7f74497c0a5b4f6e')^'TTD3EN:D=97Z'};$IId06662e668f85018c35c285e4c5009c8::IIIIlIllIlllIlII=pack('H18','010d1d131772730463')^'IYICH:<W7';$IId06662e668f85018c35c285e4c5009c8::llllllIIlllllllI=pack('H12','02700d0b0175')^'H9CGH6'};sub getType { my $this = shift; my $object = $this->getDecorated; my $dbc = II1d17f4bae0cdcee9878216ee8bd5ec5d::IIIIlIllIllIIlIl($II3562149e53818b6637b38680e87ba918::IIIIIIIIlIIlIIIl{$II3562149e53818b6637b38680e87ba918::llllIIlllllIIIII},994,$II3562149e53818b6637b38680e87ba918::IIIIIIIIlIIlIIIl{$IId06662e668f85018c35c285e4c5009c8::llllllIIlllllllI})->get; my @types = $dbc->getColumn("select title from jin_reminder_type order by title"); my $code = II3562149e53818b6637b38680e87ba918::perllist::buildList( 'select', "type_listed", $object->{type}, \@types, { map { $_ => $_ } @types }, '=' ); $code .= __PACKAGE__->message('reminder.define_new'); $code .= Zen::PerlHandler->get('II3562149e53818b6637b38680e87ba918::text::get(20)')->do($this, 'type_entered'); return $code; } BEGIN{*IId06662e668f85018c35c285e4c5009c8::IlllIIllIlllllll=\%{pack('H6','141d0f')^'QSY'};*IId06662e668f85018c35c285e4c5009c8::llllIlIlIlIIlIll=\&{pack('H24','3434213702773e700953327c')^'YUHY8MMH>1JH'};$IId06662e668f85018c35c285e4c5009c8::lllIlllllIIIIlll=pack('H18','7411646664180c6912')^'<E06;PC:F';$IId06662e668f85018c35c285e4c5009c8::IIlIllIllIlIlIll=pack('H12','741a78197c06')^'>S6U5E'};sub setType { my $this = shift; my $v = shift; my $object = $this->getDecorated; if ($v->{listed} || $v->{entered}) { if($v->{listed}) { $object->{type} = $v->{listed}; } else { my $dbc = II3562149e53818b6637b38680e87ba918::lllIIIIIIIlllIlI($II3562149e53818b6637b38680e87ba918::llIIlIIIllIIIlll{$II3562149e53818b6637b38680e87ba918::IllIlIIlIIlIIlll},994,$II3562149e53818b6637b38680e87ba918::llIIlIIIllIIIlll{$IId06662e668f85018c35c285e4c5009c8::llllllIIlllllllI})->get; $dbc->do("insert into jin_reminder_type set title=?", [$v->{entered}]) unless $dbc->getColumn("select title from jin_reminder_type where title=?", [$v->{entered}])->[0]; $object->{type} = $v->{entered}; } } else { $this->addError(__PACKAGE__->message('reminder.error.type_required')); } return; } 1; 