Changeset 6332 for trunk/gsdl/perllib/plugins/BibTexPlug.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/BibTexPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -89 +89 @@
 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'};
 
@@ -101 +101 @@
 
     # Report that we're processing the file
+    print STDERR "<Processing n='$file' p='BibTexPlug'>\n" if ($gli);
     print $outhandle "BibTexPlug: processing $file\n"
     if ($self->{'verbosity'}) > 1;