[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.8, Wed Jul 15 23:37:46 2009 UTC revision 1.9, Mon Aug 3 21:31:42 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/subsystem_server_sapling.cgi" unless $server_url;      $server_url = "http://servers.nmpdr.org/subsystem/server.cgi" unless $server_url;
19      $server_url = "http://bio-macpro-1.mcs.anl.gov/~parrello/FIG/subsystem_server_sapling.cgi" unless $server_url;  #    $server_url = "http://bio-macpro-2.mcs.anl.gov/~disz/FIG/subsystem_server_sapling.cgi" unless $server_url;
20    #    $server_url = "http://bio-big.mcs.anl.gov/server/FIG/subsystem_server_sapling.cgi" unless $server_url;
21    
22      #$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;
23    
24      my $self = {      my $self = {
# Line 27  Line 29 
29      return bless $self, $class;      return bless $self, $class;
30  }  }
31    
32    sub pegs_implementing_roles {
33            my ($self, @args) = @_;
34            return $self->run_query("pegs_implementing_roles", @args);
35    }
36    
37  sub is_in_subsystem {  sub is_in_subsystem {
38          my ($self, @args) = @_;          my ($self, @args) = @_;
39          return $self->run_query("is_in_subsystem", @args);          return $self->run_query("is_in_subsystem", @args);
# Line 41  Line 48 
48          return $self->run_query("all_subsystems", @args);          return $self->run_query("all_subsystems", @args);
49  }  }
50    
 sub pegs_in_subsystems {  
         my ($self, @args) = @_;  
         return $self->run_query("pegs_in_subsystems", @args);  
 }  
   
51  sub subsystem_spreadsheet {  sub subsystem_spreadsheet {
52          my ($self, @args) = @_;          my ($self, @args) = @_;
53          return $self->run_query("subsystem_spreadsheet", @args);          return $self->run_query("subsystem_spreadsheet", @args);
# Line 78  Line 80 
80    
81    
82  1;  1;
   
   
   

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3