start working towards supporting keyword weights

git-svn-id: file:///srv/svn/function2gene/trunk@24 a0738b58-4706-0410-8799-fb830574a030

diff --git a/bin/combine_results b/bin/combine_results
index 21b1c9276f32e8995dccb5bc52e9560643cc5cc1..e49de8f9bb20c1b730bf091dee5ac7c9d338a00c 100755 (executable)
--- a/bin/combine_results
+++ b/bin/combine_results
@@ -69,9 +69,10 @@ use IO::File;
 my %options = (debug    => 0,
               help     => 0,
               man      => 0,
+              keywords => [],
              );
 
-GetOptions(\%options,'keyword|k=s','debug|d+','help|h|?','man|m');
+GetOptions(\%options,'keywords|k=s@','debug|d+','help|h|?','man|m');
 
 
 pod2usage() if $options{help};
@@ -116,8 +117,6 @@ for my $file_name (@ARGV) {
 print join(',',map {qq("$_")} @csv_fields),qq(\n);
 for my $gene (keys %genes) {
      $genes{$gene}{rzscore} = scalar grep {$_ !~ /\[/} keys %{$genes{$gene}{terms}};
-     next if $genes{$gene}{rzscore} == 1 and exists $genes{$gene}{terms}{antigen};
-     $genes{$gene}{rzscore} -= 1 if exists $genes{$gene}{terms}{antigen};
      print STDOUT join (',',
                        map {s/"//g; qq("$_")}
                        map {