:

CreaArbolVistaXml(); // Crea arbol de configuraciones //________________________________________________________________________________________________________ include_once("../includes/iframecomun.php"); //________________________________________________________________________________________________________ ?> texto="SELECT idimagen,descripcion,comentarios, idperfilsoft FROM imagenes WHERE idimagen=".$idimagen; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); while (!$rs->EOF){ $cadenaXML.='campos["descripcion"].'"'; $cadenaXML.='>'; if($rs->campos["comentarios"]>" "){ $cadenaXML.='campos["comentarios"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $cadenaXML.=SubarbolXML_PerfilImagen($cmd,$rs->campos["idperfilsoft"]); $cadenaXML.=SubarbolXML_IncrementalImagen($cmd,$rs->campos["idimagen"]); $cadenaXML.=SubarbolXML_Ordenadores($cmd,$rs->campos["idimagen"],$rs->campos["idperfilsoft"]); $cadenaXML.=''; $rs->Siguiente(); } $rs->Cerrar(); return($cadenaXML); } //------------------------------------------------------------------------------------------------------------------------------------------------- function SubarbolXML_PerfilImagen($cmd,$idperfilsoft){ global $TbMsg; $cadenaXML=""; $gidperfilsoft=null; $rs=new Recordset; $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion as pdescripcion ,perfilessoft.comentarios, softwares.idsoftware,softwares.descripcion as hdescripcion,tiposoftwares.urlimg FROM perfilessoft "; $cmd->texto.=" LEFT OUTER JOIN perfilessoft_softwares ON perfilessoft.idperfilsoft=perfilessoft_softwares.idperfilsoft"; $cmd->texto.=" LEFT OUTER JOIN softwares ON softwares.idsoftware=perfilessoft_softwares.idsoftware"; $cmd->texto.=" LEFT OUTER JOIN tiposoftwares ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ; $cmd->texto.=" WHERE perfilessoft.idperfilsoft=".$idperfilsoft; $cmd->texto.=" ORDER by perfilessoft.descripcion,tiposoftwares.idtiposoftware,softwares.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); if ($rs->EOF) return($cadenaXML); $cadenaXML.='EOF){ if ($gidperfilsoft!=$rs->campos["idperfilsoft"]){ if ($gidperfilsoft){ $cadenaXML.=''; $cadenaXML.=''; } $gidperfilsoft=$rs->campos["idperfilsoft"]; $cadenaXML.='campos["pdescripcion"].'"'; $cadenaXML.='>'; if($rs->campos["comentarios"]>" "){ $cadenaXML.='campos["comentarios"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $cadenaXML.='campos["idsoftware"]){ $cadenaXML.='campos["urlimg"]; $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $rs->Siguiente(); } $cadenaXML.=''; $cadenaXML.=''; $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_IncrementalImagen($cmd,$idimagen){ global $TbMsg; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT imagenes_softincremental.idsoftincremental FROM imagenes INNER JOIN imagenes_softincremental ON imagenes.idimagen =imagenes_softincremental.idimagen WHERE (imagenes.idimagen = ".$idimagen.")"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset if($rs->EOF) return($cadenaXML); $cadenaXML.='EOF){ $cadenaXML.=SubarbolXML_SoftwaresIncrementales($cmd,$rs->campos["idsoftincremental"]); $rs->Siguiente(); } $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //________________________________________________________________________________________________________ function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){ global $TbMsg; $cadenaXML=""; $rs=new Recordset; $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion,softincrementales.comentarios , softwares.idsoftware,softwares.descripcion as sdescripcion,tiposoftwares.urlimg FROM softincrementales "; $cmd->texto.=" LEFT OUTER JOIN softincremental_softwares ON softincrementales.idsoftincremental=softincremental_softwares.idsoftincremental"; $cmd->texto.=" LEFT OUTER JOIN softwares ON softwares.idsoftware=softincremental_softwares.idsoftware"; $cmd->texto.=" LEFT OUTER JOIN tiposoftwares ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ; $cmd->texto.=" WHERE softincrementales.idsoftincremental=".$idsoftincremental; $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); $cadenaXML.='campos["idescripcion"].'"'; $cadenaXML.='>'; if($rs->campos["comentarios"]>" "){ $cadenaXML.='campos["comentarios"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $swcompo=false; while (!$rs->EOF){ if ($rs->campos["idsoftware"]){ if (!$swcompo) { $cadenaXML.='campos["urlimg"]; $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"'; $cadenaXML.='>'; $cadenaXML.=''; } $rs->Siguiente(); } if ($swcompo) { $cadenaXML.=''; } $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } //------------------------------------------------------------------------------------------------------------------------------------------------- function SubarbolXML_Ordenadores($cmd,$idimagen,$idperfilsoft){ global $TbMsg; $cadenaXML=""; $gidaula=null; $rs=new Recordset; $cmd->texto="SELECT aulas.idaula,aulas.nombreaula,ordenadores. idordenador,ordenadores.nombreordenador,ordenador_imagen.particion,ordenadores. idperfilhard FROM ordenadores"; $cmd->texto.=" INNER JOIN aulas ON ordenadores.idaula=aulas.idaula"; $cmd->texto.=" INNER JOIN ordenador_imagen ON ordenador_imagen.idordenador=ordenadores.idordenador"; $cmd->texto.=" WHERE ordenador_imagen.idimagen=".$idimagen." order by aulas.idaula"; $rs->Comando=&$cmd; if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset $rs->Primero(); if ($rs->numeroderegistros>0){ $cadenaXML.='EOF){ if ($gidaula!=$rs->campos["idaula"]){ if ($gidaula) $cadenaXML.=''; $cadenaXML.='campos["nombreaula"].'"'; $cadenaXML.='>'; $gidaula=$rs->campos["idaula"]; } $cadenaXML.='campos["nombreordenador"].'   -   ('.$TbMsg[8].':'.$rs->campos["particion"]. ', PS'.$idperfilsoft.'_PH'.$rs->campos["idperfilhard"].'.psf)"' ; $cadenaXML.='>'; $rs->Siguiente(); } if ($gidaula) $cadenaXML.=''; if ($rs->numeroderegistros>0) $cadenaXML.=''; $rs->Cerrar(); return($cadenaXML); } ?>