Changeset 17740 for gsdl/trunk/perllib/plugins/GreenstoneXMLPlugin.pm

Timestamp:

2008-11-06T14:17:42+13:00 (15 years ago)

Author:

kjdon

Message:

renamed GAPlugin to GreenstoneXMLPlugin

File:

• gsdl/trunk/perllib/plugins/GreenstoneXMLPlugin.pm (moved) (moved from gsdl/trunk/perllib/plugins/GAPlugin.pm ) (5 diffs)

gsdl/trunk/perllib/plugins/GreenstoneXMLPlugin.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# GAPlugin.pm
+# GreenstoneXMLPlugin.pm
 # A component of the Greenstone digital library software
 # from the New Zealand Digital Library Project at the 
@@ -29 +29 @@
 # to their DTD.
 
-package GAPlugin;
+package GreenstoneXMLPlugin;
 
 use ReadXMLFile;
@@ -37 +37 @@
 
 sub BEGIN {
-    @GAPlugin::ISA = ('ReadXMLFile');
+    @GreenstoneXMLPlugin::ISA = ('ReadXMLFile');
 }
 
@@ -54 +54 @@
     'reqd' => "no" } ];
 
-my $options = { 'name'     => "GAPlugin",
+my $options = { 'name'     => "GreenstoneXMLPlugin",
         'desc'     => "{GAPlugin.desc}",
         'abstract' => "no",
@@ -106 +106 @@
 
     my $outhandle = $self->{'outhandle'};
-    print $outhandle "GAPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;
-    print STDERR "<Processing n='$self->{'file'}' p='GAPlugin'>\n" if $self->{'gli'};
+    print $outhandle "GreenstoneXMLPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;
+    print STDERR "<Processing n='$self->{'file'}' p='GreenstoneXMLPlugin'>\n" if $self->{'gli'};
 
 }