- Timestamp:
- 2000-08-17T21:32:36+12:00 (24 years ago)
- Location:
- trunk/gsdl/perllib/plugins
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ConvertToBasPlug.pm
r1418 r1420 120 120 121 121 122 # Override BasPlug read_file123 124 sub read_file {125 my $self = shift (@_);126 my ($src_filename, $textref) = @_;127 128 my $output_ext = $self->{'convert_to_ext'};129 my $conv_filename = $self->tmp_area_convert_file($output_ext,$src_filename);130 $self->{'conv_filename'} = $conv_filename;131 132 BasPlug::read_file($self,$conv_filename,$textref);133 }134 135 136 # Override BasPlug read137 138 sub read {139 my $self = shift (@_);140 141 my $ret_val = BasPlug::read($self,@_);142 143 $self->cleanup_tmp_area();144 145 return $ret_val;146 }147 122 148 123 1; -
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r1415 r1420 98 98 99 99 100 # Override BasPlug read_file 101 102 sub read_file { 103 my $self = shift (@_); 104 my ($src_filename, $textref) = @_; 105 106 my $output_ext = $self->{'convert_to_ext'}; 107 my $conv_filename = $self->tmp_area_convert_file($output_ext,$src_filename); 108 $self->{'conv_filename'} = $conv_filename; 109 110 BasPlug::read_file($self,$conv_filename,$textref); 111 } 112 113 114 # Override BasPlug read 115 116 sub read { 117 my $self = shift (@_); 118 119 my $ret_val = BasPlug::read($self,@_); 120 121 $self->cleanup_tmp_area(); 122 123 return $ret_val; 124 } 125 126 100 127 # do plugin specific processing of doc_obj for HTML type 101 128 sub process_type {
Note:
See TracChangeset
for help on using the changeset viewer.