Changeset 3540 for trunk/gsdl/perllib/plugins/GAPlug.pm

Timestamp:

2002-11-18T17:43:56+13:00 (21 years ago)

Author:

kjdon

Message:

added John T's changes into CVS - added info to enable retrieval of usage info in xml

File:

• trunk/gsdl/perllib/plugins/GAPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/GAPlug.pm

@@ -24 +24 @@
 ###########################################################################
 
-# Processes Greenstone Archive XML documents. Note that this plugin does no
-# syntax checking (though the XML::Parser module tests for well-formedness).
-# It's assumed that the Archive files conform to their DTD.
+# Processes GreenstoneArchive XML documents. Note that this plugin does no
+# syntax checking (though the XML::Parser module tests for
+# well-formedness). It's assumed that the GreenstoneArchive files conform
+# to their DTD.
+
+# 12/05/02 Added usage datastructure - John Thompson
 
 package GAPlug;
@@ -36 +39 @@
 }
 
+my $options = { 'name'     => "GAPlug",
+        'desc'     => "Processes GreenstoneArchive XML documents. Note that this plugin does no syntax checking (though the XML::Parser module tests for well-formedness). It's assumed that the GreenstoneArchive files conform to their DTD.",
+        'inherits' => "yes" };
+
 sub new {
     my $class = shift (@_);
     my $self = new XMLPlug ($class, @_);
+
+    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+    my $option_list = $self->{'option_list'};
+    push( @{$option_list}, $options );
 
     $self->{'section'} = "";
@@ -156 +167 @@
 
 1;
+
+