--- trunk/lib/WebPAC/Normalize.pm	2006/01/02 10:58:26	340
+++ trunk/lib/WebPAC/Normalize.pm	2006/01/07 03:28:10	346
@@ -358,7 +358,7 @@
 			$found_any->{$fld_type} += $found;
 
 			# we will skip delimiter before first occurence of field!
-			push @out, $del unless($found_any == 1);
+			push @out, $del unless($found_any->{$fld_type} == 1);
 			push @out, $tmp;
 		}
 		$f_step++;
@@ -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 {