[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.165, Tue Oct 25 17:41:32 2005 UTC revision 1.166, Wed Oct 26 18:31:07 2005 UTC
# Line 383  Line 383 
383          my $max  = &max($beg,$end) + $half_sz;          my $max  = &max($beg,$end) + $half_sz;
384          Trace("display_peg: min=$min max=$max beg=$beg end=$end") if T(2);          Trace("display_peg: min=$min max=$max beg=$beg end=$end") if T(2);
385    
386          my($feat,$min,$max) = &genes_in_region($fig_or_sprout,$cgi,&genome_of($peg),$contig,$min,$max);          my $feat;
387            ($feat,$min,$max) = &genes_in_region($fig_or_sprout,$cgi,&genome_of($peg),$contig,$min,$max);
388    
389          Trace("beg=$beg end=$end New min = $min, max = $max, features = " . join(", ", @{$feat})) if T(3);          Trace("beg=$beg end=$end New min = $min, max = $max, features = " . join(", ", @{$feat})) if T(3);
390    
391          my ($beg,$end,$genes) = &print_context($fig_or_sprout,$cgi,$html->{contig_context},$peg,$feat,$min,$max);          my ($beg,$end,$genes) = &print_context($fig_or_sprout,$cgi,$html->{contig_context},$peg,$feat,$min,$max);
# Line 544  Line 546 
546          push(@$html, "<a href='$baseurl/Html/seedtips.html#gene_names' class='help' target='help'>Help on Annotations</a><br>\n");          push(@$html, "<a href='$baseurl/Html/seedtips.html#gene_names' class='help' target='help'>Help on Annotations</a><br>\n");
547      }      }
548    
549    
550      push(@$html,"<a href=$link1>To View Annotations</a> / <a href=$link2>To View All Related Annotations</a>\n");      push(@$html,"<a href=$link1>To View Annotations</a> / <a href=$link2>To View All Related Annotations</a>\n");
551        my $user = $cgi->param('user');
552        my $cv_link = "cv.cgi?prot=$peg&user=$user";
553        push(@$html,"<br><a href=$cv_link>Edit Controlled Vocabulary</a>\n");
554    
555      if ((! $cgi->param('SPROUT')) && &peg_in_gendb($fig_or_sprout,$cgi,$peg))      if ((! $cgi->param('SPROUT')) && &peg_in_gendb($fig_or_sprout,$cgi,$peg))
556      {      {
# Line 733  Line 739 
739      if ($cgi->param('Edit Attributes') && $cgi->param('user')) {      if ($cgi->param('Edit Attributes') && $cgi->param('user')) {
740         push @$col_hdrs, "URL", "Explanation";         push @$col_hdrs, "URL", "Explanation";
741         foreach my $key (sort {$a->[1] cmp $b->[1]} @attr) {         foreach my $key (sort {$a->[1] cmp $b->[1]} @attr) {
742            my $data=&key_info($fig_or_sprout, $key);            my $data=$fig_or_sprout->key_info($key->[1]);
743              if ($data->{"is_cv"} == 1){next}
744            push @$tab,            push @$tab,
745                [                [
746                    $cgi->textfield(-name=>"key.".$key->[1], -default=>$key->[1], -size=>30),                    $cgi->textfield(-name=>"key.".$key->[1], -default=>$key->[1], -size=>30),

Legend:
Removed from v.1.165  
changed lines
  Added in v.1.166

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3