Changeset 16937 for gsdl/trunk/perllib/plugins/ImageConverter.pm

Timestamp:

2008-08-21T12:36:08+12:00 (16 years ago)

Author:

ak19

Message:

Correction to setting new SourceFile metadata

File:

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

gsdl/trunk/perllib/plugins/ImageConverter.pm

@@ -211 +211 @@
     # here we overwrite the original with the potentially converted one
     $doc_obj->set_utf8_metadata_element($section, "Source", &unicode::url_decode($filename_no_path)); # displayname of generated image
-    $doc_obj->set_utf8_metadata_element($section, "SourceFile", $filename_no_path); # displayname of generated image
+    $doc_obj->set_utf8_metadata_element($section, "SourceFile", $url_to_filename_no_path); # displayname of generated image
 
     # use identify to get info about the (possibly converted) image