Changeset 5919 for trunk/gsdl/perllib/plugins/XMLPlug.pm

Timestamp:

2003-11-20T13:48:25+13:00 (20 years ago)

Author:

kjdon

Message:

each plugin now adds a metadata field to teh doc obj based on the plugin name. For example, if a Word document doc.xml file will end up with metadata name='Word' value=1. You should be able to test for thismetadata and use it in format statements

File:

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

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -55 +55 @@
     # $self is global for use within subroutines called by XML::Parser
     $self = new BasPlug ($class, @_);
-
+    $self->{'plugin_type'} = "XML";
     # 14-05-02 To allow for proper inheritance of arguments - John Thompson
     my $option_list = $self->{'option_list'};
@@ -239 +239 @@
     $self->{'doc_obj'}->set_OID();
     
+    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
+
     # process the document
     $self->{'processor'}->process($self->{'doc_obj'});