• 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