Changeset 23484 for main/trunk/greenstone2/perllib/plugins/ReadTextFile.pm

Timestamp:

2010-12-14T15:24:37+13:00 (13 years ago)

Author:

ak19

Message:

Further improvements by Dr Bainbridge to pretty-printing.

File:

• main/trunk/greenstone2/perllib/plugins/ReadTextFile.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/ReadTextFile.pm

@@ -122 +122 @@
     # should we move this to read? What about secondary plugins?
     print STDERR "<Processing n='$file' p='$self->{'plugin_type'}'>\n" if ($gli);
-    my $pp_file = &util::prettyprint_file($base_dir,$file);
+    my $pp_file = &util::prettyprint_file($base_dir,$file,$gli);
     print $outhandle "$self->{'plugin_type'} processing $pp_file\n"
         if $self->{'verbosity'} > 1;