Changeset 6332 for trunk/gsdl/perllib/plugins/ReferPlug.pm
- Timestamp:
- 2003-12-19T15:16:29+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ReferPlug.pm
r5924 r6332 110 110 sub process { 111 111 my $self = shift (@_); 112 my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj ) = @_;112 my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_; 113 113 my $outhandle = $self->{'outhandle'}; 114 114 … … 117 117 118 118 # Report that we're processing the file 119 print STDERR "<Processing n='$file' p='ReferPlug'>\n" if ($gli); 119 120 print $outhandle "ReferPlug: processing $file\n" 120 121 if ($self->{'verbosity'}) > 1;
Note:
See TracChangeset
for help on using the changeset viewer.