--- trunk/lib/WebPAC/Normalize.pm	2006/07/05 00:12:08	583
+++ trunk/lib/WebPAC/Normalize.pm	2006/07/06 10:31:13	586
@@ -516,7 +516,7 @@
 		warn "## ++ marc_compose($f,$sf,$v) ", dump( $m ),$/ if ($debug > 1);
 	}
 
-	warn "## marc_compose(d) ", dump( $m ),$/ if ($debug > 1);
+	warn "## marc_compose current marc = ", dump( $m ),$/ if ($debug > 1);
 
 	push @{ $marc_record->[ $marc_record_offset ] }, $m if ($#{$m} > 2);
 }
@@ -777,6 +777,7 @@
 
 sub join_with {
 	my $d = shift;
+	warn "### join_with('$d',",dump(@_),")\n" if ($debug > 2);
 	my $v = join($d, grep { defined($_) && $_ ne '' } @_);
 	return '' unless defined($v);
 	return $v;