--- trunk/lib/WebPAC/Normalize.pm 2006/06/29 21:19:08 543 +++ trunk/lib/WebPAC/Normalize.pm 2006/06/29 21:52:51 544 @@ -172,7 +172,8 @@ if ($last && $last->[0] eq $row->[0] && # check if field is same $last->[1] eq $row->[1] && # check for i1 - $last->[2] eq $row->[2] # and for i2 + $last->[2] eq $row->[2] && # and for i2 + $last->[3] ne $row->[3] # and subfield is different ) { push @$last, ( $row->[3] , $row->[4] ); warn "## ++ added $row->[0] ^$row->[3] to $last->[0]\n";