Changeset 16937

Show
Ignore:
Timestamp:
21.08.2008 12:36:08 (11 years ago)
Author:
ak19
Message:

Correction to setting new SourceFile? metadata

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ImageConverter.pm

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