-
lookup_multi.msn
274 275 19 19 next unless $k =~ /^${name}_(add|delete)$/; 20 20 next unless $v; 21 21 22 warn Dumper $v; 22 23 if ($1 eq 'add') { 23 24 $ids{$v} = 1; 24 25 } elsif ($1 eq 'delete') { 25 delete $ids{$v}; 26 if ( ref $v eq 'ARRAY' ) { 27 map { delete $ids{$_} } @$v; 28 } else { 29 delete $ids{$v}; 30 } 26 31 } 27 32 } 28 33