Changeset 13420

Timestamp:

2006-12-05T16:25:07+13:00 (17 years ago)

Author:

kjdon

Message:

added a option to add a table of metadata as the documnet text, rather than the dummy string 'this document has no text'

File:

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

trunk/gsdl/perllib/plugins/NULPlug.pm

@@ -56 +56 @@
     'type' => "string",
     'deft' => "",
-    'reqd' => "no" } ];
+    'reqd' => "no" },
+      { 'name' => "add_metadata_as_text",
+    'desc' => "{NULPlug.add_metadata_as_text}",
+    'type' => "flag" },
+      { 'name' => "remove_namespace_for_text",
+    'desc' => "{NULPlug.remove_namespace_for_text}",
+    'type' => "flag" }
+      ];
 
 my $options = { 'name'     => "NULPlug",
@@ -121 +128 @@
     $doc_obj->add_metadata ($doc_obj->get_top_section(), $assoc_field, $file);
     
-    #create an empty text string so we don't break downstream plugins
-    my $text = &gsprintf::lookup_string("{BasPlug.dummy_text}",1);
-    
     # include any metadata passed in from previous plugins 
     my $section = $doc_obj->get_top_section();
     $self->extra_metadata ($doc_obj, $section, $metadata);
     
+    # format the metadata passed in (presumably from metadata.xml)
+    my $text = "";
+    if ($self->{'add_metadata_as_text'}) {
+    $text = &metadatautil::format_metadata_as_table($metadata, $self->{'remove_namespace_for_text'});
+    } else {
+    #create an empty text string so we don't break downstream plugins 
+    $text = &gsprintf::lookup_string("{BasPlug.dummy_text}",1);
+    }
     $self->title_fallback($doc_obj,$section,$file);