Changeset 9468

Timestamp:

2005-03-18T14:44:23+13:00 (19 years ago)

Author:

kjdon

Message:

added a gli processing message

Location:

trunk/gsdl/perllib/plugins

Files:

• GAPlug.pm (modified) (1 diff)
• METSPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/GAPlug.pm

@@ -83 +83 @@
     my $outhandle = $self->{'outhandle'};
     print $outhandle "GAPlug: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;
+    print STDERR "<Processing n='$self->{'file'}' p='GAPlug'>\n" if $self->{'gli'};
+
 }
 

trunk/gsdl/perllib/plugins/METSPlug.pm

@@ -112 +112 @@
     my $outhandle = $self->{'outhandle'};
     print $outhandle "METSPlug: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;
+    print STDERR "<Processing n='$self->{'file'}' p='METSPlug'>\n" if ($self->{'gli'});
+
 }