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

Diff of /FigWebServices/status_of_model.cgi

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

revision 1.1, Thu Aug 4 14:56:05 2005 UTC revision 1.2, Thu Aug 4 15:52:38 2005 UTC
# Line 8  Line 8 
8  my $cgi = new CGI;  my $cgi = new CGI;
9  use HTML;  use HTML;
10    
11  if (1) {  if (0) {
12      my $VAR1;      my $VAR1;
13      eval(join("",`cat /tmp/som_parms`));      eval(join("",`cat /tmp/som_parms`));
14      $cgi = $VAR1;      $cgi = $VAR1;
# Line 138  Line 138 
138      my($fig,$cgi,$html,$pegs,$peg2react,$react2peg) = @_;      my($fig,$cgi,$html,$pegs,$peg2react,$react2peg) = @_;
139      my($peg,$func);      my($peg,$func);
140    
141      my $col_hdrs = ["PEG","function"];      my $col_hdrs = ["PEG","function","Curator","Subsystem","Role"];
142      my $tab = [];      my $tab = [];
143        my $tot = @$peg;
144    
145        my $unconnected = 0;
146    
147      foreach $peg (sort { &FIG::by_fig_id($a,$b) } @$pegs)      foreach $peg (sort { &FIG::by_fig_id($a,$b) } @$pegs)
148      {      {
149            $tot++;
150          if (! $peg2react->{$peg})          if (! $peg2react->{$peg})
151          {          {
152                $unconnected++;
153              $func = $fig->function_of($peg);              $func = $fig->function_of($peg);
154              push(@$tab,[&HTML::fid_link($cgi,$peg),$func]);              @in = $fig->peg_to_roles_in_subsystems($peg);
155                if ($tuple = shift @in)
156                {
157                    ($subsys,$role) = @$tuple;
158                    $cur = $fig->subsystem_curator($subsys);
159                }
160                else
161                {
162                    $cur = $subsys = $role = " ";
163                }
164                push(@$tab,[&HTML::fid_link($cgi,$peg),$func,$cur,$subsys,$roled]);
165    
166                foreach $tuple (@in)
167                {
168                    ($subsys,$role) = @$tuple;
169                    push(@$tab,["","",$fig->subsystem_curator($subsys),$subsys,$role]);
170                }
171          }          }
172      }      }
173      push(@$html,&HTML::make_table($col_hdrs,$tab,"PEGs that do not yet connect"));      push(@$html,&HTML::make_table($col_hdrs,$tab,"PEGs that do not yet connect"));
174        $connected = $tot - $unconnected;
175        push(@$html,"<hr><b>total PEGs=$tot<br>unconnected=$unconnected<br>connected=$connected<br><hr>");
176  }  }
177    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3