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

Timestamp:

2009-10-05T15:53:42+13:00 (15 years ago)

Author:

kjdon

Message:

plugins now need to add any auxiliary source files as source assoc files, so we know when to reimport for incremental import. Have started this, but not finished and not tested :-)

File:

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

gsdl/trunk/perllib/plugins/PagedImagePlugin.pm

@@ -394 +394 @@
     my $self = shift(@_);
     my ($filename_full_path, $filename_no_path, $doc_obj, $section, $rotate) = @_;
+    # check the filenames
+    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);
+ 
     # do rotation
     if  ((defined $rotate) && ($rotate eq "r")) {
-    # check the filenames
-    return 0 if ($filename_no_path eq "" || !-f $filename_full_path);
-
     # we get a new temporary file which is rotated
     $filename_full_path = $self->rotate_image($filename_full_path);
@@ -617 +620 @@
     }
 
+    # remember that this text file was one of our source files
+    $doc_obj->associate_source_file($filename_full_path);
     # Do encoding stuff
     my ($language, $encoding) = $self->textcat_get_language_encoding ($filename_full_path);