--- trunk/lib/WebPAC/Normalize.pm	2006/07/13 21:31:32	600
+++ trunk/lib/WebPAC/Normalize.pm	2006/07/23 17:33:11	601
@@ -679,6 +679,7 @@
 	my $f = shift;
 	return unless (defined($rec && $rec->{$f}));
 	my $sf = shift;
+	warn "rec2($f,$sf) = ", dump( $rec->{$f} ), $/ if ($debug > 1);
 	return map {
 		if (ref($_->{$sf}) eq 'ARRAY') {
 			@{ $_->{$sf} };