--- trunk/lib/WebPAC/Validate.pm	2006/09/08 14:13:54	656
+++ trunk/lib/WebPAC/Validate.pm	2006/09/11 11:57:18	664
@@ -18,11 +18,11 @@
 
 =head1 VERSION
 
-Version 0.06
+Version 0.07
 
 =cut
 
-our $VERSION = '0.06';
+our $VERSION = '0.07';
 
 =head1 SYNOPSIS
 
@@ -203,7 +203,7 @@
 					if ( defined( $self->{must_exist_sf}->{$f} ) ) {
 						foreach my $sf (sort keys %{ $self->{must_exist_sf}->{$f} }) {
 #warn "====> $f $sf must exist\n";
-							$errors->{field}->{$f}->{subfield}->{$sf} = "missing"
+							$errors->{field}->{$f}->{subfield}->{missing}->{$sf}++
 								unless defined( $subfields->{$sf} );
 						}
 					}
@@ -261,6 +261,55 @@
 	return $self->{errors};
 }
 
+=head2 report
+
+Produce nice humanly readable report of errors
+
+  print $validate->report;
+
+=cut
+
+sub report {
+	my $self = shift;
+
+	sub unroll {
+		my ($rest,$o, $dump) = @_;
+
+#warn "# rest: $rest o: $o\n";
+
+		return unless ($rest);
+
+		if (ref($rest) ne 'HASH') {
+			$o .= "($rest)";
+			return ($o,$dump);
+		}
+
+		foreach my $k (sort keys %{ $rest }) {
+
+			if ($k eq 'dump') {
+				$dump = $rest->{dump};
+				warn "## dump: $dump\n";
+				next;
+			}
+			my $u;
+			($u, $dump) = unroll($rest->{$k}, $o, $dump);
+			$o .= "$k $u";
+
+
+		}
+		return ($o,$dump);
+	}
+
+	my $out = '';
+
+	foreach my $mfn (sort keys %{ $self->{errors} }) {
+		my ($msg,$dump) = unroll( $self->{errors}->{$mfn}, '', '' );
+		$out .= "MFN $mfn\n$msg\t$dump\n\n";
+	}
+
+	return $out;
+}
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>