'; echo ' '; echo ''; echo ' '; echo ''; } /************************************************************************************************************************************************** Busca identificador del aula de un grupo de ordenador .Devuelve el identificador del aula a la que pertenece el grupo Parametros: - cmd:Una comando ya operativo (con conexión abierta) ________________________________________________________________________________________________________*/ function toma_aula($cmd,$idgrupo){ $rs=new Recordset; $cmd->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 ordenadores ________________________________________________________________________________________________________*/ function Gestiona(){ global $cmd; global $opcion; global $grupoid; global $idordenador; global $nombreordenador; global $ip; global $mac; global $idaula; global $idperfilhard; global $idrepositorio; global $idmenu; global $idprocedimiento; global $cache; global $netiface; global $netdriver; global $op_alta; global $op_modificacion; global $op_eliminacion; global $op_movida; global $tablanodo; $cmd->CreaParametro("@grupoid",$grupoid,1); $cmd->CreaParametro("@idaula",$idaula,1); $cmd->CreaParametro("@idordenador",$idordenador,1); $cmd->CreaParametro("@nombreordenador",$nombreordenador,0); $cmd->CreaParametro("@ip",$ip,0); $cmd->CreaParametro("@mac",$mac,0); $cmd->CreaParametro("@idperfilhard",$idperfilhard,1); $cmd->CreaParametro("@idrepositorio",$idrepositorio,1); $cmd->CreaParametro("@idmenu",$idmenu,1); $cmd->CreaParametro("@idprocedimiento",$idprocedimiento,1); $cmd->CreaParametro("@cache",$cache,1); $cmd->CreaParametro("@netiface",$netiface,0); $cmd->CreaParametro("@netdriver",$netdriver,0); switch($opcion){ case $op_alta : $cmd->texto="INSERT INTO ordenadores(nombreordenador,ip,mac,idperfilhard,idrepositorio, idmenu,idproautoexec,idaula,grupoid,cache,netiface,netdriver) VALUES (@nombreordenador,@ip,@mac,@idperfilhard,@idrepositorio, @idmenu,@idprocedimiento,@idaula,@grupoid,@cache,@netiface,@netdriver)"; $resul=$cmd->Ejecutar(); //echo $cmd->texto; if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta $idordenador=$cmd->Autonumerico(); $arbolXML=SubarbolXML_ordenadores($idordenador,$nombreordenador); $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 ordenadores SET nombreordenador=@nombreordenador,ip=@ip,mac=@mac,idperfilhard=@idperfilhard, idrepositorio=@idrepositorio,idmenu=@idmenu,idproautoexec=@idprocedimiento,cache=@cache,netiface=@netiface,netdriver=@netdriver WHERE idordenador=@idordenador"; $resul=$cmd->Ejecutar(); //echo $cmd->texto; break; case $op_eliminacion : $resul=EliminaOrdenadores($cmd,$idordenador,"idordenador");// Eliminación en cascada break; case $op_movida : $cmd->texto="UPDATE ordenadores SET idaula=@idaula, grupoid=@grupoid WHERE idordenador=@idordenador"; $resul=$cmd->Ejecutar(); break; default: break; } return($resul); } /*________________________________________________________________________________________________________ Crea un arbol XML para el nuevo nodo insertado ________________________________________________________________________________________________________*/ function SubarbolXML_ordenadores($idordenador,$nombreordenador){ global $LITAMBITO_ORDENADORES; $cadenaXML='