--- trunk/run.pl	2006/10/02 09:31:25	735
+++ trunk/run.pl	2006/10/05 12:57:51	736
@@ -10,7 +10,7 @@
 use WebPAC::Parser 0.04;
 use WebPAC::Input 0.13;
 use WebPAC::Store 0.11;
-use WebPAC::Normalize 0.21;
+use WebPAC::Normalize 0.22;
 use WebPAC::Output::TT;
 use WebPAC::Validate 0.06;
 use WebPAC::Output::MARC;
@@ -364,6 +364,13 @@
 				my $rec = shift || die "need rec!";
 				my $mfn = $rec->{'000'}->[0] || die "need mfn in 000";
 
+				$store->save_row(
+					database => $database,
+					input => $input_name,
+					id => $mfn,
+					row => $rec,
+				);
+
 				WebPAC::Normalize::data_structure(
 					row => $rec,
 					rules => $rules,
@@ -484,9 +491,9 @@
 				lookup => $lookup_hash,
 				config => create_ds_config( $db_config, $database, $input, $mfn ),
 				marc_encoding => 'utf-8',
-				load_ds_coderef => sub {
+				load_row_coderef => sub {
 					my ($database,$input,$mfn) = @_;
-					return $store->load_ds(
+					return $store->load_row(
 						database => $database,
 						input => $input,
 						id => $mfn,
@@ -494,6 +501,8 @@
 				},
 			);
 
+			$log->debug("ds = ",dump($ds));
+
 			$store->save_ds(
 				database => $database,
 				input => $input_name,