Changeset 16698 for gsdl/trunk/perllib/plugins/BasePlugin.pm

Timestamp:

2008-08-11T14:06:47+12:00 (16 years ago)

Author:

kjdon

Message:

added auxiliary parameter to new - needed if you want to do new without parsing the arguments - ie want to inherit from a plugin to get the methods and arguments, but its not in the direct inheritance line

File:

• gsdl/trunk/perllib/plugins/BasePlugin.pm (modified) (4 diffs)

gsdl/trunk/perllib/plugins/BasePlugin.pm

@@ -77 +77 @@
 
 push(@{$encoding_plus_auto_list},@{$encoding_list});
+
+our $oidtype_list = 
+    [ { 'name' => "hash",
+        'desc' => "{import.OIDtype.hash}" },
+      { 'name' => "assigned",
+        'desc' => "{import.OIDtype.assigned}" },
+      { 'name' => "incremental",
+        'desc' => "{import.OIDtype.incremental}" },
+      { 'name' => "dirname",
+        'desc' => "{import.OIDtype.dirname}" } ];
 
 my $arguments =
@@ -101 +111 @@
     'type' => "string",
     'reqd' => "no" },
-      { 'name' => "use_as_doc_identifier",
-    'desc' => "{BasePlugin.use_as_doc_identifier}",
-    'type' => "string",
-    'reqd' => "no" ,
-    'deft' => "" } ,
+      { 'name' => "OIDtype",
+    'desc' => "{import.OIDtype}",
+    'type' => "enum",
+    'list' => $oidtype_list,
+    # parsearg left "" as default
+    #'deft' => "hash",
+    'reqd' => "no",
+    'modegli' => "2" },
+      { 'name' => "OIDmetadata",
+    'desc' => "{import.OIDmetadata}",
+    'type' => "metadata",
+    'deft' => "dc.Identifier",
+    'reqd' => "no",
+    'modegli' => "2" },
+
+#      { 'name' => "use_as_doc_identifier",
+#   'desc' => "{BasePlugin.use_as_doc_identifier}",
+#   'type' => "string",
+#   'reqd' => "no" ,
+#   'deft' => "" } ,
      { 'name' => "no_cover_image",
     'desc' => "{BasePlugin.no_cover_image}",
@@ -136 +161 @@
 
     my ($class) = shift (@_);
-    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    my ($pluginlist,$inputargs,$hashArgOptLists,$auxiliary) = @_;
     push(@$pluginlist, $class);
 
@@ -142 +167 @@
     push(@{$hashArgOptLists->{"OptList"}},$options);
 
-    my $self = new PrintInfo($pluginlist, $inputargs, $hashArgOptLists);
+    my $self = new PrintInfo($pluginlist, $inputargs, $hashArgOptLists,$auxiliary);
     
     if ($self->{'info_only'}) {