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

Timestamp:

2000-08-16T17:48:49+12:00 (24 years ago)

Author:

davidb

Message:

Introduction of "ConvertTo" family of plugins. This establishes
a new inheritance hierarchy.

BasPlug -> ConvertToBasPlug -> HTMLPlug/TEXTPlug -> ConvertToPlug

-> PDFPlug/WordPlug/Future application plugins

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

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