Changeset 14117 for trunk/gsdl/perllib/plugins/PagedImgPlug.pm

Timestamp:

2007-06-05T14:03:48+12:00 (17 years ago)

Author:

xiao

Message:

add a metadata NoText which can be used to suppress the dummy text 'This document has no text.'

File:

• trunk/gsdl/perllib/plugins/PagedImgPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -849 +849 @@
     $doc_obj->add_metadata ($topsection, "Source", $file);
 
+    # add NoText metadata which can be used to suppress the dummy text
+    $doc_obj->add_metadata ($topsection, "NoText", "1");
+
     open (ITEMFILE, $filename) || die "couldn't open $filename\n";
     my $line = "";
@@ -870 +873 @@
         # the page number becomes the Title
         $doc_obj->set_utf8_metadata_element($cursection, 'Title', $pagenum);
+        # add NoText metadata which can be used to suppress the dummy text
+        $doc_obj->add_utf3_metadata_element ($cursection, "NoText", "1");
+
         # process the image for this page if there is one
         if (defined $imgname && $imgname ne "") {