'?> '?> CreaArbolVistaXML(); // Crea �bol (HTML) a partir del XML $flotante=new MenuContextual(); // Crea objeto MenuContextual // Crea contextual de las imágenes $XMLcontextual=CreacontextualXMLUniversidades(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLUsuarios(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLAdministradores(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLGruposEntidades(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLEntidades(); echo $flotante->CreaMenuContextual($XMLcontextual); $XMLcontextual=CreacontextualXMLCentros(); echo $flotante->CreaMenuContextual($XMLcontextual); ?> '; SubarbolXML_universidades($cmd); $cadenaXML.=''; return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_universidades($cmd){ global $TbMsg; global $LITAMBITO_GRUPOSUNIVERSIDADES; global $LITAMBITO_UNIVERSIDADES; global $AMBITO_GRUPOSUNIVERSIDADES; global $cadenaXML; $rs=new Recordset; $cmd->texto="SELECT iduniversidad,nombreuniversidad FROM universidades"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombreuniversidad"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_UNIVERSIDADES; $cadenaXML.='>'; SubarbolXML_usuarios($cmd,$rs->campos["iduniversidad"],0); SubarbolXML_universidades_entidades($cmd,$rs->campos["iduniversidad"],0); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); } //________________________________________________________________________________________________________ function SubarbolXML_usuarios($cmd){ global $TbMsg; global $cadenaXML; $cadenaXML.='texto="SELECT idusuario,nombre,idtipousuario FROM usuarios WHERE idtipousuario=".$SUPERADMINISTRADOR." OR idtipousuario=".$ADMINISTRADOR." ORDER by idtipousuario,nombre"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["idtipousuario"]==$SUPERADMINISTRADOR) $cadenaXML.=' imagenodo="../images/iconos/superadministradores.gif"'; else $cadenaXML.=' imagenodo="../images/iconos/administradores.gif"'; $cadenaXML.=' clickcontextualnodo="menu_contextual(this,' ."'flo_".$LITAMBITO_USUARIOS."'" .')"'; $cadenaXML.=' infonodo="'.$rs->campos["nombre"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_USUARIOS.'-'.$rs->campos["idusuario"]; $cadenaXML.='>'; SubarbolXML_centros_asignados($cmd,$rs->campos["idusuario"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); } //________________________________________________________________________________________________________ function SubarbolXML_universidades_entidades($cmd,$iduniversidad,$grupoid){ global $TbMsg; global $LITAMBITO_GRUPOSENTIDADES; global $LITAMBITO_ENTIDADES; global $cadenaXML; $rs=new Recordset; $cmd->texto="SELECT idgrupo,nombregrupo,grupoid FROM grupos WHERE grupoid=".$grupoid." AND idcentro=0 AND iduniversidad=".$iduniversidad." ORDER BY nombregrupo"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombregrupo"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_GRUPOSENTIDADES.'-'.$rs->campos["idgrupo"]; $cadenaXML.='>'; SubarbolXML_universidades_entidades($cmd,$iduniversidad,$rs->campos["idgrupo"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); $cmd->texto="SELECT identidad,nombreentidad FROM entidades WHERE grupoid=".$grupoid." AND iduniversidad=".$iduniversidad." ORDER by nombreentidad desc"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombreentidad"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_ENTIDADES.'-'.$rs->campos["identidad"]; $cadenaXML.='>'; SubarbolXML_entidades_centros($cmd,$rs->campos["identidad"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); } //________________________________________________________________________________________________________ function SubarbolXML_entidades_centros($cmd,$identidad){ global $TbMsg; global $LITAMBITO_CENTROS; global $cadenaXML; $rs=new Recordset; $cmd->texto="SELECT idcentro,nombrecentro FROM centros WHERE identidad=".$identidad." ORDER by nombrecentro"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombrecentro"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_CENTROS.'-'.$rs->campos["idcentro"]; $cadenaXML.='>'; SubarbolXML_administradores($cmd,$rs->campos["idcentro"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); } //________________________________________________________________________________________________________ function SubarbolXML_administradores($cmd,$idambito){ global $TbMsg; global $LITAMBITO_USUARIOS; global $cadenaXML; global $ADMINISTRADOR; $rs=new Recordset; $cmd->texto="SELECT usuarios.idusuario,usuarios.nombre FROM usuarios INNER JOIN administradores_centros ON administradores_centros.idusuario=usuarios.idusuario WHERE administradores_centros.idcentro=".$idambito." ORDER by usuarios.nombre"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombre"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_USUARIOS.'-'.$rs->campos["idusuario"]; $cadenaXML.='>'; $rs->Siguiente(); } $rs->Cerrar(); } //________________________________________________________________________________________________________ function SubarbolXML_centros_asignados($cmd,$idambito){ global $TbMsg; global $LITAMBITO_CENTROS; global $cadenaXML; global $ADMINISTRADOR; $rs=new Recordset; $cmd->texto="SELECT centros.idcentro,centros.nombrecentro FROM centros INNER JOIN administradores_centros ON administradores_centros.idcentro=centros.idcentro WHERE administradores_centros.idusuario=".$idambito." ORDER by centros.nombrecentro"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["nombrecentro"].'"'; $cadenaXML.=' nodoid='.$LITAMBITO_CENTROS.'-'.$rs->campos["idcentro"]; $cadenaXML.='>'; $rs->Siguiente(); } $rs->Cerrar(); } //________________________________________________________________________________________________________ // // Mens Contextuales //________________________________________________________________________________________________________ function CreacontextualXMLUniversidades(){ global $LITAMBITO_GRUPOSENTIDADES; global $AMBITO_GRUPOSENTIDADES; global $LITAMBITO_UNIVERSIDADES; global $SUPERADMINISTRADOR; global $ADMINISTRADOR; global $TbMsg; $layerXML='