Changeset 1435 for trunk/gsdl/perllib/plugins/HTMLPlug.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/HTMLPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -38 +38 @@
 package HTMLPlug;
 
-use ConvertToBasPlug;
+use BasPlug;
 use ghtml;
 use util;
@@ -44 +44 @@
 
 sub BEGIN {
-    @ISA = ('ConvertToBasPlug');
+    @ISA = ('BasPlug');
 }
 
@@ -72 +72 @@
 sub new {
     my $class = shift (@_);
-    my $self = new ConvertToBasPlug ($class, @_);
+    my $self = new BasPlug ($class, @_);
 
     if (!parsargv::parse(\@_, 
@@ -93 +93 @@
     $self->{'dir_num'} = 0;
     $self->{'file_num'} = 0;
-
-    $self->{'convert_to'} = "HTML";
-    $self->{'convert_to_ext'} = "html";
 
     return bless $self, $class;