[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.2, Sat Jun 28 06:51:12 2008 UTC revision 1.3, Sat Jun 28 12:12:22 2008 UTC
# Line 225  Line 225 
225    
226      my %status_code = ( 'D' => 1, ' ' => 2, 'N' => 3, 'R' => 4, 'G' => 5);      my %status_code = ( 'D' => 1, ' ' => 2, 'N' => 3, 'R' => 4, 'G' => 5);
227    
228      my $col_hdrs = [' ','G','N','R','D','PEG','Function','PubMed','Title'];      my $col_hdrs = [' ','G','N','R','D','PEG','Function','Genus/Species','PubMed','Title'];
229      my $tab = [];      my $tab = [];
230      foreach $_ (@$to_display) { $_->[0] =~ s/^\s*$/ /; }      foreach $_ (@$to_display) { $_->[0] =~ s/^\s*$/ /; }
231      my @tuples = sort { ($status_code{$a->[0]} <=> $status_code{$b->[0]}) or &FIG::by_fig_id($a->[1],$b->[1]) } @$to_display;      my @tuples = sort { ($status_code{$a->[0]} <=> $status_code{$b->[0]}) or &FIG::by_fig_id($a->[1],$b->[1]) } @$to_display;
# Line 243  Line 243 
243          my $tuple = $tuples[$i];          my $tuple = $tuples[$i];
244          my($status,$peg,$pubmed) = @$tuple;          my($status,$peg,$pubmed) = @$tuple;
245          next if (! $fig->is_real_feature($peg));          next if (! $fig->is_real_feature($peg));
246            my $gs = $fig->genus_species(&FIG::genome_of($peg));
247            $gs =~ s/^(\S+)\s+(\S+).*$/$1/;
248          my $title = &title_of($fig,$pubmed);          my $title = &title_of($fig,$pubmed);
249          my $func = $fig->function_of($peg);          my $func = $fig->function_of($peg);
250          my @codes = $cgi->radio_group(-name => "tuple:$peg:$pubmed:$status",          my @codes = $cgi->radio_group(-name => "tuple:$peg:$pubmed:$status",
# Line 251  Line 253 
253                                        -nolabels => 1);                                        -nolabels => 1);
254    
255          if (($i % 15) == 14) { push(@$tab,$col_hdrs) }          if (($i % 15) == 14) { push(@$tab,$col_hdrs) }
256          push(@$tab,[@codes,&HTML::fid_link($cgi,$peg),$func,          push(@$tab,[@codes,&HTML::fid_link($cgi,$peg),$func,$gs,
257                      "<a target=_blank href=http://www.ncbi.nlm.nih.gov/sites/entrez?db=pubmed&cmd=search&term=$pubmed>$pubmed</a>",                      "<a target=_blank href=http://www.ncbi.nlm.nih.gov/sites/entrez?db=pubmed&cmd=search&term=$pubmed>$pubmed</a>",
258                      $title]);                      $title]);
259      }      }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3