Conexion->Cerrar();
}
// *************************************************************************************************************************************************
?>
'.$tablanodo.'';
if ($resul){
echo '';
}
else{
echo '';
}
?>
texto="SELECT idaula FROM gruposordenadores WHERE idgrupo=".$idgrupo;
$rs->Comando=&$cmd;
if (!$rs->Abrir()) return(0); // Error al abrir recordset
$rs->Primero();
if (!$rs->EOF)
return($rs->campos["idaula"]);
else
return(0);
}
/*________________________________________________________________________________________________________
Inserta, modifica o elimina datos en la tabla gruposordenadores
________________________________________________________________________________________________________*/
function Gestiona(){
global $cmd;
global $opcion;
global $idaula;
global $nombregrupoordenador;
global $grupoid;
global $idgrupo;
global $comentarios;
global $op_alta;
global $op_modificacion;
global $op_eliminacion;
global $tablanodo;
$cmd->CreaParametro("@nombregrupoordenador",$nombregrupoordenador,0);
$cmd->CreaParametro("@grupoid",$grupoid,1);
$cmd->CreaParametro("@idaula",$idaula,1);
$cmd->CreaParametro("@idgrupo",$idgrupo,1);
$cmd->CreaParametro("@comentarios",$comentarios,0);
switch($opcion){
case $op_alta :
$cmd->texto="INSERT INTO gruposordenadores(nombregrupoordenador,idaula,grupoid,comentarios) VALUES (@nombregrupoordenador,@idaula,@grupoid,@comentarios)";
$resul=$cmd->Ejecutar();
echo $cmd->texto;
if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta
$idgrupo=$cmd->Autonumerico();
$arbolXML=SubarbolXML_grupos_ordenadores($idgrupo,$nombregrupoordenador);
$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 gruposordenadores SET nombregrupoordenador=@nombregrupoordenador,comentarios=@comentarios WHERE idgrupo=@idgrupo";
$resul=$cmd->Ejecutar();
break;
case $op_eliminacion :
$resul=EliminaGruposOrdenadores($cmd,$idgrupo,"idgrupo");
break;
default:
break;
}
return($resul);
}
/*________________________________________________________________________________________________________
Crea un arbol XML para el nuevo grupo insertado
________________________________________________________________________________________________________*/
function SubarbolXML_grupos_ordenadores($idgrupo,$nombregrupoordenador){
global $LITAMBITO_GRUPOSORDENADORES;
$cadenaXML='