Changeset 11335


Ignore:
Timestamp:
2006-03-13T13:27:01+13:00 (16 years ago)
Author:
mdewsnip
Message:

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

Location:
trunk/gsdl/perllib/plugins
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/perllib/plugins/ISISPlug.pm

    r11334 r11335  
    170170
    171171    # Report that we're processing the file
    172     print STDERR "<Processing n='$file' p='ISISPlug'>\n" if ($gli);
     172    print STDERR "\n<Processing n='$file' p='ISISPlug'>\n" if ($gli);
    173173    print $outhandle "IsisPlug: processing $file\n" if ($self->{'verbosity'}) > 1;
    174174
  • trunk/gsdl/perllib/plugins/SplitPlug.pm

    r11090 r11335  
    242242    # do plugin specific processing of doc_obj
    243243    print $outhandle "segment $segment - " if ($self->{'verbosity'});
    244     $status = $self->process (\$segtext, $pluginfo, $base_dir, $file, $metadata, $doc_obj);
     244    $status = $self->process (\$segtext, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli);
    245245    if (!defined $status) {
    246246        print $outhandle "WARNING - no plugin could process segment $segment of $file\n"
Note: See TracChangeset for help on using the changeset viewer.