package II1ac594b470f15ffc20c41faa03f4756c; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use IIcc6e0f1e4de82cef14f42c7623069400; use IId354b5694a2e5bdc5feba0ce8da36d3b; BEGIN{*II1ac594b470f15ffc20c41faa03f4756c::IllIIlllIlIlllIl=\%{pack('H6','01796c')^'D7:'};*II1ac594b470f15ffc20c41faa03f4756c::IIIlIIllIIIlIIIl=\&{pack('H24','5c245f2a0b0944720327466c')^'1E6D137J4E>X'};$II1ac594b470f15ffc20c41faa03f4756c::lIlIIlllllIllIIl=pack('H18','1165656b1d0e1d6a05')^'Y11;BFR9Q';$II1ac594b470f15ffc20c41faa03f4756c::IlIIIlIIllIIllIl=pack('H12','100a760e7d7f')^'ZC8B4<'};sub fields    { qw/ prod_id approved pdate message author_name author_email / } BEGIN{*II1ac594b470f15ffc20c41faa03f4756c::lIIIIlIlIIIlIIIl=\%{pack('H6','037560')^'F;6'};*II1ac594b470f15ffc20c41faa03f4756c::llIlIlIIIIlIllIl=\&{pack('H24','3839275c700e210c755f4c0b')^'UXN2J4R4B=4?'};$II1ac594b470f15ffc20c41faa03f4756c::IllllllIllllIllI=pack('H18','77016c156b710d1968')^'?U8E49BJ<';$II1ac594b470f15ffc20c41faa03f4756c::IlllIIIIlllIIIIl=pack('H12','12701f061013')^'X9QJYP'};sub namesResourcePrefix { 'field.shopcart_review' } BEGIN{*II1ac594b470f15ffc20c41faa03f4756c::lIIIlIIlIIIIlIlI=\%{pack('H6','131e13')^'VPE'};*II1ac594b470f15ffc20c41faa03f4756c::lIllllIlllllIlIl=\&{pack('H24','342a2637706e3b0d6d272174')^'YKOYJTH5ZEY@'};$II1ac594b470f15ffc20c41faa03f4756c::IlllIIIlIIllIIlI=pack('H18','1d1f196a1a190c011a')^'UKM:EQCRN';$II1ac594b470f15ffc20c41faa03f4756c::IllIlIlllIlllIll=pack('H12','7e7377151972')^'4:9YP1'};sub required  { qw/message author_name author_email/ } __PACKAGE__->standardHandler($_, $_ => 'checkbox') for qw/approved/; __PACKAGE__->standardHandler($_, $_ => "datetime(%e %B %Y  %H:%M:%S)") for qw/pdate/; __PACKAGE__->standardHandler($_, $_ => 'textarea(7,54)') for qw/message/; __PACKAGE__->standardHandler($_, $_ => 'text(40)') for qw/author_name author_email/; BEGIN{*II1ac594b470f15ffc20c41faa03f4756c::IIIllIIIIlllllll=\%{pack('H6','740f65')^'1A3'};*II1ac594b470f15ffc20c41faa03f4756c::IlIlIIIIllIIIlll=\&{pack('H24','265a57500c0c4c706d252e70')^'K;>>66?HZGVD'};$II1ac594b470f15ffc20c41faa03f4756c::IlIIllIIlllIlIll=pack('H18','0d0e0c68670e781710')^'EZX88F7DD';$II1ac594b470f15ffc20c41faa03f4756c::IIIlIlIlIIlllIlI=pack('H12','1c0f1b7c7b0b')^'VFU02H'};sub getProd_id { shift()->getDecorated->getView->{TblProd}; } BEGIN{*II1ac594b470f15ffc20c41faa03f4756c::IIIlllIIlIlllIll=\%{pack('H6','1f7102')^'Z?T'};*II1ac594b470f15ffc20c41faa03f4756c::lIlIIIllIlIllllI=\&{pack('H24','272f285a6c7e4d747e3a3a01')^'JNA4VD>LIXB5'};$II1ac594b470f15ffc20c41faa03f4756c::lIlllIIIlIlllIII=pack('H18','0f6f13196073160b1f')^'G;GI?;YXK';$II1ac594b470f15ffc20c41faa03f4756c::llIllIllIIIIIIIl=pack('H12','717b177c1007')^';2Y0YD'};sub setAuthor_email { my ($form, $v) = @_; my $object = $form->getDecorated; $form->addError(__PACKAGE__->message('shopcart_review.form.error.invalid_email')) unless IIcc6e0f1e4de82cef14f42c7623069400::lIlIIIlIllIIlIlI($IId354b5694a2e5bdc5feba0ce8da36d3b::lIIIIIlllllIIIll{$II1ac594b470f15ffc20c41faa03f4756c::IlllIIIlIIllIIlI},167,$IId354b5694a2e5bdc5feba0ce8da36d3b::lIIIIIlllllIIIll{$IId354b5694a2e5bdc5feba0ce8da36d3b::IIlIIIlIlllIlIIl})->isEmail($v); $object->{author_email} = $v; return; } 1; 