Changeset 14174 for gsdl/trunk/perllib/plugins/PagedImgPlug.pm
- Timestamp:
- 2007-06-13T13:18:54+12:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/PagedImgPlug.pm
r14117 r14174 369 369 $doc_obj->add_metadata ($section, "ImageSize", $image_size); 370 370 $doc_obj->add_metadata ($section, "FileFormat", "PagedImg"); 371 371 # add NoText metadata which can be used to suppress the dummy text 372 $doc_obj->add_metadata ($section, "NoText", "1"); 373 374 372 375 if ($type eq "unknown" && $image_type) { 373 376 $type = $image_type; … … 849 852 $doc_obj->add_metadata ($topsection, "Source", $file); 850 853 851 # add NoText metadata which can be used to suppress the dummy text852 $doc_obj->add_metadata ($topsection, "NoText", "1");853 854 854 855 open (ITEMFILE, $filename) || die "couldn't open $filename\n"; … … 874 875 $doc_obj->set_utf8_metadata_element($cursection, 'Title', $pagenum); 875 876 # add NoText metadata which can be used to suppress the dummy text 876 $doc_obj->add_ utf3_metadata_element($cursection, "NoText", "1");877 $doc_obj->add_metadata($cursection, "NoText", "1"); 877 878 878 879 # process the image for this page if there is one
Note:
See TracChangeset
for help on using the changeset viewer.