Changeset 10272

Timestamp:

2005-07-25T10:46:03+12:00 (19 years ago)

Author:

chi

Message:

A modification to allow a secondary-plugin setting.

File:

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

trunk/gsdl/perllib/plugins/RTFPlug.pm

@@ -60 +60 @@
     my $self = (defined $hashArgOptLists)? new ConvertToPlug($pluginlist,$inputargs,$hashArgOptLists): new ConvertToPlug($pluginlist,$inputargs);
 
-    return bless $self, $class;
+    $self = bless $self, $class;
+
+    my $secondary_plugin_options = $self->{'secondary_plugin_options'};
+    $self->load_secondary_plugins($class,$secondary_plugin_options);
+
+    return $self;
 }
 
@@ -70 +75 @@
 sub process {
     my $self = shift (@_);
+    my ($textref, $pluginfo, $base_dir, $file, $metadata, $doc_obj, $gli) = @_;
 
-    my $outhandle = $self->{'outhandle'};
-    print $outhandle "RTFPlug: passing $_[3] on to $self->{'converted_to'}Plug\n" 
-    if $self->{'verbosity'} > 1;
-    print STDERR "<Processing n='$_[3]' p='RTFPlug'>\n" if ($_[6]);
-
-    return ConvertToPlug::process_type($self,"rtf",@_);
+    return $self->process_type("rtf",$base_dir,$file,$doc_obj);
 }