/****************************************************************************
*
* BuildFormRadioBox
* Laurent Lacroix, 13/02/2001 02:37
*
* Construit une chaîne de caractères représentant une liste de radio boutons 
* Les éléments (clé/valeur) sont stockés dans Arr. 
* Si la clé Sel contient une valeur, un des radio boutons sera
*  sélectionné dans la liste
*
* @param Arr Le tableau des codes et des valeurs des boutons radios
* @param Sel Le code du bouton radio à sélectionner
* @param Nam Le nom de base de tous les champs input représentant les boutons
*  radios
* @param Alt = "" ... 
* @return Une chaîne de caractères représentant la liste des boutons radios
*
* @see (BuildFormCheckBox), (BuildFormComboBox)
*
****************************************************************************/

Function BuildFormRadioBox( $Arr, $Sel, $Nam, $Alt = "" )
{
 //
 // Pour chaque élément du tableau des radios
 while( list( $k, $v ) = each( $Arr ) ) 
 {
  $RadStr .= "<input value=\"$k\" type=\"radio\" name=\"" . $Nam . "\"";
  $RadStr .= ( $Alt != "" ? " title=\"$Alt\"": ""). ">$v</input>\r\n";
 }
 //
 // Pré-sélection d'un des radio
 if( $Sel != "" ) 
 {
  $RadStr = ereg_replace( "<input value=\"$Sel\"",
                          "<input checked value=\"$Sel\"", $RadStr );
 }
 return $RadStr;
}