Changeset 4744 for trunk/gsdl/perllib/plugins/MARCPlug.pm

Timestamp:

2003-06-20T14:22:34+12:00 (21 years ago)

Author:

mdewsnip

Message:

Tidied up and structures (representing the options of the plugin) in preparation for removing the print_usage() routines.

File:

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

trunk/gsdl/perllib/plugins/MARCPlug.pm

@@ -37 +37 @@
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
 }
+
+my $arguments = 
+    [ { 'name' => "metadata_mapping",
+    'desc' => "Name of file that includes mapping details from MARC values to Greenstone metadata names. Defaults to 'marctodc.txt' found in the site's etc directory.",
+    'type' => "string",
+    'deft' => "marctodc.txt",
+    'reqd' => "no" } ];
+
+my $options = { 'name'     => "MARCPlug",
+        'desc'     => "",
+        'inherits' => "Yes",
+        'args'     => $arguments };
 
 use MARC::Record;  
@@ -67 +79 @@
 
     $self->{'mm_file'} = $metadata_mapping; # relative to etc dir
+
+    # 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;