Changeset 14117 for trunk/gsdl

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.'

Location:

trunk/gsdl/perllib/plugins

Files:

• ImagePlug.pm (modified) (1 diff)
• MP3Plug.pm (modified) (1 diff)
• NULPlug.pm (modified) (1 diff)
• OggVorbisPlug.pm (modified) (1 diff)
• PagedImgPlug.pm (modified) (2 diffs)
• UnknownPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -200 +200 @@
     $doc_obj->add_metadata ($section, "ImageHeight", $image_height);
     $doc_obj->add_metadata ($section, "ImageSize",   $image_size);
+    $doc_obj->add_metadata ($section, "NoText",    "1");
 
     $doc_obj->add_metadata ($section, "srclink", 

trunk/gsdl/perllib/plugins/MP3Plug.pm

@@ -158 +158 @@
     $doc_obj->add_metadata ($section, $assoc_field, $assoc_name);
     $doc_obj->add_metadata ($section, "srcurl", $assoc_url);
+    $doc_obj->add_metadata ($section, "NoText",    "1");
 
     my $mp3_info = get_mp3info($filename);

trunk/gsdl/perllib/plugins/NULPlug.pm

@@ -125 +125 @@
     $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "FileSize", (-s $filename));
 
+    # the metadata NoText is used to suppress the dummy text 'This document has no text.'
+    $doc_obj->add_metadata ($doc_obj->get_top_section(), "NoText",    "1");
+
     my $assoc_field = $self->{'assoc_field'} || "null_file";
     $doc_obj->add_metadata ($doc_obj->get_top_section(), $assoc_field, $file);

trunk/gsdl/perllib/plugins/OggVorbisPlug.pm

@@ -153 +153 @@
     $doc_obj->add_metadata ($section, "srcicon", "<img src=\"_httpprefix_/images/iogg.gif\" title=\"Download\" border=0>");
 
+    # add NoText metadata which can be used to suppress the dummy text
+    $doc_obj->add_metadata ($section, "NoText", "1");
+
     # Add the actual file as an associated file
     $doc_obj->associate_file($filename, $file, "VORBIS", $section);

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 "") {

trunk/gsdl/perllib/plugins/UnknownPlug.pm

@@ -157 +157 @@
     $doc_obj->add_metadata ($section, "/srclink", "</a>");
     
+    # add NoText metadata which can be used to suppress the dummy text
+    $doc_obj->add_metadata ($section, "NoText", "1");
+
     return 1;
 }