1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
print "<p><span class=\"but\"><b>    General Information     </b></span>   
<input type=\"submit\" onclick=\"javascript:showDiv('ginf');\" value=\"Show\" />
<input type=\"submit\" onclick=\"javascript:hideDiv('ginf');\" value=\"Hide\" />
<div id=\"ginf\"style=\"display:active\">
<p><b> HGNC Identifier : </b><a href=\"$HGNCurl$hgnc_id\">$hgnc_id</a> <br /><b> HGNC Approaved Name : </b> $AppN <br />
<b> HGNC Approaved Symbol :</b> $AppS <br /><b> HGNC Alias Symbol : </b>";
foreach my $e(@alias){if ($e ne $alias[$#alias]){print $e.", ";}else{print $e;}}
print "<br /><b> HGNC Previous Symbol : </b>";
foreach my $e(@previous){if ($e ne $previous[$#previous]){print $e.", ";}else{print $e;}}
print "<br /> <b>Chromosome Band :</b> $ChrBand <br /><b> Locus Type :</b> $LocusType <br />
<b> Entrez Gene Identifier : </b><a href=\"$EGurl$EntrezGeneId\">$EntrezGeneId</a><br />
</p></div>";
# Expression Tissue
print "<hr /><p><span class=\"but\"><b>    Expression Information    </b></span>   
<input type=\"submit\" onclick=\"javascript:showDiv('expr');\" value=\"Show\" />
<input type=\"submit\" onclick=\"javascript:hideDiv('expr');\" value=\"Hide\" />
<div id=\"expr\" style=\"display:none\"><span class=\"align_right\"><a href=\"#toppage\"> top return </a></span><br />
<p><b>Tissue(s) (Place(s) of expression) : </b><br />";
### mettre ancre ici mais quand et ou l'appeler ??? print "<a name='Ancref'></a>";
foreach my $e(@tissue){if ($e ne $tissue[$#tissue]){print $e.", ";}else{print $e;}}
print "</p></div>"; |