New implementation of indexes: now it uses only two tables (index for all

[webpac] / all2xml.pl

diff --git a/all2xml.pl b/all2xml.pl
index f9533dd..e0beef7 100755 (executable)
--- a/all2xml.pl
+++ b/all2xml.pl
@@ -22,7 +22,8 @@ die "FATAL: can't find configuration file '$config_file'" if (! -e $config_file)
 my $config;
 
 #use index_DBI;                # default DBI module for index
-use index_DBI_cache;   # faster DBI module using memory cache
+#use index_DBI_cache;  # faster DBI module using memory cache
+use index_DBI_tag;     # tag support for indexes
 my $index;
 
 my %opts;
@@ -257,8 +258,6 @@ sub data2xml {
                        # init vars so that we go into while...
                        ($swish,$display) = (1,1);
 
-                       # placeholder for all repeatable entries for index
-
                        sub mkformat($$) {
                                my $x = shift || die "mkformat needs tag reference";
                                my $data = shift || return;
@@ -743,7 +742,7 @@ print STDERR "using: $type...\n";
 
                print STDERR "Reading database: $isis_db [$max_rowid rows]\n";
 
-               my $path = $database;
+               $path = $database;
 
                for (my $row_id = 1; $row_id <= $max_rowid; $row_id++ ) {
                        my $row = $db->to_hash( $row_id );