• pickup_multi.msn

    224 225  
    30 30 }
    31 31 }
    32 32 }
    33 warn "\n\nPickup form ($name)".Dumper(\%ids)."\n";
    33 warn "\n\nPickup form ($name)".Dumper(\%ids)."\n" if $DEBUG;
    34 34 my @ids = map { $_->{id} } grep { !exists $_->{delete} } values %ids;
    35 warn "What to leave ($name)".Dumper(\@ids)."\n\n";
    35 warn "What to leave ($name)".Dumper(\@ids)."\n\n" if $DEBUG;
    36 36
    37 37 return \@ids;
    38 38