[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.8, Thu Aug 6 20:04:24 2009 UTC revision 1.9, Mon Aug 24 17:35:56 2009 UTC
# Line 122  Line 122 
122          my $result = [];          my $result = [];
123          my (@args)  = &YAML::Load($cgi->param('args'));          my (@args)  = &YAML::Load($cgi->param('args'));
124          my $subsys = $args[0];          my $subsys = $args[0];
125          my @roles = @{$args[1]->[0]};          my @roles = @{$args[1]};
126          my $ss = SaplingSubsys->new($subsys, $sapling);          my $ss = SaplingSubsys->new($subsys, $sapling);
127          foreach my $role (@roles) {          foreach my $role (@roles) {
128                  my @pegs = $ss->pegs_for_role($role);                  my @pegs = $ss->pegs_for_role($role);
129    print STDERR Dumper $role, \@pegs;
130                  push (@$result, [$role, \@pegs]);                  push (@$result, [$role, \@pegs]);
131          }          }
132    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3