Changeset 10305

Timestamp:

2005-07-26T10:17:12+12:00 (19 years ago)

Author:

davidb

Message:

newly introduced is_incremental() used to help determine if file needs
to be indexed or not.

File:

• trunk/gsdl/perllib/plugins/ArcPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -137 +137 @@
         my $tmp = &util::filename_cat ($file, $subfile->[0]);
         next if $tmp eq $file;
-        
-        my $doc_oid = $subfile->[1];
 
+        # Decide if file needs to be processed
         my $index_status = $archive_info->get_status_info($doc_oid);
 
-        my $processor_mode = $processor->get_mode();        
+        my $process_file = 0;
+        
+        if ($processor->get_mode() eq "infodb") {
+        $process_file = 1;
+        }
+        else {
+        if (!$processor->is_incremental()) {
+            $process_file = 1;
+        }
+        else {
+            # is incremental
 
-        if (($processor_mode eq "infodb") || ($index_status eq "I")) {
+            # check to see if file needs to be indexed
+            my $doc_oid = $subfile->[1];
+            $index_status = $archive_info->get_status_info($doc_oid);
 
+            if ($index_status eq "I") {
+            $process_file = 1;
+            }
+        }
+        }
+
+
+        if ($process_file) {
         # note: metadata is not carried on to the next level
         $count += &plugin::read ($pluginfo, $base_dir, $tmp, {}, $processor, $maxdocs, ($total_count+$count), $gli);