adding variant add subfield 9 that work only on tags with a 856 that matches conditio...

[migration-tools.git] / cleanup_merge_map.pl

diff --git a/cleanup_merge_map.pl b/cleanup_merge_map.pl
index 06f2c8f..5227d42 100755 (executable)
--- a/cleanup_merge_map.pl
+++ b/cleanup_merge_map.pl
@@ -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";
     }
 }