[Bio] / FigKernelPackages / FFserver.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FFserver.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5, Mon May 11 20:55:05 2009 UTC revision 1.9, Wed May 13 20:09:56 2009 UTC
# Line 28  Line 28 
28      return $self->run_query('members_of_families', @ids);      return $self->run_query('members_of_families', @ids);
29  }  }
30    
31    sub families_containing_peg
32    {
33        my($self, @ids) = @_;
34        return $self->run_query('families_containing_peg', @ids);
35    }
36    
37    sub function_of
38    {
39        my($self, @ids) = @_;
40        return $self->run_query('function_of', @ids);
41    }
42    
43    sub org_of
44    {
45        my($self, @ids) = @_;
46        return $self->run_query('org_of', @ids);
47    }
48    
49    sub seq_of
50    {
51        my($self, @ids) = @_;
52        return $self->run_query('seq_of', @ids);
53    }
54    
55    sub aliases_of
56    {
57        my($self, @ids) = @_;
58        return $self->run_query('aliases_of', @ids);
59    }
60    
61    sub families_implementing_role
62    {
63        my($self,@roles) = @_;
64        return $self->run_query('families_implementing_role', @roles);
65    }
66    
67    sub families_with_function
68    {
69        my($self,@functions) = @_;
70        return $self->run_query('families_with_function', @functions);
71    }
72    
73    sub families_in_genome
74    {
75        my($self,@genomes) = @_;
76        return $self->run_query('families_in_genome', @genomes);
77    }
78    
79    sub get_subsystem_based_figfams
80    {
81        my ($self) = @_;
82        return $self->run_query('get_subsystem_based_figfams');
83    }
84    
85  sub should_be_member  sub should_be_member
86  {  {
87      my($self, @id_seq_pairs) = @_;      my($self, @id_seq_pairs) = @_;
# Line 61  Line 115 
115      }      }
116      else      else
117      {      {
118          die "error on post " . $res->content;          die "error on post " . $res->status_line . " " . $res->content;
119      }      }
120  }  }
121    
# Line 163  Line 217 
217              my $form = [@{$self->{form_vars}}];              my $form = [@{$self->{form_vars}}];
218              push(@$form, function => $self->{function},              push(@$form, function => $self->{function},
219                           map { &{$self->{input_bundler}}($_) } @inp);                           map { &{$self->{input_bundler}}($_) } @inp);
220              print "Invoke " .Dumper($form);              # print "Invoke " .Dumper($form);
221    
222              my $res = $self->{ua}->post($self->{server_url}, $form);              my $res = $self->{ua}->post($self->{server_url}, $form);
223              if ($res->is_success)              if ($res->is_success)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3