Changeset 17202 for gsdl/trunk/perllib/plugouts/BasePlugout.pm

Timestamp:

2008-09-08T11:20:56+12:00 (16 years ago)

Author:

kjdon

Message:

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

File:

• gsdl/trunk/perllib/plugouts/BasePlugout.pm (modified) (8 diffs)

gsdl/trunk/perllib/plugouts/BasePlugout.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# BasPlugout.pm -- base class for all the plugout modules
+# BasePlugout.pm -- base class for all the plugout modules
 # A component of the Greenstone digital library software
 # from the New Zealand Digital Library Project at the 
@@ -24 +24 @@
 ###########################################################################
 
-package BasPlugout;
+package BasePlugout;
 
 eval {require bytes};
@@ -83 +83 @@
 ];
 
-my $options = { 'name'     => "BasPlugout",
+my $options = { 'name'     => "BasePlugout",
         'desc'     => "{BasPlugout.desc}",
         'abstract' => "yes",
@@ -98 +98 @@
     my $strPlugoutName = (defined $plugoutlist->[0]) ? $plugoutlist->[0] : $class;
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
 
     my $self = {};
@@ -275 +275 @@
       my ($strFunctionName,$strError) = @_;
     {
-    print "Error occoured in BasPlugout.pm\n".
+    print "Error occoured in BasePlugout.pm\n".
         "In Function: ".$strFunctionName."\n".
         "Error Message: ".$strError."\n";
@@ -473 +473 @@
         }
 
-        open (GROUPPROCESS, ">$doc_file") or (print $outhandle "BasPlugout::group_process could not write to file $doc_file\n" and return);
+        open (GROUPPROCESS, ">$doc_file") or (print $outhandle "BasePlugout::group_process could not write to file $doc_file\n" and return);
             
 
@@ -481 +481 @@
             $self->{'gs_doc_dir'} = $doc_dir;
 
-        $self->output_xml_header('BasPlugout::GROUPPROCESS','Archive');
+        $self->output_xml_header('BasePlugout::GROUPPROCESS','Archive');
     }
         # Otherwise load the same archive document directory used last time
@@ -627 +627 @@
                      "$afile:$assoc_file_rec->[2]:$dir");
     } elsif ($self->{'verbosity'} > 2) {
-        print $outhandle "BasPlugout::process couldn't copy the associated file " .
+        print $outhandle "BasePlugout::process couldn't copy the associated file " .
         "$real_filename to $afile\n";
     }