X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Freindex.pl;fp=bin%2Freindex.pl;h=a3079fb34d9243185072ab31e349abf5b27b8826;hp=c802fe389d46733bfd4341f982663aaf818d3cc7;hb=a13aacfc6c2399576b0484823355f688f7f41710;hpb=d25108ee8b3e281e1f8cd2b73bd5118d0f533112

diff --git a/bin/reindex.pl b/bin/reindex.pl
index c802fe3..a3079fb 100755
--- a/bin/reindex.pl
+++ b/bin/reindex.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: reindex.pl,v 1.1 2007-03-02 15:14:13 mike Exp $
+# $Id: reindex.pl,v 1.2 2007-03-02 16:12:39 mike Exp $
 
 use strict;
 use warnings;
@@ -23,7 +23,10 @@ foreach my $i (1..$n) {
     print " $i/$n (", int($i*100/$n), "%)\n" if $i % 50 == 0;
     my $rec = $rs->record($i-1);
     my $xml = $rec->render();
-    update($conn, $xml);
+    open F, ">$i.xml" or die "can't open\n";
+    print F $xml;
+    close F;
+    #update($conn, $xml);
 }
 print " $n/$n (100%)\n" if $n % 50 != 0;
 commit($conn);