Changeset 20791 for gsdl/trunk/perllib/plugins/PagedImagePlugin.pm

Timestamp:

2009-10-07T15:54:37+13:00 (15 years ago)

Author:

kjdon

Message:

new option -processing_tmp_files - if set, then don't store the assicated files using associate_source_file - we don't want to store tmp files in the archivesinf databases

File:

• gsdl/trunk/perllib/plugins/PagedImagePlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/PagedImagePlugin.pm

@@ -175 +175 @@
     'list' => $type_list,
     'deft' => "paged",
-    'reqd' => "no" } ];
+    'reqd' => "no" },
+      {'name' => "processing_tmp_files",
+       'desc' => "{BasePlugin.processing_tmp_files}",
+       'type' => "flag",
+       'hiddengli' => "yes"}
+];
 
 
@@ -397 +402 @@
     return 0 if ($filename_no_path eq "" || !-f $filename_full_path);
  
-    # remember that this image file was one of our source files
-    $doc_obj->associate_source_file($filename_full_path);
- 
+    # remember that this image file was one of our source files, but only 
+    # if we are not processing a tmp file
+    if (!$self->{'processing_tmp_files'} ) {
+    $doc_obj->associate_source_file($filename_full_path);
+    }
     # do rotation
     if  ((defined $rotate) && ($rotate eq "r")) {
@@ -620 +627 @@
     }
 
-    # remember that this text file was one of our source files
-    $doc_obj->associate_source_file($filename_full_path);
+    # remember that this text file was one of our source files, but only 
+    # if we are not processing a tmp file
+    if (!$self->{'processing_tmp_files'} ) {
+    $doc_obj->associate_source_file($filename_full_path);
+    }
     # Do encoding stuff
     my ($language, $encoding) = $self->textcat_get_language_encoding ($filename_full_path);