Code-source


00001     <?php     

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

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

00004          

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

00006     include("../bioinfo_fns.php") ;     

00007          

00008     debutPage("Correspondances entre identifiants bioinfo") ;     

00009     debutSection() ;     

00010          

00011     ######################################     

00012          

00013     h2("Correspondances entre identifiants bioinfo") ;     

00014          

00015     # vérification qu'un seul identifiant est saisi     

00016          

00017     $nbid = 0 ;     

00018     $idid = 0 ;     

00019     $ldid = "nacc ngi uacc unam" ;     

00020     $tdid = split(" ",$ldid) ;     

00021     foreach ($tdid as $id) {     

00022       $idid++ ;     

00023       if (isset($_GET[$id])) {     

00024         if (strlen(trim($_GET[$id]))>0) {     

00025           $nbid++ ;     

00026           $idnum = $idid ;     

00027           $idtxt = $_GET[$id] ;     

00028         } ; # fin si     

00029       } ; # fin si     

00030     } ; # fin pour     

00031          

00032     $ok = 1 ;     

00033          

00034     if ($nbid<1) {     

00035       $ok = 0 ;     

00036       h2("Vous n'avez saisi aucun identifiant.")  ;     

00037     } ; # fin si     

00038          

00039     if ($nbid>1) {     

00040       $ok = 0 ;     

00041       h2("Vous avez saisi plus d'un identifiant.")  ;     

00042     } ; # fin si     

00043          

00044     if ($ok==1) {     

00045          

00046     h2("(identifiants obtenue à partir de l'id $idtxt)") ;     

00047          

00048     ## ----------------------------------------------------     

00049          

00050          

00051     if ($idnum==1) {     

00052       $nac = $idtxt ;     

00053       $ngi = ncbi_acc2ncbi_gi($nac) ;     

00054       $uac = ncbi_acc2uniprot_acc($nac) ;     

00055       $unm = uniprot_acc2uniprot_name($uac) ;     

00056     } ; # finsi     

00057          

00058     if ($idnum==2) {     

00059       $ngi = $idtxt ;     

00060     } ; # finsi     

00061          

00062     if ($idnum==3) {     

00063       $uac = $idtxt ;     

00064     } ; # finsi     

00065          

00066     if ($idnum==4) {     

00067       $unm = $idtxt ;     

00068     } ; # finsi     

00069          

00070     ## ----------------------------------------------------     

00071          

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

00073          

00074     tr() ;     

00075       td("C") ; echo "NCBI accession"    ; fintd() ;     

00076       td("C") ; echo "NCBI gi"           ; fintd() ;     

00077       td("C") ; echo "Uniprot accession" ; fintd() ;     

00078       td("C") ; echo "Uniprot name"      ; fintd() ;     

00079     fintr() ;     

00080          

00081     tr() ;     

00082       td("C") ; echo href(urlNcbi_acc($nac),$nac)          ; fintd() ;     

00083       td("C") ; echo href(urlNcbi_acc($ngi),$ngi)          ; fintd() ;     

00084       td("C") ; echo href(urlUniprot($uac),$uac)       ; fintd() ;     

00085       td("C") ; echo href(urlUniprot("$uac.xml"),$unm) ; fintd() ;     

00086     fintr() ;     

00087          

00088     fintable() ;} ; # fin si     

00089          

00090     ######################################     

00091          

00092     finSection() ;     

00093     finPage() ;     

00094          

00095     ######################################     

00096     ?>
La coloration syntaxique est réalisée par un enrobage de la function php nommée highlight_file
mais si vous préférez, vous pouvez utiliser celle de SyntaxHighlighter ou même celle de geshi.
Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier.
Listing du fichier reponse_bioinfo_id.php
