[Bio] / FigWebServices / subsystem_server_sapling.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsystem_server_sapling.cgi

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

revision 1.3, Tue Jun 30 19:39:00 2009 UTC revision 1.4, Tue Jun 30 21:04:03 2009 UTC
# Line 124  Line 124 
124          my $result = [];          my $result = [];
125          my (@args)  = &YAML::Load($cgi->param('args'));          my (@args)  = &YAML::Load($cgi->param('args'));
126          my $subsys = $args[0];          my $subsys = $args[0];
127          my @roles = $args[1];          my @roles = @{$args[1]};
128          my $ss = SaplingSubsys->new($subsys, $sapling);          my $ss = SaplingSubsys->new($subsys, $sapling);
   
129          foreach my $role (@roles) {          foreach my $role (@roles) {
130                  my @pegs = $ss->pegs_for_role($role);                  my @pegs = $ss->pegs_for_role($role);
131                  push (@$result, [$role, \@pegs]);                  push (@$result, [$role, \@pegs]);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3