--- trunk/scripts/dbi-indexer.pl	2006/05/10 21:33:32	146
+++ trunk/scripts/dbi-indexer.pl	2006/05/10 21:41:35	147
@@ -19,6 +19,7 @@
 	sql => qq{
 		select * from history_collection_view_cache
 	},
+	pk_col => '_id',
 	db_encoding => 'iso-8859-2',
 	debug => 0,
 };
@@ -45,6 +46,7 @@
 my $i = 1;
 
 my $t = time();
+my $pk_col = $c->{pk_col} || 'id';
 
 while (my $row = $sth->fetchrow_hashref() ) {
 
@@ -53,7 +55,11 @@
 	# create document
 	my $doc = new Search::Estraier::Document;
 
-	$doc->add_attr('@uri', $row->{_id});
+	if (my $id = $row->{$pk_col}) {
+		$doc->add_attr('@uri', $id);
+	} else {
+		die "can't find pk_col column '$pk_col' in results\n";
+	}
 
 	printf "%4d ",$i;