--- trunk/run.pl	2006/09/06 19:51:32	638
+++ trunk/run.pl	2006/09/07 15:01:45	652
@@ -12,7 +12,7 @@
 use WebPAC::Store 0.03;
 use WebPAC::Normalize 0.11;
 use WebPAC::Output::TT;
-use WebPAC::Validate;
+use WebPAC::Validate 0.06;
 use WebPAC::Output::MARC;
 use YAML qw/LoadFile/;
 use Getopt::Long;
@@ -406,8 +406,13 @@
 
 
 				if ($validate) {
-					my @errors = $validate->validate_errors( $row );
-					$log->error( "MFN $mfn validation errors:\n", join("\n", @errors) ) if (@errors);
+					if ( my $errors = $validate->validate_errors( $row ) ) {
+						my $dump_record = defined($errors->{dump}->{record});
+						$log->error( "MFN $mfn\n",
+							$dump_record ? $input_db->dump : '',
+							"validation errors:\n", dump( $errors )
+						);
+					}
 				}
 
 				my $ds_config = dclone($db_config);
@@ -460,6 +465,8 @@
 				$total_rows++;
 			}
 
+			$log->info("validation errors:\n", dump( $validate->{errors} ) ) if ($validate && defined($validate->{errors}));
+
 			$log->info("statistics of fields usage:\n", $input_db->stats) if ($stats);
 
 			# close MARC file