Changeset 2735 for trunk/gsdl

Timestamp:

2001-09-10T16:27:00+12:00 (23 years ago)

Author:

sjboddie

Message:

Fixed up bugs I introduced with recent change to BasPlug

Location:

trunk/gsdl/perllib/plugins

Files:

• ConvertToPlug.pm (modified) (1 diff)
• HTMLPlug.pm (modified) (1 diff)
• SplitPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -257 +257 @@
     }
 
-    &BasPlug::read_file($self, $conv_filename, $encoding, \$text);
+    &BasPlug::read_file($self, $conv_filename, $encoding, $language, \$text);
     if (!length ($text)) {
         print $outhandle "$plugin_name: ERROR: $file contains no text\n" if $self->{'verbosity'};

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -562 +562 @@
 
 sub read_file {
-    my ($self, $filename, $encoding, $textref) = @_;
-
-    &BasPlug::read_file($self, $filename, $encoding, $textref);
+    my ($self, $filename, $encoding, $language, $textref) = @_;
+
+    &BasPlug::read_file($self, $filename, $encoding, $language, $textref);
 
     # turn \ into \\ so that the rest of greenstone doesn't think there

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -140 +140 @@
     # Read in file ($text will be in utf8)
     my $text = "";
-    $self->read_file ($filename, $encoding, \$text);
+    $self->read_file ($filename, $encoding, $language, \$text);
 
     if ($text !~ /\w/) {