Changeset 1415 for trunk

Timestamp:

2000-08-16T22:52:00+12:00 (24 years ago)

Author:

davidb

Message:

Removed some diagnostic print statements.

Location:

trunk/gsdl/perllib/plugins

Files:

• ConvertToPlug.pm (modified) (1 diff)
• PDFPlug.pm (modified) (2 diffs)
• WordPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -63 +63 @@
     my $plugin_name = $class;
     $plugin_name =~ s/\.pm$//;
-    
+
     my $generate_format;
     if (!parsargv::parse($args, 

trunk/gsdl/perllib/plugins/PDFPlug.pm

@@ -38 +38 @@
     my $class = shift (@_);
 
-    my $self = new ConvertToPlug ($class, @_, "-title_sub", 'Page\s+\d+');
+    my $self = new ConvertToPlug ($class, @_, "--", "-title_sub", 'Page\s+\d+');
     
     return bless $self, $class;
@@ -60 +60 @@
 sub process {
     my $self = shift (@_);
-    
-    print STDERR "PDFPlug: passing $file onto $self->{'convert_to'} Plug\n" 
+
+    print STDERR "PDFPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 
     if $self->{'verbosity'} > 1;
     

trunk/gsdl/perllib/plugins/WordPlug.pm

@@ -47 +47 @@
     my $self = shift (@_);
     
-    print STDERR "WordPlug: passing $file onto $self->{'convert_to'} Plug\n" 
+    print STDERR "WordPlug: passing $_[3] onto $self->{'convert_to'} Plug\n" 
     if $self->{'verbosity'} > 1;