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

Timestamp:

2002-11-18T17:43:56+13:00 (22 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/ArcPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/ArcPlug.pm

@@ -28 +28 @@
 # when an import is done), processing each file it finds 
 
+# 12-05-02 Added usage datastructure - John Thompson
+
 package ArcPlug;
 
@@ -39 +41 @@
 }
 
+my $options = 
+{   'name'     => "ArcPlug",
+    'desc'     => "Plugin which recurses through an archives.inf file (i.e. the file generated in the archives directory when an import is done), processing each file it finds.",
+    'inherits' => "Yes" };
+
 sub new {
     my ($class) = @_;
     my $self = new BasPlug ("ArcPlug", @_);
+     
+    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+     my $option_list = $self->{'option_list'};
+     push( @{$option_list}, $options );
 
     return bless $self, $class;