--- trunk/lib/WebPAC/Validate.pm	2006/09/11 14:29:01	669
+++ trunk/lib/WebPAC/Validate.pm	2006/09/11 14:29:08	670
@@ -18,11 +18,11 @@
 
 =head1 VERSION
 
-Version 0.07
+Version 0.08
 
 =cut
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 =head1 SYNOPSIS
 
@@ -194,8 +194,7 @@
 
 						foreach my $sf (@r_sf) {
 							$errors->{$f}->{subfield}->{extra_repeatable}->{$sf}++;
-							$errors->{$f}->{dump} =
-								join('', _pack_subfields_hash( $h, 1 ) );
+							$errors->{$f}->{dump} = _pack_subfields_hash( $h, 1 );
 						}
 
 					}
@@ -211,8 +210,7 @@
 				}
 			} elsif (ref($v) eq 'HASH') {
 				$errors->{$f}->{unexpected_subfields}++;
-				$errors->{$f}->{dump} =
-					join('', _pack_subfields_hash( $v, 1 ) );
+				$errors->{$f}->{dump} = _pack_subfields_hash( $v, 1 );
 			}
 		}
 	}
@@ -294,7 +292,7 @@
 
 			if ($k eq 'dump') {
 				$dump = $tree->{dump};
-				warn "## dump: ",dump($dump),"\n";
+#				warn "## dump: ",dump($dump),"\n";
 				next;
 			}