Changeset 18471 for gsdl/trunk

Timestamp:

2009-02-06T22:41:34+13:00 (15 years ago)

Author:

davidb

Message:

Changed from using "reindex" to "update"

Location:

gsdl/trunk/perllib

Files:

• basebuildproc.pm (modified) (9 diffs)
• classify/AZList.pm (modified) (1 diff)
• lucenebuildproc.pm (modified) (6 diffs)

gsdl/trunk/perllib/basebuildproc.pm

@@ -355 +355 @@
     my $core_field = $2;
 
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
         $self->{'doc_mdprefix_fields'}->{$prefix}->{$core_field}++;
         $self->{'mdprefix_fields'}->{$prefix}->{$core_field}++;
@@ -369 +369 @@
     # implicit 'ex' metadata set
 
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
 
         $self->{'doc_mdprefix_fields'}->{'ex'}->{$field}++;
@@ -414 +414 @@
     }
 
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
     #add this document to the browse structure
     push(@{$self->{'doclist'}},$doc_obj->get_OID()) 
@@ -434 +434 @@
     &classify::classify_doc ($self->{'classifiers'}, $doc_obj, $edit_mode);
 
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
     # this is another document
     $self->{'num_docs'} += 1 unless ($doctype eq "classification");
@@ -463 +463 @@
 
     # update a few statistics
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
 
         $self->{'num_bytes'} += $doc_obj->get_text_length ($section);
@@ -511 +511 @@
         # special case for URL metadata
         if ($field =~ /^URL$/i) {
-            if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+            if (($edit_mode eq "add") || ($edit_mode eq "update")) {
 
             &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $value, { 'section' => [ $section_OID ] });
@@ -597 +597 @@
     } 
     
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
 
         &dbutil::write_infodb_entry($self->{'infodbtype'}, $infodb_handle, $section_OID, \%section_infodb);
@@ -610 +610 @@
     unless (ref($self) eq "lucenebuildproc")
     {
-        if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+        if (($edit_mode eq "add") || ($edit_mode eq "update")) {
         
         if ($self->{'db_level'} eq "document") {
@@ -651 +651 @@
     my ($doc_obj, $filename) = @_;
 
-    $self->infodbedit($doc_obj,$filename,"reindex");
+    $self->infodbedit($doc_obj,$filename,"update");
 }
 

gsdl/trunk/perllib/classify/AZList.pm

@@ -124 +124 @@
     my $outhandle = $self->{'outhandle'};
 
-    if (($edit_mode eq "delete") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "delete") || ($edit_mode eq "update")) {
     $self->oid_hash_delete($doc_OID,'list');
     return if ($edit_mode eq "delete");     

gsdl/trunk/perllib/lucenebuildproc.pm

@@ -79 +79 @@
 
     # this is another document
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
     $self->{'num_docs'} += 1;
     }
@@ -157 +157 @@
     }
 
-    if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+    if (($edit_mode eq "add") || ($edit_mode eq "update")) {
         $self->{'num_bytes'} += $doc_obj->get_text_length ($section);
     }
@@ -258 +258 @@
         $new_text = $self->filter_text ($field, $new_text);
 
-        if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+        if (($edit_mode eq "add") || ($edit_mode eq "update")) {
             $self->{'num_processed_bytes'} += length ($new_text);
             $text .= "$new_text";
@@ -318 +318 @@
         $new_text = $self->filter_text ("metadata", $new_text);
         
-        if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+        if (($edit_mode eq "add") || ($edit_mode eq "update")) {
         $self->{'num_processed_bytes'} += length ($new_text);
         $text .= "$new_text";
@@ -337 +337 @@
         $new_text = $self->filter_text ("allfields", $new_text);
         
-        if (($edit_mode eq "add") || ($edit_mode eq "reindex")) {
+        if (($edit_mode eq "add") || ($edit_mode eq "update")) {
         $self->{'num_processed_bytes'} += length ($new_text);
         $text .= "$new_text";
@@ -372 +372 @@
     my ($doc_obj,$file) = @_;
 
-    $self->textedit($doc_obj,$file,"reindex");
+    $self->textedit($doc_obj,$file,"update");
 }