CVS update: AxKit-XSP-Wiki/lib/AxKit/XSP/Wiki

[matt]

Date:   Sunday February 2, 2003 @ 21:20
Author: matt

Update of /home/cvs/AxKit-XSP-Wiki/lib/AxKit/XSP/Wiki
In directory ted.sergeant.org:/home/matt/Perl/AxKit-XSP-Wiki/lib/AxKit/XSP/Wiki

Modified Files:
        Indexer.pm 
Log Message:
Added Indexer. Don't show errors
Log:
PR:

Index: Indexer.pm
===================================================================
RCS file: /home/cvs/AxKit-XSP-Wiki/lib/AxKit/XSP/Wiki/Indexer.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -b -u -r1.1 -r1.2
--- Indexer.pm  2003/02/02 18:00:34     1.1
+++ Indexer.pm  2003/02/02 21:20:46     1.2
@@ -1,4 +1,4 @@
-# $Id: Indexer.pm,v 1.1 2003/02/02 18:00:34 matt Exp $
+# $Id: Indexer.pm,v 1.2 2003/02/02 21:20:46 matt Exp $
 
 package AxKit::XSP::Wiki::Indexer;
 use strict;
@@ -18,6 +18,7 @@
     
     $self->{InsertCTI} = $db->prepare("INSERT INTO ContentIndex (page_id, word_id, 
value) VALUES (?, ?, ?)");
     $self->{InsertWord} = $db->prepare("INSERT INTO Word (word) VALUES (?)");
+    $self->{InsertWord}->{PrintError} = 0;
     $self->{FindWord} = $db->prepare("SELECT id FROM Word WHERE word = ?");
     $self->{DeleteCTI} = $db->prepare("DELETE FROM ContentIndex WHERE page_id = ?");
     
@@ -37,12 +38,14 @@
         next unless $word;
         my $word_id = $self->insert_word($word);
         next unless $word_id;
+warn("Indexing: $self->{PageId}, $word_id, $word\n");
         $self->{InsertCTI}->execute(
             $self->{PageId},
             $word_id,
             $self->{Words}{$word},
         );
     }
+    $self->{DB}->commit;
 }
 
 sub insert_word {

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]