Changeset 2735
- Timestamp:
- 2001-09-10T16:27:00+12:00 (23 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r2515 r2735 257 257 } 258 258 259 &BasPlug::read_file($self, $conv_filename, $encoding, \$text);259 &BasPlug::read_file($self, $conv_filename, $encoding, $language, \$text); 260 260 if (!length ($text)) { 261 261 print $outhandle "$plugin_name: ERROR: $file contains no text\n" if $self->{'verbosity'}; -
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r2695 r2735 562 562 563 563 sub read_file { 564 my ($self, $filename, $encoding, $ textref) = @_;565 566 &BasPlug::read_file($self, $filename, $encoding, $ textref);564 my ($self, $filename, $encoding, $language, $textref) = @_; 565 566 &BasPlug::read_file($self, $filename, $encoding, $language, $textref); 567 567 568 568 # turn \ into \\ so that the rest of greenstone doesn't think there -
trunk/gsdl/perllib/plugins/SplitPlug.pm
r2492 r2735 140 140 # Read in file ($text will be in utf8) 141 141 my $text = ""; 142 $self->read_file ($filename, $encoding, \$text);142 $self->read_file ($filename, $encoding, $language, \$text); 143 143 144 144 if ($text !~ /\w/) {
Note:
See TracChangeset
for help on using the changeset viewer.