typo fix

diff --git a/extract_holdings b/extract_holdings
index 0ef270a..78fbde5 100755 (executable)
--- a/extract_holdings
+++ b/extract_holdings
@@ -39,7 +39,7 @@ sub extract_holdings {
     my $multis = $m->get_multis;
     my %MULTIFILE = ();
     for my $t ( keys %{$multis} ) {
-        for my $s ( keys %{$t}) 
+        for my $s ( keys %{$multis->{$t}}) 
           { open my $fh, ">", ($c->{prefix} . "-HOLDINGS-MULT-$t$s.pg"); $MULTIFILE{"$t$s"} = $fh }
     }
 
@@ -66,8 +66,10 @@ sub extract_holdings {
 
             # handle holdings multis
             for my $sub ( sort keys %{$multis->{$tagid}} ) {
-                for my $value ( @{$rec->{tags}[$holdidx]{multi}{$sub}} ) 
-                  { my $fh = $MULTIFILE{"$tagid$sub"}; print $fh join("\t", $rec->{egid}, $j, $value), "\n" }
+                for my $value ( @{$rec->{tags}[$holdidx]{multi}{$sub}} ) {
+                  my $fh = $MULTIFILE{"$tagid$sub"};
+                  print $fh join("\t", $rec->{egid}, $j, $value), "\n";
+              }
             }