--- trunk/run.pl	2006/07/02 14:40:32	560
+++ trunk/run.pl	2006/07/02 21:22:26	567
@@ -328,20 +328,33 @@
 					} else {
 						$marc->add_fields( @marc_fields );
 
+						# tweak leader
+						if (my $new_l = WebPAC::Normalize::marc_leader()) {
+
+							my $leader = $marc->leader;
+
+							foreach my $o ( keys %$new_l ) {
+								my $insert = $new_l->{$o};
+								$leader = substr($leader, 0, $o) .
+									$insert . substr($leader, $o+length($insert));
+							}
+							$marc->leader( $leader );
+						}
+
 						if ($marc_lint) {
 							$lint->check_record( $marc );
 							my $err = join( "\n", $lint->warnings );
-							$log->error("MARC lint detected warning on MFN $mfn\n",
-								"Original imput row: ",dump($row), "\n",
-								"Normalized MARC row: ",dump(@marc_fields), "\n",
-								"MARC lint warnings: ",$err,"\n"
+							$log->error("MARC lint detected warning on MFN $mfn\tleader:", $marc->leader(), "\n",
+								">>>>> Original imput row:\n",dump($row), "\n",
+								">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n",
+								">>>>> MARC lint warnings:\n",$err,"\n"
 							) if ($err);
 						}
 
 						if ($marc_dump) {
-							$log->info("MARC record on MFN $mfn\n",
-								"Original imput row: ",dump($row), "\n",
-								"Normalized MARC row: ",dump(@marc_fields), "\n",
+							$log->info("MARC record on MFN $mfn\tleader:", $marc->leader(), "\n",
+								">>>>> Original imput row:\n",dump($row), "\n",
+								">>>>> Normalized MARC row:\n",dump(@marc_fields), "\n",
 							);
 						}