Conexion->Cerrar();
}
// *************************************************************************************************************************************************
?>
'.$tablanodo.'';
if ($resul){
echo '';
}
else{
echo '';
}
?>
CreaParametro("@idusuario",$idusuario,1);
$cmd->CreaParametro("@usuario",$usuario,0);
$cmd->CreaParametro("@pasguor",$pasguor,0);
$cmd->CreaParametro("@nombre",$nombre,0);
$cmd->CreaParametro("@email",$email,0);
$cmd->CreaParametro("@idambito",$idambito,1);
$cmd->CreaParametro("@ididioma",$ididioma,1);
$cmd->CreaParametro("@idtipousuario",$idtipousuario,1);
switch($opcion){
case $op_alta :
$cmd->texto="INSERT INTO usuarios (usuario,pasguor,nombre,email,ididioma,idtipousuario ) VALUES (@usuario,@pasguor,@nombre,@email,@ididioma,@idtipousuario);";
$resul=$cmd->Ejecutar();
if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta
$idusuario=$cmd->Autonumerico();
$arbolXML=SubarbolXML_usuarios($idusuario,$nombre,$idtipousuario);
$baseurlimg="../images/signos"; // Url de las imagenes de signo
$clasedefault="texto_arbol"; // Hoja de estilo (Clase por defecto) del árbol
$arbol=new ArbolVistaXML($arbolXML,0,$baseurlimg,$clasedefault);
$tablanodo=$arbol->CreaArbolVistaXML();
}
break;
case $op_modificacion:
$cmd->texto="UPDATE usuarios SET usuario=@usuario,pasguor=@pasguor,nombre=@nombre,email=@email,ididioma=@ididioma WHERE idusuario=@idusuario";
$resul=$cmd->Ejecutar();
break;
case $op_eliminacion :
$resul=EliminaUsuarios($cmd,$idusuario,"idusuario");
break;
default:
break;
}
return($resul);
}
/*________________________________________________________________________________________________________
Busca los datos de un usuario
Parametros:
- cmd:Una comando ya operativo (con conexión abierta)
- idusuario:El identificador del usuario
________________________________________________________________________________________________________*/
function toma_usuario($cmd,$idusuario){
global $usuario;
global $pasguor;
global $idambito;
global $idtipousuario;
$rs=new Recordset;
$cmd->texto="SELECT usuario, pasguor,idambito,idtipousuario FROM usuarios WHERE idusuario=".$idusuario;
$rs->Comando=&$cmd;
if (!$rs->Abrir()) return(0); // Error al abrir recordset
$rs->Primero();
if (!$rs->EOF){
$usuario=$rs->campos["usuario"];
$pasguor=$rs->campos["pasguor"];
$idambito=$rs->campos["idambito"];
$idtipousuario=$rs->campos["idtipousuario"];
return(true);
}
else
return(false);
}
/*________________________________________________________________________________________________________
Crea un arbol XML para el nuevo nodo insertado
________________________________________________________________________________________________________*/
function SubarbolXML_usuarios($idusuario,$nombre,$idtipousuario){
global $LITAMBITO_USUARIOS;
global $SUPERADMINISTRADOR;
global $ADMINISTRADOR;
global $OPERADOR;
switch($idtipousuario){
case $SUPERADMINISTRADOR:
$urlimg="../images/iconos/superadministradores.gif";
break;
case $ADMINISTRADOR:
$urlimg="../images/iconos/administradores.gif";
break;
case $OPERADOR:
$urlimg="../images/iconos/operadores.gif";
break;
}
$cadenaXML='