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

Diff of /FigWebServices/check_subsys.cgi

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

revision 1.11, Fri Jan 13 20:22:40 2006 UTC revision 1.12, Sun Dec 31 23:30:44 2006 UTC
# Line 130  Line 130 
130      my($col_hdrs1,$col_hdrs2,$tab1,$tab2,$x);      my($col_hdrs1,$col_hdrs2,$tab1,$tab2,$x);
131    
132      my $user=$cgi->param('user');      my $user=$cgi->param('user');
133      my @raw_output = &FIG::run_gathering_output("$FIG_Config::bin/check_subsystems", $subsys);      my @raw_output = &get_check_data($cgi,$subsys);
134    
135    #   my @raw_output = &FIG::run_gathering_output("$FIG_Config::bin/check_subsystems", $subsys);
136  #   warn "Got raw output @raw_output\n";  #   warn "Got raw output @raw_output\n";
137      my @checked = map { chop; [split(/\t/,$_)] } @raw_output;      my @checked = map { chop; [split(/\t/,$_)] } @raw_output;
138      # RAE: it only makes sense to have Assign Role in column 1, so I duplicate this instead of leaving the column empty. Blah.      # RAE: it only makes sense to have Assign Role in column 1, so I duplicate this instead of leaving the column empty. Blah.
# Line 141  Line 143 
143    
144      foreach $x (@checked)      foreach $x (@checked)
145      {      {
146          my($code,$peg,$func,$role,$gs) = @$x;          if ($x->[1] =~ /^(mismatch|left-out)/)
147            {
148                my(undef,$code,$peg,$func,$role,$gs) = @$x;
149          #RAE added the other subsystems column to the table          #RAE added the other subsystems column to the table
150          my $othersubsys='';          my $othersubsys='';
151          if (my @otherss = $fig->subsystems_for_peg($peg))          if (my @otherss = $fig->subsystems_for_peg($peg))
# Line 158  Line 162 
162          {          {
163              push(@$tab1,[$link,$func,$role,$checkbox,$othersubsys,$gs]);              push(@$tab1,[$link,$func,$role,$checkbox,$othersubsys,$gs]);
164          }          }
165          else              elsif ($code eq 'left-out')
166          {          {
167              push(@$tab2,[$link,$func,$role,$othersubsys,$gs]);              push(@$tab2,[$link,$func,$role,$othersubsys,$gs]);
168          }          }
169      }      }
170        }
171    
172      # RAE addd the form controls      # RAE addd the form controls
173      push(@$html, $cgi->start_form( -method => 'post', -action => 'fid_checked.cgi', -name => 'fid_checked'), $cgi->hidden(-name => 'user', -value => $user));      push(@$html, $cgi->start_form( -method => 'post', -action => 'fid_checked.cgi', -name => 'fid_checked'), $cgi->hidden(-name => 'user', -value => $user));
# Line 175  Line 180 
180      push(@$html,&HTML::make_table($col_hdrs2,$tab2,"PEGs NOT in Subsystem with MATCHING Functions"));      push(@$html,&HTML::make_table($col_hdrs2,$tab2,"PEGs NOT in Subsystem with MATCHING Functions"));
181      push(@$html,$cgi->end_form);      push(@$html,$cgi->end_form);
182  }  }
183    
184    sub get_check_data {
185        my($cgi,$subsys) = @_;
186        my @raw_output;
187    
188        if ($cgi->param('fast') && (-e "$FIG_Config::data/Subsystems/$subsys/warnings"))
189        {
190            @raw_output = `$FIG_Config::data/Subsystems/$subsys/warnings`;
191        }
192        else
193        {
194            @raw_output = &FIG::run_gathering_output("$FIG_Config::bin/check_subsystems", $subsys);
195    #       warn "Got raw output @raw_output\n";
196        }
197        return @raw_output;
198    }
199    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3