Valid XHTML    Valid CSS2    

Listing du fichier rdv_med.php

 

00001     <?php
00002     
include("../std.php") ;
00003     
debutPage
("RDV médecin","strict","skel.css") ;
00004     
h1
("Rendez-vous médecin ") ;
00005     
blockquote() ;
00006     
debutSection() ;
00007     
00008     
$ldi
= "JD EV HP AB CD EF" ; # Liste Des Initiales
00009     
$ldi
= trim($ldi) ; # enlève les espaces au début et en fin de chaine
00010     
00011     
$tdi
= preg_split("/\s+/",trim($ldi)) ; ; # Tableau Des Initiales
00012     
00013      ## depuis php 5.3
00014      ## ceci est interdit :
00015      ##
00016      ## $tdi = split(" ",$ldi) ; # Tableau Des Initiales
00017      ##
00018     
00019     /* il ne faut surtout pas écrire */
00020     /* car cela met plein de balises */
00021     /* et rend le code php peu lisible */
00022     /* de plus, le code HTML produit est tout sur une ligne ce qui est difficile à lire ! */
00023     /*
00024     
00025      echo "<select name='initiale'>" ;
00026      $tdci = preg_split("/\s+/",$ldi);
00027      $ni = 0 ;
00028      foreach ($tdci as $ic) {
00029      $ni++ ;
00030      echo " <option value='$ni'>$ic</option>";
00031      } ; # fin de pour chaque
00032      echo "</select>" ;
00033     */
00034     
00035     # à l'aide des fonctions standard de std.php :
00036     
00037     
h2
("Une solution ") ;
00038     
00039     
form
("http://forge.info.univ-angers.fr/scripts/mget.rex") ;
00040     
p() ;
00041      echo
"Choisissez l'initiale du médecin " ;
00042     
$num
= 0 ;
00043     
input_select
('num_med') ;
00044      foreach (
$tdi
as $initiales) {
00045     
$num++ ;
00046     
input_option
($num,$initiales) ;
00047      } ;
# fin pour chaque
00048     
finselect() ;
00049     
input_submit
("envoi","envoi1") ;
00050     
finp() ;
00051     
finform() ;
00052     
00053     
/* on aurait pu écrire, car c'est encore plus court : */
00054     
00055     
sdl
(5) ;
00056     
h2
("Autre solution ") ;
00057     
p() ;
00058      echo
"Choisissez l'initiale du médecin " ;
00059     
listeSelectFromTxt
("rep",$ldi,3) ;
00060     
nbsp
(5) ;
00061     
input_submit
("envoi","envoi2","tarose") ;
00062     
finp() ;
00063     
sdl
(5) ;
00064     
00065     
finSection() ;
00066     
finblockquote() ;
00067     
finPage() ;
00068     
?>

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)