Changeset 1954 for trunk/gsdl/perllib/plugins/ConvertToPlug.pm

Timestamp:

2001-02-13T10:58:26+13:00 (23 years ago)

Author:

jmt14

Message:

* empty log message *

File:

• trunk/gsdl/perllib/plugins/ConvertToPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -73 +73 @@
 
     my $generate_format;
-    if (!parsargv::parse($args, 
+    my $kea_arg;
+
+    if (!parsargv::parse($args,  
+             q^extract_keyphrases^, \$kea_arg->{'kea'}, #with extra options 
+             q^extract_keyphrase_options/.*/^, \$kea_arg->{'kea_options'}, #no extra options
              q^convert_to/(html|text)/html^, \$generate_format,
              "allow_extra_options")) {
@@ -82 +86 @@
     die "\n";
     }
-
-    return ($plugin_name,$generate_format);
+   
+    return ($plugin_name,$generate_format, $kea_arg);
 }
 
 sub new {
     my $class = shift (@_);
-    my ($plugin_name,$generate_format) = $class->parse_args(\@_);
+    my ($plugin_name,$generate_format, $kea_arg) = $class->parse_args(\@_);
     my $self;
 
@@ -107 +111 @@
     }
 
+    #if kea data to be extracted...
+    $self->{'kea'} = 1 if($kea_arg->{'kea'});
+    $self->{'kea_options'} = 1 if($kea_arg->{'kea_options'});
+ 
     return bless $self, $class;
 }
@@ -212 +220 @@
     
     my $ret_val = BasPlug::read($self,@_);
-
+ 
     $self->cleanup_tmp_area();