--- trunk/lib/WebPAC/Validate.pm	2006/09/07 15:57:48	653
+++ trunk/lib/WebPAC/Validate.pm	2006/09/07 16:41:08	654
@@ -145,7 +145,7 @@
 		$fields->{$f}++;
 
 		if ( ! defined($r->{$f}) ) {
-			$errors->{field}->{ $f }->{extra} = "not expected";
+			$errors->{field}->{ $f }->{unexpected} = "this field is not expected";
 			next;
 		}
 
@@ -185,7 +185,7 @@
 								$sf_repeatable->{$sf}++;
 							};
 							if (! first { $_ eq $sf } @{ $r->{$f} }) {
-								$errors->{field}->{ $f }->{subfield}->{$sf} = "found extra subfield $sf which shouldn't exist";
+								$errors->{field}->{ $f }->{subfield}->{extra}->{$sf}++;
 							}
 						}
 
@@ -193,7 +193,7 @@
 					if (my @r_sf = sort keys( %$sf_repeatable )) {
 
 						foreach my $sf (@r_sf) {
-							$errors->{field}->{$f}->{subfield}->{$sf} = "repeatable";
+							$errors->{field}->{$f}->{subfield}->{repeatable}->{$sf}++;
 							$errors->{field}->{$f}->{dump}->{$f} =
 								join('', _pack_subfields_hash( $h, 1 ) );
 						}