| 1 | <?php | 
|---|
| 2 | // ************************************************************************************************************************************************* | 
|---|
| 3 | // Aplicación WEB: ogAdmWebCon. | 
|---|
| 4 | // Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla | 
|---|
| 5 | // Fecha Creación: 2009-2010 | 
|---|
| 6 | // Fecha Última modificación: Agosto-2010 | 
|---|
| 7 | // Nombre del fichero: HTMLCTESELECT.php | 
|---|
| 8 | // Descripción : | 
|---|
| 9 | //              Crea la etiqueta html <SELECT> de valores constantes | 
|---|
| 10 | //      Parametros: | 
|---|
| 11 | //              - parametros:Una cadena con la forma valor=literal separada por un caracter INTRO | 
|---|
| 12 | //              - nombreid: Nombre del desplegable (atributo HTML name) | 
|---|
| 13 | //              - clase: Clase que define su estilo | 
|---|
| 14 | //              - defaultlit: Literal de la primera opción cuyo valor es siempre 0 | 
|---|
| 15 | //              - valorselec: Valor del item que saldrá seleccionado por defecto | 
|---|
| 16 | //              - ancho: Anchura del desplegable | 
|---|
| 17 | //              - eventochg: Nombre de la función que se ejecutará en respuesta al evento onchange | 
|---|
| 18 | // ************************************************************************************************************************************************* | 
|---|
| 19 | function HTMLCTESELECT($parametros,$nombreid,$clase,$defaultlit,$valorselec,$ancho,$eventochg=""){ | 
|---|
| 20 | if (!empty($eventochg)) $eventochg='onchange="'.$eventochg.'(this);"'; | 
|---|
| 21 | $opciones=explode(chr(13),$parametros); | 
|---|
| 22 | $SelectHtml= '<select '.$eventochg.' class="'.$clase.'" id='.$nombreid.' name="'.$nombreid.'" style="width: '.$ancho.'">'; | 
|---|
| 23 | if (!empty($defaultlit)) $SelectHtml.= '<option value="0">'.$defaultlit.'</option>'; | 
|---|
| 24 | for($i=0;$i<sizeof($opciones);$i++){ | 
|---|
| 25 | $item=explode("=",$opciones[$i]); | 
|---|
| 26 | // Comprobar formato de línea: "nombre=valor". | 
|---|
| 27 | if (! empty ($item[1])) { | 
|---|
| 28 | $SelectHtml.= '<option value="'.$item[0].'"'; | 
|---|
| 29 | if($valorselec==$item[0]) | 
|---|
| 30 | $SelectHtml.=" selected "; | 
|---|
| 31 | $SelectHtml.= '>'.$item[1].'</option>'; | 
|---|
| 32 | } | 
|---|
| 33 | } | 
|---|
| 34 | $SelectHtml.= '</select>'; | 
|---|
| 35 | return($SelectHtml); | 
|---|
| 36 | } | 
|---|