--- trunk/run.pl	2006/07/10 10:16:03	594
+++ trunk/run.pl	2006/07/10 10:16:11	595
@@ -20,6 +20,7 @@
 use Time::HiRes qw/time/;
 use File::Slurp;
 use Data::Dump qw/dump/;
+use Storable qw/dclone/;
 
 =head1 NAME
 
@@ -302,10 +303,22 @@
 					$log->error( "MFN $mfn validation errors:\n", join("\n", @errors) ) if (@errors);
 				}
 
+				my $ds_config = dclone($db_config);
+
+				# default values -> database key
+				$ds_config->{_} = $database;
+
+				# current mfn
+				$ds_config->{_mfn} = $mfn;
+
+				# attach current input
+				$ds_config->{input} = $input;
+
 				my $ds = WebPAC::Normalize::data_structure(
 					row => $row,
 					rules => $rules,
 					lookup => $lookup ? $lookup->lookup_hash : undef,
+					config => $ds_config,
 					marc_encoding => 'utf-8',
 				);