Changeset 1954 for trunk/gsdl/perllib/plugins/ConvertToPlug.pm
- Timestamp:
- 2001-02-13T10:58:26+13:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ConvertToPlug.pm
r1929 r1954 73 73 74 74 my $generate_format; 75 if (!parsargv::parse($args, 75 my $kea_arg; 76 77 if (!parsargv::parse($args, 78 q^extract_keyphrases^, \$kea_arg->{'kea'}, #with extra options 79 q^extract_keyphrase_options/.*/^, \$kea_arg->{'kea_options'}, #no extra options 76 80 q^convert_to/(html|text)/html^, \$generate_format, 77 81 "allow_extra_options")) { … … 82 86 die "\n"; 83 87 } 84 85 return ($plugin_name,$generate_format );88 89 return ($plugin_name,$generate_format, $kea_arg); 86 90 } 87 91 88 92 sub new { 89 93 my $class = shift (@_); 90 my ($plugin_name,$generate_format ) = $class->parse_args(\@_);94 my ($plugin_name,$generate_format, $kea_arg) = $class->parse_args(\@_); 91 95 my $self; 92 96 … … 107 111 } 108 112 113 #if kea data to be extracted... 114 $self->{'kea'} = 1 if($kea_arg->{'kea'}); 115 $self->{'kea_options'} = 1 if($kea_arg->{'kea_options'}); 116 109 117 return bless $self, $class; 110 118 } … … 212 220 213 221 my $ret_val = BasPlug::read($self,@_); 214 222 215 223 $self->cleanup_tmp_area(); 216 224
Note:
See TracChangeset
for help on using the changeset viewer.