From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 24 Jun 2009 19:20:19 +0000 (+0000)
Subject: typo fix
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=e62ff5b8e90d327bc36e4f347ed92a919cdcd539

typo fix
---

diff --git a/extract_holdings b/extract_holdings
index 0ef270a..78fbde5 100755
--- 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";
+              }
             }