Changeset 25787

Show
Ignore:
Timestamp:
13.06.2012 21:13:38 (7 years ago)
Author:
ak19
Message:

Forgot to commit the use of the perl function to find the filesize and set ex.FileSize? meta.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • main/trunk/greenstone2/perllib/plugins/ImageConverter.pm

    r25778 r25787  
    257257    #overwrite the ones added in BasePlugin 
    258258    $doc_obj->set_metadata_element ($section, "FileFormat", $type); 
    259     $doc_obj->set_metadata_element ($section, "FileSize",   $image_size); 
     259    my $sys_file_size = -s $filename_full_path; 
     260    $doc_obj->set_metadata_element ($section, "FileSize",   $sys_file_size); #$image_size); 
    260261 
    261262    $doc_obj->add_metadata ($section, "ImageType",   $image_type);