Index: pickup_multi.msn
===================================================================
--- pickup_multi.msn	(revision 224)
+++ pickup_multi.msn	(revision 225)
@@ -30,9 +30,9 @@
 			}
 		}
 	}
-	warn "\n\nPickup form ($name)".Dumper(\%ids)."\n";
+	warn "\n\nPickup form ($name)".Dumper(\%ids)."\n"			if $DEBUG;
 	my @ids = map { $_->{id} } grep { !exists $_->{delete} } values %ids;
-	warn "What to leave ($name)".Dumper(\@ids)."\n\n";
+	warn "What to leave ($name)".Dumper(\@ids)."\n\n"			if $DEBUG;
 
 	return \@ids;