Changeset 21344 for main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

Timestamp:

2009-12-14T14:49:27+13:00 (14 years ago)

Author:

kjdon

Message:

inheriting plugins can now set store_file_paths, and ImageConverter will store the real file path for thumbnail, screenview and converted original

File:

• main/trunk/greenstone2/perllib/plugins/ImageConverter.pm (modified) (4 diffs)

main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

@@ -163 +163 @@
     $self->init_cache_for_file($filename_full_path);
     }
-
+    if ($self->{'store_file_paths'}) {
+    $self->{'orig_file'} = "";
+    $self->{'thumb_file'} = "";
+    $self->{'screen_file'} = "";
+    }
     my $verbosity = $self->{'verbosity'};
     my $outhandle = $self->{'outhandle'};
@@ -201 +205 @@
     $filename_no_path = "$filehead.$type";
     $url_to_filename_no_path = "$url_to_filehead.$type";
+    if ($self->{'store_file_paths'}) {
+        $self->{'orig_file'} = $converted_filename_full_path;
+    }
     }
 
@@ -279 +286 @@
         $doc_obj->add_metadata ($section, "ThumbHeight", $2);
     }
+    if ($self->{'store_file_paths'}) {
+        $self->{'thumb_file'} = $thumbnailfile;
+    }
+
     } else {
     my $outhandle = $self->{'outhandle'};
@@ -323 +334 @@
         $doc_obj->add_metadata ($section, "ScreenHeight", $2);
     }
+
+    if ($self->{'store_file_paths'}) {
+        $self->{'screen_file'} = $screenviewfilename;
+    }
+
     } else {
     my $outhandle = $self->{'outhandle'};