--- trunk/lib/WebPAC/Validate.pm	2006/09/07 16:41:08	654
+++ trunk/lib/WebPAC/Validate.pm	2006/09/08 14:13:54	656
@@ -160,10 +160,10 @@
 			if (ref($r->{$f}) eq 'ARRAY') {
 				# are values hashes? (has subfields)
 				if (! defined($v)) {
-					$errors->{field}->{$f}->{empty} = undef;
-					$errors->{dump} = $rec_dump if ($rec_dump);
+#					$errors->{field}->{$f}->{empty} = undef;
+#					$errors->{dump} = $rec_dump if ($rec_dump);
 				} elsif (ref($v) ne 'HASH') {
-					$errors->{field}->{$f}->{missing_subfield} = "subfields required for this field";
+					$errors->{field}->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required";
 					next;
 				} else {
 
@@ -193,8 +193,8 @@
 					if (my @r_sf = sort keys( %$sf_repeatable )) {
 
 						foreach my $sf (@r_sf) {
-							$errors->{field}->{$f}->{subfield}->{repeatable}->{$sf}++;
-							$errors->{field}->{$f}->{dump}->{$f} =
+							$errors->{field}->{$f}->{subfield}->{extra_repeatable}->{$sf}++;
+							$errors->{field}->{$f}->{dump} =
 								join('', _pack_subfields_hash( $h, 1 ) );
 						}