Changeset 9466

Timestamp:

2005-03-18T14:43:30+13:00 (19 years ago)

Author:

kjdon

Message:

added to list of args for read

Location:

trunk/gsdl/perllib/plugins

Files:

• PagedImgPlug.pm (modified) (2 diffs)
• XMLPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/PagedImgPlug.pm

@@ -501 +501 @@
 sub read {
     my $self = shift (@_);
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli) = @_;
 
     my $outhandle   = $self->{'outhandle'};
@@ -530 +530 @@
     print $outhandle "PagedImgPlug processing \"$filename\"\n"
         if $self->{'verbosity'} > 1;
+    print STDERR "<Processing n='$file' p='PagedImgPlug'>\n" if ($gli);
 
     my ($dir);

trunk/gsdl/perllib/plugins/XMLPlug.pm

@@ -81 +81 @@
     $self = shift (@_);  
   
-    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs) = @_;
+    my ($pluginfo, $base_dir, $file, $metadata, $processor, $maxdocs, $gli) = @_;
 
     my $filename = $file;
@@ -98 +98 @@
     $self->{'processor'} = $processor;
     $self->{'metadata'} = $metadata;
-
+    $self->{'gli'} = $gli;
     eval {
     $self->{'parser'}->parsefile($filename);