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

Diff of /FigWebServices/assignments.cgi

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

revision 1.12, Mon Oct 18 21:30:35 2004 UTC revision 1.13, Sun Jan 23 16:54:49 2005 UTC
# Line 195  Line 195 
195                           $cgi->hidden(-name => 'set', -value => $set)                           $cgi->hidden(-name => 'set', -value => $set)
196                   );                   );
197    
198              $col_hdrs = ["delete","PEG","Proposed Function", "Current function"];              $col_hdrs = ["delete","PEG","In SubSys","Proposed Function", "Current function","UniProt ID","UniProt Function"];
199              $tab      = [];              $tab      = [];
200              my @keep = ();              my @keep = ();
201              while (defined($line = <SET>))              while (defined($line = <SET>))
# Line 207  Line 207 
207                  if ($func1 ne $func2)                  if ($func1 ne $func2)
208                  {                  {
209                      push(@keep,"$line\n");                      push(@keep,"$line\n");
210                        my @subs    = $fig->peg_to_subsystems($peg);
211                        my $in_sub  = @subs;
212                        my @uni = $fig->to_alias($peg,"uni");
213                        my $uni_link = (@uni > 0) ? &HTML::uni_link($cgi,$uni[0]) : "";
214                        my $uni_func = $uni_link ? $fig->function_of($uni[0]) : "";
215                      push(@$tab,[                      push(@$tab,[
216                                  $cgi->checkbox(-name => 'checked', -value => $peg, -checked => 0,-override => 1),                                  $cgi->checkbox(
217                                                   -name => 'checked',
218                                                   -value => $peg,
219                                                   -checked => 0,
220                                                   -override => 1,
221                                                   -label => ""
222                                                  ),
223                                  &HTML::fid_link($cgi,$peg),                                  &HTML::fid_link($cgi,$peg),
224                                  $func1, $func2                                  $in_sub,
225  #                               "\@nowrap:$func1<br>$func2"                                  $func1, $func2,
226                                    $uni_link,$uni_func
227                                 ]                                 ]
228                           );                           );
229                  }                  }
230              }              }
231              close(SET);              close(SET);
232    
 #           if (open(SET,">$FIG_Config::data/Assignments/$userR/$set"))  
 #           {  
 #               foreach $line (@keep)  
 #               {  
 #                   print SET $line;  
 #               }  
 #               close(SET);  
 #               chmod(0777,"$FIG_Config::data/Assignments/$userR/$set");  
 #           }  
   
233              if (@$tab > 0)              if (@$tab > 0)
234              {              {
235                  push(@$html,&HTML::make_table($col_hdrs,$tab,""));                  push(@$html,&HTML::make_table($col_hdrs,$tab,""));

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3