removed moving call numbers where items and call numbers were on incompatible orgs...
[migration-tools.git] / cleanup_merge_map.pl
index 06f2c8f..5227d42 100755 (executable)
@@ -45,7 +45,7 @@ cleanup_map() foreach (1..2);
 
 foreach my $sub (sort numerically keys %leads) {
     if (1 == keys(%{ $leads{$sub} })) {
-        print join("\t", keys($leads{$sub}), $sub), "\n";
+        print join("\t", keys(%{ $leads{$sub} }), $sub), "\n";
     }
 }