Changeset 2811 for trunk/gsdl/perllib/plugins/WordPlug.pm

Timestamp:

2001-10-31T19:41:49+13:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/perllib/plugins/WordPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/WordPlug.pm

@@ -32 +32 @@
 }
 
+sub new {
+    my $class = shift (@_);
+
+    my $self = new ConvertToPlug ($class, @_);
+
+    # wvWare will always produce html files encoded as utf-8
+    if ($self->{'input_encoding'} eq "auto") {
+    $self->{'input_encoding'} = "utf8";
+    $self->{'extract_language'} = 1;
+    }
+
+    return bless $self, $class;
+}
+
 sub get_default_process_exp {
     my $self = shift (@_);
@@ -37 +51 @@
     return q^(?i)\.doc$^;
 }
-    
-
 
 # do plugin specific processing of doc_obj for HTML type