[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.1, Fri Jun 19 17:29:06 2009 UTC revision 1.2, Mon Jun 22 19:48:14 2009 UTC
# Line 106  Line 106 
106    
107          #print $cgi->header();          #print $cgi->header();
108          my %big;          my %big;
109          my $id_display = 0;          my $id_display = 1;
110          my $result = [];          my $result = [];
111    
112          my @id_roles = &YAML::Load($cgi->param('args'));          my @id_roles = &YAML::Load($cgi->param('args'));
113          map {push(@{$big{$_}}, 1)} @id_roles;          #map {push(@{$big{$_}}, 1)} @id_roles;
114          #map {push(@{$big{$_->[0]}}, 1)} @id_roles;          #map {push(@{$big{$_->[0]}}, 1)} @id_roles;
115          #map {push(@{$big{$_->[1]}}, $_->[0])} @id_roles;          map {push(@{$big{$_->[0]}}, $_->[1])} @id_roles;
116          my @resultRows = $sapling->GetFlat("Subsystem", '', [], 'Subsystem(id)');          my @resultRows = $sapling->GetFlat("Subsystem", '', [], 'Subsystem(id)');
117          foreach my $sub (@resultRows) {          foreach my $sub (@resultRows) {
118                  my %ss_roles;                  my %ss_roles;
# Line 132  Line 132 
132                                  foreach my $role ($ss->get_roles()) {                                  foreach my $role ($ss->get_roles()) {
133                                          if ($id_display) {                                          if ($id_display) {
134                                                  foreach my $id (@{$big{$role}}) {                                                  foreach my $id (@{$big{$role}}) {
135                                                          push (@$result, [$variant, $id, $role]);                                                          push (@$result, [$variant, $role, $id]);
136                                                  }                                                  }
137                                          } else {                                          } else {
138                                                  push (@$result, [$variant, $role]);                                                  push (@$result, [$variant, $role]);

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3