--- trunk/run.pl	2006/07/04 11:36:12	581
+++ trunk/run.pl	2006/07/05 19:52:45	585
@@ -8,7 +8,7 @@
 
 use WebPAC::Common 0.02;
 use WebPAC::Lookup;
-use WebPAC::Input 0.03;
+use WebPAC::Input 0.07;
 use WebPAC::Store 0.03;
 use WebPAC::Normalize 0.11;
 use WebPAC::Output::TT;
@@ -233,10 +233,13 @@
 
 		my $input_db = new WebPAC::Input(
 			module => $input_module,
-			code_page => $config->{webpac}->{webpac_encoding},
+			encoding => $config->{webpac}->{webpac_encoding},
 			limit => $limit || $input->{limit},
 			offset => $offset,
-			lookup => $lookup,
+			lookup_coderef => sub {
+				my $rec = shift || return;
+				$lookup->add( $rec );
+			},
 			recode => $input->{recode},
 			stats => $stats,
 		);