Changeset 10218 for trunk/gsdl/perllib/plugins/DSpacePlug.pm

Timestamp:

2005-07-06T15:27:45+12:00 (19 years ago)

Author:

kjdon

Message:

Jeffrey's new parsing modifications, committed approx 6 July, 15.16

File:

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

trunk/gsdl/perllib/plugins/DSpacePlug.pm

@@ -54 +54 @@
 
 sub BEGIN {
-    @ISA = ('BasPlug');
+    @DSpacePlug::ISA = ('BasPlug');
 }
 
@@ -96 +96 @@
 
 sub new {
-    my $class = shift (@_);
-    #my $plugin_name = shift (@_);
-
-    $self = new BasPlug ($class, @_);
-    $self->{'plugin_type'} = "DSpacePlug";
-
-    my $option_list = $self->{'option_list'};
-    push( @{$option_list}, $options );
-
- 
-    if (!parsargv::parse(\@_,
-             q^only_first_doc^, \$self->{'only_first_doc'},
-             q^first_inorder_ext/.*/^, \$self->{'first_inorder_ext'},
-             q^first_inorder_mime/.*/^, \$self->{'first_inorder_mime'},
-             "allow_extra_options")) {
-    print STDERR "\nDSpacePlug uses an incorrect option.\n";
-    print STDERR "Check your collect.cfg configuration file.\n\n";
-    $self->print_txt_usage("");  # Use default resource bundle
-    die "\n";
-    }
+    my ($class) = shift (@_); 
+    my ($pluginlist,$inputargs,$hashArgOptLists) = @_;
+    push(@$pluginlist, $class);
+
+    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
+    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+
+    $self = (defined $hashArgOptLists)? new BasPlug($pluginlist,$inputargs,$hashArgOptLists): new BasPlug($pluginlist,$inputargs);
     
     #create XML::Parser object for parsing dublin_core.xml files