Valid XHTML    Valid CSS2    

Listing du fichier reponse_bioinfo_id.php

 

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     
?>

Pour ne pas voir les numéros de ligne, ajoutez &nl=non à la suite du nom du fichier.

 

 

retour gH    Retour à la page principale de   (gH)