Changeset 17202

Show
Ignore:
Timestamp:
08.09.2008 11:20:56 (11 years ago)
Author:
kjdon
Message:

changed BasPlugout? to BasePlugout? in line with package renaming. Also tidied up constructor

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugouts/BasePlugout.pm

    r17200 r17202  
    11########################################################################### 
    22# 
    3 # BasPlugout.pm -- base class for all the plugout modules 
     3# BasePlugout.pm -- base class for all the plugout modules 
    44# A component of the Greenstone digital library software 
    55# from the New Zealand Digital Library Project at the  
     
    2424########################################################################### 
    2525 
    26 package BasPlugout; 
     26package BasePlugout; 
    2727 
    2828eval {require bytes}; 
     
    8383]; 
    8484 
    85 my $options = { 'name'     => "BasPlugout", 
     85my $options = { 'name'     => "BasePlugout", 
    8686        'desc'     => "{BasPlugout.desc}", 
    8787        'abstract' => "yes", 
     
    9898    my $strPlugoutName = (defined $plugoutlist->[0]) ? $plugoutlist->[0] : $class; 
    9999 
    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); 
    102102 
    103103    my $self = {}; 
     
    275275      my ($strFunctionName,$strError) = @_; 
    276276    { 
    277     print "Error occoured in BasPlugout.pm\n". 
     277    print "Error occoured in BasePlugout.pm\n". 
    278278        "In Function: ".$strFunctionName."\n". 
    279279        "Error Message: ".$strError."\n"; 
     
    473473        } 
    474474 
    475         open (GROUPPROCESS, ">$doc_file") or (print $outhandle "BasPlugout::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); 
    476476             
    477477 
     
    481481            $self->{'gs_doc_dir'} = $doc_dir; 
    482482 
    483         $self->output_xml_header('BasPlugout::GROUPPROCESS','Archive'); 
     483        $self->output_xml_header('BasePlugout::GROUPPROCESS','Archive'); 
    484484    } 
    485485        # Otherwise load the same archive document directory used last time 
     
    627627                     "$afile:$assoc_file_rec->[2]:$dir"); 
    628628    } elsif ($self->{'verbosity'} > 2) { 
    629         print $outhandle "BasPlugout::process couldn't copy the associated file " . 
     629        print $outhandle "BasePlugout::process couldn't copy the associated file " . 
    630630        "$real_filename to $afile\n"; 
    631631    }