--- trunk/lib/WebPAC/Normalize.pm	2006/04/17 16:01:12	433
+++ trunk/lib/WebPAC/Normalize.pm	2006/04/30 12:17:19	436
@@ -389,7 +389,7 @@
 
 			# we will skip delimiter before first occurence of field!
 			push @out, $del unless($found_any->{$fld_type} == 1);
-			push @out, $tmp;
+			push @out, $tmp if ($tmp);
 		}
 		$f_step++;
 	}
@@ -658,7 +658,8 @@
 			if ($$rec->{$f}->[$i] =~ /HASH/o) {
 				my $out;
 				foreach my $k (keys %{$$rec->{$f}->[$i]}) {
-					$out .= '$' . $k .':' . $$rec->{$f}->[$i]->{$k}." ";
+					my $v = $$rec->{$f}->[$i]->{$k};
+					$out .= '$' . $k .':' . $v if ($v);
 				}
 				return $out;
 			} else {