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

Diff of /FigWebServices/protein.cgi

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

revision 1.68, Tue Jan 25 03:00:30 2005 UTC revision 1.69, Tue Jan 25 03:16:42 2005 UTC
# Line 212  Line 212 
212    
213      unshift @$html, "<TITLE>The SEED: Protein Annotations</TITLE>\n";      unshift @$html, "<TITLE>The SEED: Protein Annotations</TITLE>\n";
214      my $col_hdrs = ["who","when","annotation"];      my $col_hdrs = ["who","when","annotation"];
215    
216      my $tab = [ map { [$_->[2],$_->[1],"<pre>" . $_->[3] . "<\/pre>"] } &feature_annotations($fig_or_sprout,$cgi,$prot) ];      my $tab = [ map { [$_->[2],$_->[1],"<pre>" . $_->[3] . "<\/pre>"] } &feature_annotations($fig_or_sprout,$cgi,$prot) ];
217      if (@$tab > 0) {      if (@$tab > 0) {
218                  push(@$html,&HTML::make_table($col_hdrs,$tab,"Annotations for $prot"));                  push(@$html,&HTML::make_table($col_hdrs,$tab,"Annotations for $prot"));
# Line 2093  Line 2094 
2094      my($fig_or_sprout,$cgi,$prot) = @_;      my($fig_or_sprout,$cgi,$prot) = @_;
2095      if ($cgi->param('SPROUT'))      if ($cgi->param('SPROUT'))
2096      {      {
2097          return map { [$_->{featureID},scalar localtime($_->{timeStamp}),$_->{user},$_->{text}] } $fig_or_sprout->feature_annotations($prot);          return $fig_or_sprout->feature_annotations($prot);
2098      }      }
2099      return $fig_or_sprout->feature_annotations($prot);      return $fig_or_sprout->feature_annotations($prot);
2100  }  }

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3