Changeset 1435 for trunk/gsdl/perllib/plugins/TEXTPlug.pm

Timestamp:

2000-08-21T14:58:48+12:00 (24 years ago)

Author:

davidb

Message:

Rearrangement of ConvertTo inheritence so HTMLPlug and TextPlug do not need
to know anything about the conversion process.

File:

• trunk/gsdl/perllib/plugins/TEXTPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -29 +29 @@
 package TEXTPlug;
 
-use ConvertToBasPlug;
+use BasPlug;
 
 sub BEGIN {
-    @ISA = ('ConvertToBasPlug');
+    @ISA = ('BasPlug');
 }
 
 sub new {
     my ($class) = @_;
-    my $self = new ConvertToBasPlug ($class, @_);
-
-    $self->{'convert_to'} = "TEXT";
-    $self->{'convert_to_ext'} = "txt";
+    my $self = new BasPlug ($class, @_);
 
     return bless $self, $class;