Changeset 10218 for trunk/gsdl/perllib/plugins/ISISPlug.pm
- Timestamp:
- 2005-07-06T15:27:45+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ISISPlug.pm
r9998 r10218 96 96 sub new 97 97 { 98 my $class = shift(@_); 99 100 my $self = new SplitPlug($class, @_); 101 if (!parsargv::parse(\@_, 102 q^subfield_separator/.*/, ^, \$self->{'subfield_separator'}, 103 q^entry_separator/.*/<br>^, \$self->{'entry_separator'}, 104 "allow_extra_options")) { 105 print STDERR "\nIncorrect options passed to ISISPlug, check your collect.cfg configuration file\n"; 106 die "\n"; 107 } 108 109 # To allow for proper inheritance of arguments 110 my $option_list = $self->{'option_list'}; 111 push(@{$option_list}, $options); 112 $self->{'plugin_type'} = "ISISPlug"; 98 my ($class) = shift (@_); 99 my ($pluginlist,$inputargs,$hashArgOptLists) = @_; 100 push(@$pluginlist, $class); 101 102 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});} 103 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)}; 104 105 my $self = (defined $hashArgOptLists)? new SplitPlug($pluginlist,$inputargs,$hashArgOptLists): new SplitPlug($pluginlist,$inputargs); 113 106 114 107 return bless $self, $class;
Note:
See TracChangeset
for help on using the changeset viewer.