Changeset 14117 for trunk/gsdl/perllib/plugins/NULPlug.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/NULPlug.pm (modified) (1 diff)

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);