Changeset 1420

Timestamp:

2000-08-17T21:32:36+12:00 (24 years ago)

Author:

davidb

Message:

Moved read_file and read from ConvertToBasPlug to ConvertToPlug.

Location:

trunk/gsdl/perllib/plugins

Files:

• ConvertToBasPlug.pm (modified) (1 diff)
• ConvertToPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ConvertToBasPlug.pm

@@ -120 +120 @@
 
 
-# Override BasPlug read_file
-
-sub read_file {
-    my $self = shift (@_);
-    my ($src_filename, $textref) = @_;
-
-    my $output_ext = $self->{'convert_to_ext'};
-    my $conv_filename = $self->tmp_area_convert_file($output_ext,$src_filename);
-    $self->{'conv_filename'} = $conv_filename;
-
-    BasPlug::read_file($self,$conv_filename,$textref);
-}
-
-
-# Override BasPlug read
-
-sub read {
-    my $self = shift (@_);
-    
-    my $ret_val = BasPlug::read($self,@_);
-
-    $self->cleanup_tmp_area();
-    
-    return $ret_val;
-}
 
 1;

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -98 +98 @@
 
 
+# Override BasPlug read_file
+
+sub read_file {
+    my $self = shift (@_);
+    my ($src_filename, $textref) = @_;
+
+    my $output_ext = $self->{'convert_to_ext'};
+    my $conv_filename = $self->tmp_area_convert_file($output_ext,$src_filename);
+    $self->{'conv_filename'} = $conv_filename;
+
+    BasPlug::read_file($self,$conv_filename,$textref);
+}
+
+
+# Override BasPlug read
+
+sub read {
+    my $self = shift (@_);
+    
+    my $ret_val = BasPlug::read($self,@_);
+
+    $self->cleanup_tmp_area();
+    
+    return $ret_val;
+}
+
+
 # do plugin specific processing of doc_obj for HTML type
 sub process_type {