[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.701, Sat Jun 28 05:58:33 2008 UTC revision 1.702, Mon Jun 30 20:45:01 2008 UTC
# Line 21427  Line 21427 
21427  sub make_dlit_text {  sub make_dlit_text {
21428          my ($pieces, @dlit) = @_;          my ($pieces, @dlit) = @_;
21429    
21430          my $text = "The characterization of essentially identical proteins has been discussed in ".&make_pubmed_link($dlit[0]);          #my $text = "The characterization of essentially identical proteins has been discussed in ".&make_pubmed_link($dlit[0]);
21431            my $text = "The function of this gene is asserted in ".&make_pubmed_link($dlit[0]);
21432          shift(@dlit);          shift(@dlit);
21433          if (@dlit) {          if (@dlit) {
21434                  my $size = @dlit;                  my $size = @dlit;
# Line 21450  Line 21451 
21451    
21452         my  @keys =  keys(%$ilit);         my  @keys =  keys(%$ilit);
21453          my $filler = "";          my $filler = "";
21454          my $text = "The characterization of proteins implementing this function was done in ";          #my $text = "The characterization of proteins implementing this function was done in ";
21455            my $text = "The function of genes we believe play the same functional roles have been described in ";
21456          my $key = shift(@keys);          my $key = shift(@keys);
21457          print STDERR Dumper($ilit->{$key}), $key, "\n";          print STDERR Dumper($ilit->{$key}), $key, "\n";
21458          $text .= $key.&make_pubmed_list($ilit->{$key});          $text .= $key.&make_pubmed_list($ilit->{$key});

Legend:
Removed from v.1.701  
changed lines
  Added in v.1.702

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3