Changeset 3402 for trunk/gsdl/perllib

Timestamp:

2002-08-26T16:26:56+12:00 (22 years ago)

Author:

sjboddie

Message:

import.pl now tells user where the fail.log lives

File:

• trunk/gsdl/perllib/plugin.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugin.pm

@@ -117 +117 @@
 # are only output after import.pl -
 sub write_stats {
-    my ($pluginfo, $statshandle) = @_;
+    my ($pluginfo, $statshandle, $faillog) = @_;
 
     foreach $plugobj (@$pluginfo) {
@@ -148 +148 @@
         print $statshandle "* " . $stats->{'num_not_processed'} . " were rejected.";
     } 
-    print $statshandle " See the fail log for a list of rejected documents\n";
+    print $statshandle " See $faillog for a list of rejected documents\n";
     }
 }