Code-source


00001     <?php     

00002     #    (gH)   -_-  demande_bioinfo_id.php  ;  TimeStamp (unix) : 05 Juillet 2009 vers 16:09     

00003     ######################################     

00004     include("../std.php") ;     

00005     debutPage("Correspondances entre identifiants bioinfo") ;     

00006     debutSection() ;     

00007     ######################################     

00008          

00009     function lid($ncbi_acc,$ncbi_gi,$uniprot_acc,$uniprot_name) {     

00010          

00011     tr() ;     

00012       td() ; echo $ncbi_acc     ; fintd() ;     

00013       td() ; echo $ncbi_gi      ; fintd() ;     

00014       td() ; echo $uniprot_acc  ; fintd() ;     

00015       td() ; echo $uniprot_name ; fintd() ;     

00016     fintr() ;     

00017          

00018     } ; # fin de fonction lid     

00019          

00020     ######################################     

00021          

00022     $uniprot = href("http://www.uniprot.org/","Uniprot") ;     

00023     $interpo = href("http://www.ebi.ac.uk/interpro/","Interpro") ;     

00024          

00025     h2("Correspondances entre identifiants bioinfo") ;     

00026          

00027     blockquote() ;     

00028     form("reponse_bioinfo_id.php") ;     

00029          

00030     p() ;     

00031     echo "Donner un identifiant (et un seul) de protéine, la page vous fournira les autres  : " ;     

00032     finp() ;     

00033          

00034     table(0,5) ;     

00035     tr() ;     

00036       td() ; echo "NCBI accession" ; fintd() ;     

00037       td() ; input_text("nacc","") ; fintd() ;     

00038       td() ; fintd() ;     

00039     fintr() ;     

00040     tr() ;     

00041       td() ; ; fintd() ;     

00042       td() ;echo "NCBI gi"         ; fintd() ;     

00043       td() ; input_text("ngi","")  ; fintd() ;     

00044     fintr() ;     

00045     tr() ;     

00046       td() ; fintd() ;     

00047       td() ; echo "Uniprot accession" ; fintd() ;     

00048       td() ; input_text("uacc","") ; fintd() ;     

00049     fintr() ;     

00050     tr() ;     

00051       td() ; fintd() ;     

00052       td() ; echo "Uniprot name" ; fintd() ;     

00053       td() ; input_text("unam","") ; fintd() ;     

00054     fintr() ;     

00055     tr() ;     

00056       td() ; fintd() ;     

00057       td("C") ; input_submit("envoi") ; fintd() ;     

00058       td() ; fintd() ;     

00059     fintr() ;     

00060     fintable() ;     

00061          

00062     finform() ;     

00063     finblockquote() ;     

00064          

00065     ## --------------------------------------     

00066          

00067     h2("Exemples") ;     

00068     blockquote() ;     

00069          

00070     table(1,10,"collapse") ;     

00071     tr() ;     

00072       td() ; echo "NCBI accession" ; fintd() ;     

00073       td() ; echo "NCBI gi" ; fintd() ;     

00074       td() ; echo "Uniprot accession" ; fintd() ;     

00075       td() ; echo "Uniprot name" ; fintd() ;     

00076     fintr() ;     

00077          

00078     lid("1210313A","225181","P09789","GRP1_PETHY")  ;     

00079     lid("1601521A","226551","P13939","LEAD7_GOSHI") ;     

00080     lid("1601521C","226553","P09441","LEA13_GOSHI") ;     

00081     lid("1601521D","226554","P09442","DH11_GOSHI")  ;     

00082     lid("1601521F","226556","P09444","LEA34_GOSHI") ;     

00083     lid("1710351A","227777","P22238","DHA_CRAPL")   ;     

00084          

00085     fintable() ;     

00086          

00087     finblockquote() ;     

00088          

00089     ######################################     

00090     finSection() ;     

00091     finPage() ;     

00092     ######################################     

00093     ?>
Listing du fichier demande_bioinfo_id.php
