Changeset 17202 for gsdl/trunk/perllib/plugouts
- Timestamp:
- 2008-09-08T11:20:56+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugouts/BasePlugout.pm
r17200 r17202 1 1 ########################################################################### 2 2 # 3 # Bas Plugout.pm -- base class for all the plugout modules3 # BasePlugout.pm -- base class for all the plugout modules 4 4 # A component of the Greenstone digital library software 5 5 # from the New Zealand Digital Library Project at the … … 24 24 ########################################################################### 25 25 26 package Bas Plugout;26 package BasePlugout; 27 27 28 28 eval {require bytes}; … … 83 83 ]; 84 84 85 my $options = { 'name' => "Bas Plugout",85 my $options = { 'name' => "BasePlugout", 86 86 'desc' => "{BasPlugout.desc}", 87 87 'abstract' => "yes", … … 98 98 my $strPlugoutName = (defined $plugoutlist->[0]) ? $plugoutlist->[0] : $class; 99 99 100 if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}101 if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};100 push(@{$hashArgOptLists->{"ArgList"}},@{$arguments}); 101 push(@{$hashArgOptLists->{"OptList"}},$options); 102 102 103 103 my $self = {}; … … 275 275 my ($strFunctionName,$strError) = @_; 276 276 { 277 print "Error occoured in Bas Plugout.pm\n".277 print "Error occoured in BasePlugout.pm\n". 278 278 "In Function: ".$strFunctionName."\n". 279 279 "Error Message: ".$strError."\n"; … … 473 473 } 474 474 475 open (GROUPPROCESS, ">$doc_file") or (print $outhandle "Bas Plugout::group_process could not write to file $doc_file\n" and return);475 open (GROUPPROCESS, ">$doc_file") or (print $outhandle "BasePlugout::group_process could not write to file $doc_file\n" and return); 476 476 477 477 … … 481 481 $self->{'gs_doc_dir'} = $doc_dir; 482 482 483 $self->output_xml_header('Bas Plugout::GROUPPROCESS','Archive');483 $self->output_xml_header('BasePlugout::GROUPPROCESS','Archive'); 484 484 } 485 485 # Otherwise load the same archive document directory used last time … … 627 627 "$afile:$assoc_file_rec->[2]:$dir"); 628 628 } elsif ($self->{'verbosity'} > 2) { 629 print $outhandle "Bas Plugout::process couldn't copy the associated file " .629 print $outhandle "BasePlugout::process couldn't copy the associated file " . 630 630 "$real_filename to $afile\n"; 631 631 }
Note:
See TracChangeset
for help on using the changeset viewer.