summaryrefslogtreecommitdiffstats
path: root/admin/ogAdmSources/ogAdmWebCon/varios/informacion_incrementales.php
diff options
context:
space:
mode:
Diffstat (limited to 'admin/ogAdmSources/ogAdmWebCon/varios/informacion_incrementales.php')
-rw-r--r--admin/ogAdmSources/ogAdmWebCon/varios/informacion_incrementales.php260
1 files changed, 260 insertions, 0 deletions
diff --git a/admin/ogAdmSources/ogAdmWebCon/varios/informacion_incrementales.php b/admin/ogAdmSources/ogAdmWebCon/varios/informacion_incrementales.php
new file mode 100644
index 00000000..82da2751
--- /dev/null
+++ b/admin/ogAdmSources/ogAdmWebCon/varios/informacion_incrementales.php
@@ -0,0 +1,260 @@
+<?
+// *************************************************************************************************************************************************
+// Aplicación WEB: ogAdmWebCon
+// Copyright 200-2005 José Manuel Alonso. Todos los derechos reservados.
+// Fecha Creación: Año 2003-2004
+// Fecha Última modificación: Marzo-2005
+// Nombre del fichero: informacion_incrementales.php
+// Descripción :
+// Muestra los componentes software de un software incremental y los perfiles softwares y hardwares disponibles
+// *************************************************************************************************************************************************
+include_once("../includes/ctrlacc.php");
+include_once("../clases/AdoPhp.php");
+include_once("../includes/CreaComando.php");
+include_once("../clases/XmlPhp.php");
+include_once("../clases/ArbolVistaXML.php");
+include_once("../idiomas/php/".$idioma."/informacion_incrementales_".$idioma.".php");
+//________________________________________________________________________________________________________
+$idsoftincremental=0;
+$descripcionincremental="";
+if (isset($_GET["idsoftincremental"])) $idsoftincremental=$_GET["idsoftincremental"]; // Recoge parametros
+if (isset($_GET["descripcionincremental"])) $descripcionincremental=$_GET["descripcionincremental"]; // Recoge parametros
+
+$cmd=CreaComando($cadenaconexion);
+if (!$cmd)
+ Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
+else
+ $arbolXML=CreaArbol($cmd,$idsoftincremental); // Crea el arbol XML
+
+// Creación del árbol
+$baseurlimg="../images/tsignos";
+$clasedefault="tabla_listados_sin";
+$titulotabla=$TbMsg[3];
+$arbol=new ArbolVistaXml($arbolXML,0,$baseurlimg,$clasedefault,1,20,130,1,$titulotabla);
+//________________________________________________________________________________________________________
+?>
+<HTML>
+<HTML>
+<TITLE>Administración web de aulas</TITLE>
+<HEAD>
+ <LINK rel="stylesheet" type="text/css" href="../estilos.css">
+ <SCRIPT language="javascript" src="../clases/jscripts/ArbolVistaXml.js"></SCRIPT>
+</HEAD>
+<BODY>
+ <P align=center class=cabeceras><?echo $TbMsg[0]?><BR>
+ <SPAN align=center class=subcabeceras><?echo $TbMsg[1]?></SPAN>&nbsp;<IMG src="../images/iconos/confisoft.gif"><BR><BR>
+ <IMG src="../images/iconos/incremental.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?echo $TbMsg[2]?></U>: <? echo $descripcionincremental?></SPAN></P>
+ <?echo $arbol->CreaArbolVistaXml(); // Crea arbol de configuraciones?>
+<?
+//________________________________________________________________________________________________________
+include_once("../includes/iframecomun.php");
+//________________________________________________________________________________________________________
+?>
+</BODY>
+</HTML>
+<?
+/**************************************************************************************************************************************************
+ Devuelve una cadena con formato XML de toda la información de los perfiles software
+ softwares
+ Parametros:
+ - cmd:Una comando ya operativo ( con conexión abierta)
+ - idsoftincremental: El identificador del perfil software
+________________________________________________________________________________________________________*/
+function CreaArbol($cmd,$idsoftincremental){
+ $cadenaXML=SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental);
+ return($cadenaXML);
+}
+//________________________________________________________________________________________________________
+function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){
+ global $TbMsg;
+ $cadenaXML="";
+ $rs=new Recordset;
+ $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion, 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.='<SOFTWARESINCREMENTALES';
+ // Atributos
+ $cadenaXML.=' imagenodo="../images/iconos/incremental.gif"';
+ $cadenaXML.=' infonodo="'.$rs->campos["idescripcion"].'"';
+ $cadenaXML.='>';
+ $swcompo=false;
+ while (!$rs->EOF){
+ if ($rs->campos["idsoftware"]){
+ if (!$swcompo) {
+ $cadenaXML.='<COMPONENTES';
+ $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
+ $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
+ $cadenaXML.='>';
+ $swcompo=true;
+ }
+ $cadenaXML.='<SOFTWAREINCREMENTAL';
+ // Atributos
+ $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
+ $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
+ $cadenaXML.='>';
+ $cadenaXML.='</SOFTWAREINCREMENTAL>';
+ }
+ $rs->Siguiente();
+ }
+ if ($swcompo) {
+ $cadenaXML.='</COMPONENTES>';
+ }
+ $cadenaXML.=SubarbolXML_PerfilesDisponibles($cmd,$idsoftincremental);
+ $cadenaXML.='</SOFTWARESINCREMENTALES>';
+ $rs->Cerrar();
+ return($cadenaXML);
+}
+//________________________________________________________________________________________________________
+function SubarbolXML_PerfilesDisponibles($cmd,$idsoftincremental){
+ global $TbMsg;
+ $cadenaXML="";
+ $gidperfilsoft=null;
+ $rs=new Recordset;
+ $cmd->texto="SELECT perfilessoft.descripcion AS sdescripcion, perfileshard.descripcion AS hdescripcion, perfileshard.idperfilhard, perfilessoft.idperfilsoft FROM softincrementales INNER JOIN phard_psoft_softincremental ON softincrementales.idsoftincremental = phard_psoft_softincremental.idsoftincremental INNER JOIN perfileshard_perfilessoft ON phard_psoft_softincremental.idphardidpsoft = perfileshard_perfilessoft.idphardidpsoft INNER JOIN perfileshard ON perfileshard_perfilessoft.idperfilhard = perfileshard.idperfilhard INNER JOIN perfilessoft ON perfileshard_perfilessoft.idperfilsoft = perfilessoft.idperfilsoft WHERE softincrementales.idsoftincremental=".$idsoftincremental." GROUP BY softincrementales.descripcion, perfilessoft.descripcion, perfileshard.descripcion, perfileshard.idperfilhard, perfilessoft.idperfilsoft ORDER BY perfilessoft.idperfilsoft, perfileshard.idperfilhard";
+ $rs->Comando=&$cmd;
+ if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
+ $rs->Primero();
+ if ($rs->numeroderegistros>0) {
+ $cadenaXML.='<DISPONIBLESPERFILES';
+ $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
+ $cadenaXML.=' infonodo="'.$TbMsg[5].'"';
+ $cadenaXML.='>';
+ }
+ while (!$rs->EOF){
+ if ($gidperfilsoft!=$rs->campos["idperfilsoft"]){
+ if ($gidperfilsoft){
+ $cadenaXML.='</PERFILESSOFTWARES>';
+ }
+ $gidperfilsoft=$rs->campos["idperfilsoft"];
+ $cadenaXML.='<PERFILESSOFTWARES';
+ // Atributos
+ $cadenaXML.=' imagenodo="../images/iconos/perfilsoftware.gif"';
+ $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
+ $cadenaXML.='>';
+ $cadenaXML.=SubarbolXML_ComponentesSoftware($cmd,$rs->campos["idperfilsoft"]);
+ }
+
+ $cadenaXML.='<PERFILESHARDWARES';
+ // Atributos
+ $cadenaXML.=' imagenodo="../images/iconos/perfilhardware.gif"';
+ $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"';
+ $cadenaXML.='>';
+ $cadenaXML.=SubarbolXML_ComponentesHardware($cmd,$rs->campos["idperfilhard"]);
+ $cadenaXML.='</PERFILESHARDWARES>';
+
+ $rs->Siguiente();
+ }
+ if ($gidperfilsoft){
+ $cadenaXML.='</PERFILESSOFTWARES>';
+ $cadenaXML.='</DISPONIBLESPERFILES>';
+ }
+ $rs->Cerrar();
+ return($cadenaXML);
+}
+//________________________________________________________________________________________________________
+function SubarbolXML_ComponentesSoftware($cmd,$idperfilsoft){
+ $cadenaXML="";
+ $rs=new Recordset;
+ $cmd->texto="SELECT softwares.descripcion,tiposoftwares.urlimg FROM perfilessoft_softwares ";
+ $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_softwares.idperfilsoft=".$idperfilsoft;
+ $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
+ $rs->Comando=&$cmd;
+ if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
+ $rs->Primero();
+ $cadenaXML.='<COMPONENTES';
+ $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
+ $cadenaXML.=' infonodo="Software components"';
+ $cadenaXML.='>';
+ while (!$rs->EOF){
+ $cadenaXML.='<COMPONENTESOFT';
+ // Atributos
+ $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
+ $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
+ $cadenaXML.='>';
+ $cadenaXML.='</COMPONENTESOFT>';
+ $rs->Siguiente();
+ }
+ $cadenaXML.='</COMPONENTES>';
+ $rs->Cerrar();
+ return($cadenaXML);
+}
+//________________________________________________________________________________________________________
+function SubarbolXML_PerfilesHardwaresSoportados($cmd,$idperfilsoft){
+ $cadenaXML="";
+ $gidperfilhard=null;
+ $rs=new Recordset;
+ $cmd->texto="SELECT perfileshard.idperfilhard ,perfileshard.descripcion FROM perfileshard ";
+ $cmd->texto.=" LEFT OUTER JOIN perfileshard_perfilessoft ON perfileshard_perfilessoft.idperfilhard=perfileshard.idperfilhard" ;
+ $cmd->texto.=" WHERE perfileshard_perfilessoft.idperfilsoft=".$idperfilsoft;
+ $cmd->texto.=" ORDER by perfileshard.descripcion";
+ $rs->Comando=&$cmd;
+ if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
+ $rs->Primero();
+ if ($rs->numeroderegistros>0) {
+ $cadenaXML.='<DISPONIBLESPERFILES';
+ $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
+ $cadenaXML.=' infonodo="Availables hardware profiles"';
+ $cadenaXML.='>';
+ }
+ while (!$rs->EOF){
+ if ($gidperfilhard!=$rs->campos["idperfilhard"]){
+ if ($gidperfilhard){
+ $cadenaXML.='</PERFILESHARDWARES>';
+ }
+ $gidperfilhard=$rs->campos["idperfilhard"];
+ $cadenaXML.='<PERFILESHARDWARES';
+ // Atributos
+ $cadenaXML.=' imagenodo="../images/iconos/perfilhardware.gif"';
+ $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
+ $cadenaXML.='>';
+ $cadenaXML.=SubarbolXML_ComponentesHardware($cmd,$rs->campos["idperfilhard"]);
+ }
+ $rs->Siguiente();
+ }
+ if ($gidperfilhard){
+ $cadenaXML.='</PERFILESHARDWARES>';
+ $cadenaXML.='</DISPONIBLESPERFILES>';
+ }
+ $rs->Cerrar();
+ return($cadenaXML);
+}
+//________________________________________________________________________________________________________
+function SubarbolXML_ComponentesHardware($cmd,$idperfilhard){
+ $cadenaXML="";
+ $rs=new Recordset;
+ $cmd->texto="SELECT hardwares.descripcion,tipohardwares.urlimg FROM perfileshard_hardwares ";
+ $cmd->texto.="INNER JOIN hardwares ON hardwares.idhardware=perfileshard_hardwares.idhardware";
+ $cmd->texto.=" INNER JOIN tipohardwares ON hardwares.idtipohardware=tipohardwares.idtipohardware" ;
+ $cmd->texto.=" WHERE perfileshard_hardwares.idperfilhard=".$idperfilhard;
+ $cmd->texto.=" ORDER by tipohardwares.idtipohardware,hardwares.descripcion";
+ $rs->Comando=&$cmd;
+
+ $rs->Comando=&$cmd;
+ if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
+ $rs->Primero();
+ $cadenaXML.='<COMPONENTES';
+ $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
+ $cadenaXML.=' infonodo="Hardware components"';
+ $cadenaXML.='>';
+ while (!$rs->EOF){
+ $cadenaXML.='<COMPONENTEHARD';
+ // Atributos
+ $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
+ $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
+ $cadenaXML.='>';
+ $cadenaXML.='</COMPONENTEHARD>';
+ $rs->Siguiente();
+ }
+ $cadenaXML.='</COMPONENTES>';
+ $rs->Cerrar();
+ return($cadenaXML);
+}
+?> \ No newline at end of file