Changeset 17028 for gsdl/trunk/perllib/plugins/GreenstoneMETSPlugin.pm

Timestamp:

2008-08-28T09:41:08+12:00 (16 years ago)

Author:

kjdon

Message:

changed METS to GreenstoneMETS in the code

File:

• gsdl/trunk/perllib/plugins/GreenstoneMETSPlugin.pm (modified) (4 diffs)

gsdl/trunk/perllib/plugins/GreenstoneMETSPlugin.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# METSPlugin.pm
+# GreenstoneMETSPlugin.pm
 # A component of the Greenstone digital library software
 # from the New Zealand Digital Library Project at the 
@@ -30 +30 @@
 
 
-package METSPlugin;
+package GreenstoneMETSPlugin;
 
 use ghtml;
@@ -42 +42 @@
 
 sub BEGIN {
-    @METSPlugin::ISA = ('ReadXMLFile');
+    @GreenstoneMETSPlugin::ISA = ('ReadXMLFile');
 }
 
 my $arguments = [
          ];
-my $options = { 'name'     => "METSPlugin",
-        'desc'     => "{METSPlugin.desc}",
+my $options = { 'name'     => "GreenstoneMETSPlugin",
+        'desc'     => "{GreenstoneMETSPlugin.desc}",
         'abstract' => "no",
         'inherits' => "yes" };
@@ -118 +118 @@
     }
     my $outhandle = $self->{'outhandle'};
-    print $outhandle "METSPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;
-    print STDERR "<Processing n='$self->{'file'}' p='METSPlugin'>\n" if ($self->{'gli'});
+    print $outhandle "GreenstoneMETSPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;
+    print STDERR "<Processing n='$self->{'file'}' p='GreenstoneMETSPlugin'>\n" if ($self->{'gli'});
 
 }