--- trunk/lib/WebPAC/Normalize.pm 2006/01/07 02:05:55 344 +++ trunk/lib/WebPAC/Normalize.pm 2006/01/07 03:28:10 346 @@ -600,7 +600,8 @@ if ($$rec->{$f}->[$i] =~ /HASH/o) { my $out; foreach my $k (keys %{$$rec->{$f}->[$i]}) { - $out .= $$rec->{$f}->[$i]->{$k}." "; + my $v = $$rec->{$f}->[$i]->{$k}; + $out .= "$v " if ($v); } return $out; } else {