Changeset 6332 for trunk/gsdl/perllib/plugins/MARCPlug.pm

Timestamp:

2003-12-19T15:16:29+13:00 (20 years ago)

Author:

jmt12

Message:

When -gli argument is provided to calling script these modules will now output gli specific, non-language nor verbosity specific, messages

File:

• trunk/gsdl/perllib/plugins/MARCPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/MARCPlug.pm

@@ -52 +52 @@
 require MARC::Record;  
 require MARC::Batch;  
+#use MARC::Record;  
+#use MARC::Batch;
 
 #  sub print_usage {
@@ -211 +213 @@
 sub process {
     my $self = shift (@_);
-    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj) = @_;
+    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
     my $outhandle = $self->{'outhandle'};
 
@@ -219 +221 @@
     return undef;
     }
+
+    print STDERR "<Processing n='$file' p='MARCPlug'>\n" if ($gli);
     print $outhandle "MARCPlug: processing $file\n"
     if $self->{'verbosity'} > 1;