package II94dd3e38f34c888d51f6d93f03afbde6; use strict 'vars'; use base qw/II52a5a7e62c032b2a2c5228e72b34bda6/; use IIcdb458e6ed5c40b1928de1833ef734bb; use II601fa70f090cadcaa1dcddfa68ea7567; BEGIN{*II94dd3e38f34c888d51f6d93f03afbde6::IIIIIlIIlllIIllI=\%{pack('H6','0e006e')^'KN8'};*II94dd3e38f34c888d51f6d93f03afbde6::lIIIlllIIIllIIll=\&{pack('H24','292c27586d0b24740b5a3100')^'DMN6W1WL<8I4'};$II94dd3e38f34c888d51f6d93f03afbde6::IIIIIllIIIlIllII=pack('H18','77121a02637c03051e')^'?FNR<4LVJ';$II94dd3e38f34c888d51f6d93f03afbde6::IlIIllIlIIIlllll=pack('H12','73780c060419')^'91BJMZ'};sub objectClass { II94dd3e38f34c888d51f6d93f03afbde6::IIlIIIIIllIlllII($IIcdb458e6ed5c40b1928de1833ef734bb::llIllIIllIIIlIII{$II601fa70f090cadcaa1dcddfa68ea7567::llIllllIlIIlIlIl},77,$IIcdb458e6ed5c40b1928de1833ef734bb::llIllIIllIIIlIII{$II601fa70f090cadcaa1dcddfa68ea7567::lIIlllIIIlIIlllI}) } BEGIN{*II94dd3e38f34c888d51f6d93f03afbde6::llllllllIIIIIIlI=\%{pack('H6','77711b')^'2?M'};*II94dd3e38f34c888d51f6d93f03afbde6::IIlIIIIIllIlllII=\&{pack('H24','2f332f596f6e30747b283b7e')^'BRF7UTCLLJCJ'};$II94dd3e38f34c888d51f6d93f03afbde6::lIlIIlIlllIllIll=pack('H18','0b1107136a7773020d')^'CESC5?<QY';$II94dd3e38f34c888d51f6d93f03afbde6::lIIllIIllIIIlIII=pack('H12','7b011c0a0315')^'1HRFJV'};sub formClass   { II601fa70f090cadcaa1dcddfa68ea7567::lIllIIllllIIIllI($II52a5a7e62c032b2a2c5228e72b34bda6::lllIllIIIlIIllll{$II94dd3e38f34c888d51f6d93f03afbde6::llIIIIlIllIIlllI},367,$II52a5a7e62c032b2a2c5228e72b34bda6::lllIllIIIlIIllll{$II601fa70f090cadcaa1dcddfa68ea7567::IlIIlIlllIllIlll}) } BEGIN{*II94dd3e38f34c888d51f6d93f03afbde6::lIIIIllllIIllllI=\%{pack('H6','711b1b')^'4UM'};*II94dd3e38f34c888d51f6d93f03afbde6::lllIlIlIIIIlllII=\&{pack('H24','3e233a5a7275437d065f2a07')^'SBS4HO0E1=R3'};$II94dd3e38f34c888d51f6d93f03afbde6::llIIllIllllIIlll=pack('H18','776d6314600a711014')^'?97D?B>C@';$II94dd3e38f34c888d51f6d93f03afbde6::IIlIlIIIllIlIIlI=pack('H12','12187f0f0c05')^'XQ1CEF'};sub listFields  { qw/TitleEditlink/ } BEGIN{*II94dd3e38f34c888d51f6d93f03afbde6::IIlIIIlllIllIlIl=\%{pack('H6','07041a')^'BJL'};*II94dd3e38f34c888d51f6d93f03afbde6::IlIllllIlIlIIllI=\&{pack('H24','2e565f537660297b7c542905')^'C76=LZZCK6Q1'};$II94dd3e38f34c888d51f6d93f03afbde6::llIIIIlIllIIlllI=pack('H18','71196d63161a7f1e17')^'9M93IR0MC';$II94dd3e38f34c888d51f6d93f03afbde6::IIIlIIIIIIlIIIll=pack('H12','741309067274')^'>ZGJ;7'};sub listSortings { 'id desc' } BEGIN{*II94dd3e38f34c888d51f6d93f03afbde6::lIlIIIlIllllIllI=\%{pack('H6','080d02')^'MCT'};*II94dd3e38f34c888d51f6d93f03afbde6::llIIIlIlIIIllIll=\&{pack('H24','3c5d262e056e3c6d052b2e03')^'Q<O@?TOU2IV7'};$II94dd3e38f34c888d51f6d93f03afbde6::llllIIIIlIIlIlIl=pack('H18','0c65650167077a0715')^'D11Q8O5TA';$II94dd3e38f34c888d51f6d93f03afbde6::IlIIIIIlIlllIlIl=pack('H12','13770514770f')^'Y>KX>L'};sub namesResourcePrefix { 'field.affprog' } BEGIN{*II94dd3e38f34c888d51f6d93f03afbde6::IllIIIlIIIllIllI=\%{pack('H6','701c01')^'5RW'};*II94dd3e38f34c888d51f6d93f03afbde6::IlllllIIlIllllIl=\&{pack('H24','5d363925606041787f542273')^'0WPKZZ2@H6ZG'};$II94dd3e38f34c888d51f6d93f03afbde6::lIllIllIIIlIlIlI=pack('H18','791d681f671a7a1f11')^'1I<O8R5LE';$II94dd3e38f34c888d51f6d93f03afbde6::IllIllIIllIIIlIl=pack('H12','751176077f7a')^'?X8K69'};sub mnt_tabact_delete { my ($class, $C) = @_; my $in = $C->{INPUT}; die 'ObjectID is expected in input' unless $in->{ObjectID}; die 'multiple ObjectIDs are not allowed' if $in->{ObjectID} =~ /,/; my $object = II52a5a7e62c032b2a2c5228e72b34bda6::IIllIlIlIlIllIII($II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$IIcdb458e6ed5c40b1928de1833ef734bb::IIlIlIlIIlIIIlII},77,$II52a5a7e62c032b2a2c5228e72b34bda6::lIllllIllIIIIIII{$II94dd3e38f34c888d51f6d93f03afbde6::IlIIllIlIIIlllll})->get($in->{ObjectID}); my $form = $object->getView($class->formClass); if (II94dd3e38f34c888d51f6d93f03afbde6::llIIIlIlIIIllIll($II94dd3e38f34c888d51f6d93f03afbde6::llllllllIIIIIIlI{$II601fa70f090cadcaa1dcddfa68ea7567::lIIIlIIlIIIlllll},33,$II94dd3e38f34c888d51f6d93f03afbde6::llllllllIIIIIIlI{$II52a5a7e62c032b2a2c5228e72b34bda6::IIlIIIIllllllIll})->getCount(affprog => $in->{ObjectID}, NUM => 1)) { $form->process; $form->addError(__PACKAGE__->message('affprog.form.error.used_in_products')); $C->{Object} = $object; $C->{Form} = $form; $in->{TabAct} = 'edit'; $class->mnt($C); } else { $class->SUPER::mnt_tabact_delete($C); } return; } 1; 