'; echo ' '; echo ''; echo ' '; echo ''; } /*________________________________________________________________________________________________________ Inserta, modifica o elimina datos en la tabla entidades ________________________________________________________________________________________________________*/ function Gestiona(){ global $cmd; global $opcion; global $identidad; global $nombreentidad; global $comentarios; global $grupoid; global $iduniversidad; global $op_alta; global $op_modificacion; global $op_eliminacion; global $op_movida; global $tablanodo; $cmd->CreaParametro("@grupoid",$grupoid,1); $cmd->CreaParametro("@iduniversidad",$iduniversidad,1); $cmd->CreaParametro("@identidad",$identidad,1); $cmd->CreaParametro("@nombreentidad",$nombreentidad,0); $cmd->CreaParametro("@comentarios",$comentarios,0); switch($opcion){ case $op_alta : $cmd->texto="INSERT INTO entidades(nombreentidad,comentarios,iduniversidad,grupoid) VALUES (@nombreentidad,@comentarios,@iduniversidad,@grupoid)"; $resul=$cmd->Ejecutar(); if ($resul){ // Crea una tabla nodo para devolver a la página que llamó ésta $identidad=$cmd->Autonumerico(); $arbolXML=SubarbolXML_entidades($identidad,$nombreentidad); $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 entidades SET nombreentidad=@nombreentidad,comentarios=@comentarios WHERE identidad=@identidad"; $resul=$cmd->Ejecutar(); break; case $op_eliminacion : $resul=EliminaEntidad($cmd,$identidad,"identidad");// Eliminación en cascada break; case $op_movida : $cmd->texto="UPDATE entidades SET iduniversidad=@iduniversidad, grupoid=@grupoid WHERE identidad=@identidad"; $resul=$cmd->Ejecutar(); break; default: break; } return($resul); } /*________________________________________________________________________________________________________ Crea un arbol XML para el nuevo nodo insertado ________________________________________________________________________________________________________*/ function SubarbolXML_entidades($identidad,$nombreentidad){ global $LITAMBITO_ENTIDADES; $cadenaXML='