| 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; |
| 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}); |
Parent Directory
| 
Revision Log
| 
Patch