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

Diff of /FigKernelPackages/SSserver.pm

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

revision 1.7, Tue Jun 30 19:38:32 2009 UTC revision 1.8, Wed Jul 15 23:37:46 2009 UTC
# Line 2  Line 2 
2  package SSserver;  package SSserver;
3    
4  #  #
5  # This is a SAS Component  #       This is a SAS Component.
6  #  #
7    
8  use LWP::UserAgent;  use LWP::UserAgent;
# Line 15  Line 15 
15  {  {
16      my($class, $server_url) = @_;      my($class, $server_url) = @_;
17    
18      $server_url = "http://servers.nmpdr.org/subsystem/server.cgi" unless $server_url;  #    $server_url = "http://servers.nmpdr.org/subsystem/subsystem_server_sapling.cgi" unless $server_url;
19  #    $server_url = "http://bio-macpro-2.mcs.anl.gov/~disz/FIG/subsystem_server_sapling.cgi" unless $server_url;      $server_url = "http://bio-macpro-1.mcs.anl.gov/~parrello/FIG/subsystem_server_sapling.cgi" unless $server_url;
 #    $server_url = "http://bio-big.mcs.anl.gov/server/FIG/subsystem_server_sapling.cgi" unless $server_url;  
   
20      #$server_url = "http://bio-macpro-1.mcs.anl.gov/ross-proj/FIG/co_occurs_server.cgi" unless $server_url;      #$server_url = "http://bio-macpro-1.mcs.anl.gov/ross-proj/FIG/co_occurs_server.cgi" unless $server_url;
21    
22      my $self = {      my $self = {
# Line 29  Line 27 
27      return bless $self, $class;      return bless $self, $class;
28  }  }
29    
 sub pegs_implementing_roles {  
         my ($self, @args) = @_;  
         return $self->run_query("pegs_implementing_roles", @args);  
 }  
   
30  sub is_in_subsystem {  sub is_in_subsystem {
31          my ($self, @args) = @_;          my ($self, @args) = @_;
32          return $self->run_query("is_in_subsystem", @args);          return $self->run_query("is_in_subsystem", @args);
# Line 48  Line 41 
41          return $self->run_query("all_subsystems", @args);          return $self->run_query("all_subsystems", @args);
42  }  }
43    
44    sub pegs_in_subsystems {
45            my ($self, @args) = @_;
46            return $self->run_query("pegs_in_subsystems", @args);
47    }
48    
49  sub subsystem_spreadsheet {  sub subsystem_spreadsheet {
50          my ($self, @args) = @_;          my ($self, @args) = @_;
51          return $self->run_query("subsystem_spreadsheet", @args);          return $self->run_query("subsystem_spreadsheet", @args);

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3