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

Diff of /FigWebServices/check_anno.cgi

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

revision 1.1, Thu Jan 26 03:36:47 2006 UTC revision 1.2, Thu Jan 26 04:18:27 2006 UTC
# Line 29  Line 29 
29      my $VAR1;      my $VAR1;
30      eval(join("",`cat /tmp/check_anno_parms`));      eval(join("",`cat /tmp/check_anno_parms`));
31      $cgi = $VAR1;      $cgi = $VAR1;
32  #   print STDERR &Dumper($cgi);      print STDERR &Dumper($cgi);
33  }  }
34    
35  if (0) {  if (0) {
# Line 104  Line 104 
104      close(TMP);      close(TMP);
105  }  }
106    
107  my $col_hdrs = ["NI","=","I","FIG Function","Other Function","FIG IDs","Other IDs"];  my $col_hdrs = ["","NI","=","I","FIG Function","Other Function","FIG IDs","Other IDs"];
108  my $tab = [];  my $tab = [];
109  push(@$html,$cgi->start_form( -method => 'post',  push(@$html,$cgi->start_form( -method => 'post',
110                                    -action => 'check_anno.cgi'));                                    -action => 'check_anno.cgi'));
# Line 140  Line 140 
140                                       -nolabels => 1,                                       -nolabels => 1,
141                                       -override => 1,                                       -override => 1,
142                                       -values => ["NI","=","I"]);                                       -values => ["NI","=","I"]);
143      push(@$tab,[@actions,$f1,$f2,join("<br>",@figL),join("<br>",@otherL)]);      push(@$tab,[$start_at,@actions,$f1,$f2,join("<br>",@figL),join("<br>",@otherL)]);
144      $got++;      $got++;
145      $start_at = $i;      $start_at = $i;
146  }  }
147    
148  if (@$tab > 0)  if (@$tab > 0)
149  {  {
150      push(@$html, $cgi->hidden(-name => 'start_at', -value => $start_at));      push(@$html, $cgi->hidden(-name => 'start_at', -value => $start_at, -override => 1));
151      push(@$html,&HTML::make_table($col_hdrs,$tab,"Discrepancies in Annotations"));      push(@$html,&HTML::make_table($col_hdrs,$tab,"Discrepancies in Annotations"));
152      push(@$html,$cgi->submit('take_actions'), $cgi->end_form);      push(@$html,$cgi->submit('take_actions'), $cgi->end_form);
153      &HTML::show_page($cgi,$html);      &HTML::show_page($cgi,$html);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3