--- trunk/run.pl	2006/10/08 20:28:17	755
+++ trunk/run.pl	2006/11/03 19:41:28	768
@@ -8,8 +8,8 @@
 
 use WebPAC::Common 0.02;
 use WebPAC::Parser 0.08;
-use WebPAC::Input 0.13;
-use WebPAC::Store 0.11;
+use WebPAC::Input 0.14;
+use WebPAC::Store 0.14;
 use WebPAC::Normalize 0.22;
 use WebPAC::Output::TT;
 use WebPAC::Validate 0.06;
@@ -350,13 +350,6 @@
 				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,
@@ -380,12 +373,30 @@
 			lookup_coderef => $lookup_coderef,
 			lookup => $lookup_jar,
 			%{ $input },
+			load_row => sub {
+				my $a = shift;
+				return $store->load_row(
+					database => $database,
+					input => $input_name,
+					id => $a->{id},
+				);
+			},
+			save_row => sub {
+				my $a = shift;
+				return $store->save_row(
+					database => $database,
+					input => $input_name,
+					id => $a->{id},
+					row => $a->{row},
+				);
+			},
+
 		);
 
 		my $lookup_data = WebPAC::Normalize::_get_lookup();
 
 		if (defined( $lookup_data->{$database}->{$input_name} )) {
-			$log->debug("created following lookups: ", dump( $lookup_data ));
+			$log->debug("created following lookups: ", sub { dump( $lookup_data ) } );
 
 			foreach my $key (keys %{ $lookup_data->{$database}->{$input_name} }) {
 				$store->save_lookup(
@@ -436,17 +447,19 @@
 			foreach my $db (keys %$depends) {
 				foreach my $i (keys %{$depends->{$db}}) {
 					foreach my $k (keys %{$depends->{$db}->{$i}}) {
+						my $t = time();
 						$log->debug("loading lookup $db/$i");
 						$lookup_hash->{$db}->{$i}->{$k} = $store->load_lookup(
 							database => $db,
 							input => $i,
 							key => $k,
 						);
+						$log->debug(sprintf("lookup $db/$i took %.2fs", time() - $t));
 					}
 				}
 			}
 
-			$log->debug("lookup_hash = ", dump( $lookup_hash ));
+			$log->debug("lookup_hash = ", sub { dump( $lookup_hash ) });
 		}
 
 
@@ -464,7 +477,7 @@
 
 
 			if ($validate) {
-				if ( my $errors = $validate->validate_errors( $row, $input_db->dump ) ) {
+				if ( my $errors = $validate->validate_rec( $row, $input_db->dump ) ) {
 					$log->error( "MFN $mfn validation error:\n",
 						$validate->report_error( $errors )
 					);
@@ -487,7 +500,7 @@
 				},
 			);
 
-			$log->debug("ds = ",dump($ds)) if ($ds);
+			$log->debug("ds = ", sub { dump($ds) }) if ($ds);
 
 			$store->save_ds(
 				database => $database,