bug en select_tag

Este es el viejo bug que les comente la vez pasada, por si no ha sido corregido, aqui les va.

El select_tag cuando uno quiere crearlo en conjunto a option_tag tal como se muestra en el libro de kumbia, este es cerrado automaticamente, aqui presento la correccion. (Esta comentado el codigo erroneo)

function select_tag($name='', $data=''){

	if(func_num_args()>1){

		$opts = get_params(func_get_args());

	}

	if(is_array($opts)){

		$code.="<select id='{$opts[0]}' name='{$opts[0]}' ";

		if(is_array($opts)){

			foreach($opts as $at => $val){

				if(!is_numeric($at)){

					$code.="$at = '".$val."' ";

				}

			}

		}

		$code.=">\r\n";

		if(is_array($opts[1])){

			if(is_object($opts[1][0])){



			} else {

				foreach($opts[1] as $d){

					$code.="\t<option value='{$d[0]}'>{$d[1]}</option>\r\n";

				}

			}

		}

		$code.= "</select>\r\n";

	} else {

		//$code.="<select id='$opts' name='$opts'></select>";
		$code.="<select id='$opts' name='$opts'>";
	}

	print $code;

}

No lo publique en el trac, ya que no tengo los permisos TRAC_CREATE.

Saludos