Changeset 11335 for trunk/gsdl/perllib/plugins/SplitPlug.pm

Timestamp:

2006-03-13T13:27:01+13:00 (18 years ago)

Author:

mdewsnip

Message:

Now sends messages to the GLI telling the user the CDS/ISIS file is being processed.

File:

• trunk/gsdl/perllib/plugins/SplitPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -242 +242 @@
     # do plugin specific processing of doc_obj
     print $outhandle "segment $segment - " if ($self->{'verbosity'});
-    $status = $self->process (\$segtext, $pluginfo, $base_dir, $file, $metadata, $doc_obj);
+    $status = $self->process (\$segtext, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli);
     if (!defined $status) {
         print $outhandle "WARNING - no plugin could process segment $segment of $file\n"