--- trunk/lib/WebPAC/Normalize.pm	2006/01/07 03:28:10	346
+++ trunk/lib/WebPAC/Normalize.pm	2006/01/08 20:27:11	364
@@ -194,15 +194,18 @@
 			$log->logdie("expected tag HASH and got $tag") unless (ref($tag) eq 'HASH');
 			$format = $tag->{'value'} || $tag->{'content'};
 
-			$log->debug("format: $format");
-
 			my @v;
 			if ($self->{'lookup_regex'} && $format =~ $self->{'lookup_regex'}) {
 				@v = $self->fill_in_to_arr($rec,$format);
 			} else {
 				@v = $self->parse_to_arr($rec,$format);
 			}
-			next if (! @v);
+			if (! @v) {
+				$log->debug("$field <",$self->{tag},"> format: $format no values");
+#				next;
+			} else {
+				$log->debug("$field <",$self->{tag},"> format: $format values: ", join(",", @v));
+			}
 
 			if ($tag->{'sort'}) {
 				@v = $self->sort_arr(@v);
@@ -225,7 +228,7 @@
 
 			foreach my $type (@types) {
 				# append to previous line?
-				$log->debug("type: $type ",sub { join(" ",@v) }, " ", $row->{'append'} || 'no append');
+				$log->debug("tag $field / $type [",sub { join(",",@v) }, "] ", $row->{'append'} || 'no append');
 				if ($tag->{'append'}) {
 
 					# I will delimit appended part with
@@ -494,7 +497,7 @@
 	if ($format =~ s/v(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,$i,\$found)/ges) {
 		$just_single = 0;
 	}
-	
+
 	# non-repeatable fields
 	if ($format =~ s/s(\d+)(?:\^(\w))?/$self->get_data(\$rec,$1,$2,0,\$found)/ges) {
 		return if ($i > 0 && $just_single);
@@ -553,8 +556,8 @@
 	my $i = 0;
 	my @arr;
 
-	while (my @v = $self->fill_in($rec,$format_utf8,$i++)) {
-		push @arr, @v;
+	while (my $v = $self->fill_in($rec,$format_utf8,$i++)) {
+		push @arr, $v;
 	}
 
 	$log->debug("format '$format_utf8' returned ",--$i," elements: ", sub { join(" | ",@arr) }) if (@arr);