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

Diff of /FigWebServices/get_dlits.cgi

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

revision 1.3, Sat Jun 28 12:12:22 2008 UTC revision 1.4, Sat Jun 28 20:56:11 2008 UTC
# Line 238  Line 238 
238      }      }
239    
240      my $i;      my $i;
241        &desc($html);
242      for ($i=0; ($i < @tuples); $i++)      for ($i=0; ($i < @tuples); $i++)
243      {      {
244          my $tuple = $tuples[$i];          my $tuple = $tuples[$i];
# Line 276  Line 277 
277      push(@$html,$cgi->end_form);      push(@$html,$cgi->end_form);
278  }  }
279    
280    sub desc {
281        my($html) = @_;
282    
283        my $col_hdrs = ["Code","Meaning"];
284        my $tab      = [[" ","No one has looked at it yet"],
285                        ["G","Genome paper - mark it irrelevant everywhere"],
286                        ["N","Not relevant"],
287                        ["R","Relevant, but not strong enough to determine function"],
288                        ["D","Direct reference that can be used to support function assertion"]
289                       ];
290        push(@$html,&HTML::make_table($col_hdrs,$tab,"Code Meanings"),"<hr>");
291    }
292    
293  sub process_changes {  sub process_changes {
294      my($fig,$cgi,$html) = @_;      my($fig,$cgi,$html) = @_;
295    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3