Changeset 20778 for gsdl

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 :-)

Location:

gsdl/trunk/perllib/plugins

Files:

• BasePlugin.pm (modified) (3 diffs)
• HTMLPlugin.pm (modified) (1 diff)
• ISISPlugin.pm (modified) (1 diff)
• PagedImagePlugin.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -1050 +1050 @@
         $tail_filename = &util::rename_file($tail_filename, $self->{'file_rename_method'});
         $doc_obj->associate_file($full_filename,$tail_filename,$mimetype);
+        $doc_obj->associate_source_file($full_filename);
         # If the filename is url_encoded, we need to encode the % signs 
         # in the filename, so that it works in a url
@@ -1112 +1113 @@
 
     if (-e $filename) {
+    $doc_obj->associate_source_file($filename);
         $doc_obj->associate_file($filename, "cover.jpg", "image/jpeg");
     $doc_obj->add_utf8_metadata($top_section, "hascover",  1);
@@ -1118 +1120 @@
     $upper_filename =~ s/jpg$/JPG/;
     if (-e $upper_filename) {
+        $doc_obj->associate_source_file($upper_filename);
         $doc_obj->associate_file($upper_filename, "cover.jpg",
                      "image/jpeg");

gsdl/trunk/perllib/plugins/HTMLPlugin.pm

@@ -757 +757 @@
     return "_httpextlink_&rl=" . $rl . "&href=" . $href . $hash_part;
     }
+    # add the original image file as a source file
+    $doc_obj->associate_source_file($filename);
     if ($self->{'rename_assoc_files'}) {
     if (defined $self->{'aux_files'}->{$href}) {

gsdl/trunk/perllib/plugins/ISISPlugin.pm

@@ -214 +214 @@
     my $outhandle = $self->{'outhandle'};
 
+    # store the auxiliary files so we know which ones were used
+    # (mst file becomes the source file)
+    $doc_obj->associate_source_file($self->{'fdt_file_path'});
+    $doc_obj->associate_source_file($self->{'xrf_file_path'});
+
     my $section = $doc_obj->get_top_section();
     my $fdt_mapping = $self->{'fdt_mapping'};

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);