X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=extract_holdings;h=91febc97d84fcfe9646e9f290d643086906c9b72;hp=fadcf8dfe47cacc854cb7851ecdf43a6e0d6d9cd;hb=7aa7dfc0b3a13d24379e3e7bc407a29714b3a04f;hpb=10808752247bab3066a1bdfb69926cd4b2928ff8

diff --git a/extract_holdings b/extract_holdings
index fadcf8d..91febc9 100755
--- a/extract_holdings
+++ b/extract_holdings
@@ -50,9 +50,8 @@ sub extract_holdings {
         print HOLDINGS "BEGIN;\n\negid\thseq\t" unless $j;
         my $rec = $m->{data}{recs}[$i];
         my $k = 0; # holding-within-record pointer
-
         # for each holdings tag in the record...
-        while ( $rec->{tmap}{ $c->{holdings} }[$k] ) {
+        while ( defined $rec->{tmap}{ $c->{holdings} }[$k] ) {
             my $holdidx = $rec->{tmap}{ $c->{holdings} }[$k];
             my $tagid = $rec->{tags}[$holdidx]{tag};
             $k++;