/**************************************************
*
* EchoDropMenu
* Olivier Haies, 14/02/2001 00:41
*
* Génération d'un menu déroulant avec valeur nulle
*
* @param $DataTabOuSql ... 
* @param $NomMenu ... 
* @param $IdLigneSelectionnee ... 
* @param $IdNull ... 
* @param $ValNull ... 
* @param $WithNullOption = true ... 
* @param $styleClass="navnoir" ... 
* @return (none)
*
* @see 
*
*************************************************/

Function EchoDropMenu( $DataTabOuSql, $NomMenu,
                       $IdLigneSelectionnee, $IdNull, 
                       $ValNull, $WithNullOption = TRUE, 
                       $styleClass = "navnoir" )
{
 $MonTableauTemporaire = array();

 $LesDonnees = GenerationTableauParRequete($DataTabOuSql); 

 $ComboData = "<select class=".$styleClass." name='".$NomMenu."'>\n";

 // Affichage de l'option null en première position
 if ($WithNullOption) {
  $ComboData .= "<option value='" . $IdNull ."' ";
  if ( $IdLigneSelectionnee == $IdNull )
   $ComboData .= "selected";
  $ComboData .= ">" . $ValNull . "</option>\n";
 } 

 // Génération de l'objet select en fonction du tableau
 if (count($LesDonnees)<>0){
  while (list($Identifiant,$Valeur) = each($LesDonnees)){
   $ComboData .= "<option value='".$Identifiant."' ";
   if ($Identifiant==$IdLigneSelectionnee){
    $ComboData .= "selected";
   }
   ComboData .= ">".$Valeur."</option>\n";
  }
 }

 $ComboData .= "</select>\n";

 // Si pas d'affichage de null et aucune données on affiche rien
 if ( !$WithNullOption && count($LesDonnees) == 0 ) $ComboData = "";

 echo $ComboData;
}