source: admin/ogAdmSources/ogAdmWebCon/varios/informacion_incrementales.php @ e42f34e

918-git-images-111dconfigfileconfigure-oglivegit-imageslgromero-new-oglivemainmaint-cronmount-efivarfsmultivmmultivm-ogboot-installerogClonningEngineogboot-installer-jenkinsoglive-ipv6test-python-scriptsticket-301ticket-50ticket-50-oldticket-577ticket-585ticket-611ticket-612ticket-693ticket-700ubu24tplunification2use-local-agent-oglivevarios-instalacionwebconsole3
Last change on this file since e42f34e was 8964f9b, checked in by ramon <ramongomez@…>, 16 years ago

Resstructuración de trunk.

git-svn-id: https://opengnsys.es/svn/trunk@390 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 11.6 KB
Line 
1<?
2// *************************************************************************************************************************************************
3// Aplicación WEB: ogAdmWebCon
4// Copyright 200-2005 José Manuel Alonso. Todos los derechos reservados.
5// Fecha Creación: Año 2003-2004
6// Fecha Última modificación: Marzo-2005
7// Nombre del fichero: informacion_incrementales.php
8// Descripción :
9//              Muestra los componentes software  de un software incremental y los perfiles softwares y hardwares  disponibles
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../clases/AdoPhp.php");
13include_once("../includes/CreaComando.php");
14include_once("../clases/XmlPhp.php");
15include_once("../clases/ArbolVistaXML.php");
16include_once("../idiomas/php/".$idioma."/informacion_incrementales_".$idioma.".php");
17//________________________________________________________________________________________________________
18$idsoftincremental=0;
19$descripcionincremental="";
20if (isset($_GET["idsoftincremental"])) $idsoftincremental=$_GET["idsoftincremental"]; // Recoge parametros
21if (isset($_GET["descripcionincremental"])) $descripcionincremental=$_GET["descripcionincremental"]; // Recoge parametros
22
23$cmd=CreaComando($cadenaconexion);
24if (!$cmd)
25        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
26else
27        $arbolXML=CreaArbol($cmd,$idsoftincremental); // Crea el arbol XML
28
29// Creación del árbol
30$baseurlimg="../images/tsignos";
31$clasedefault="tabla_listados_sin";
32$titulotabla=$TbMsg[3]; 
33$arbol=new ArbolVistaXml($arbolXML,0,$baseurlimg,$clasedefault,1,20,130,1,$titulotabla);
34//________________________________________________________________________________________________________
35?>
36<HTML>
37<HTML>
38<TITLE>Administración web de aulas</TITLE>
39<HEAD>
40        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
41        <SCRIPT language="javascript" src="../clases/jscripts/ArbolVistaXml.js"></SCRIPT>
42</HEAD>
43<BODY>
44        <P align=center class=cabeceras><?echo $TbMsg[0]?><BR>
45        <SPAN align=center class=subcabeceras><?echo $TbMsg[1]?></SPAN>&nbsp;<IMG src="../images/iconos/confisoft.gif"><BR><BR>
46        <IMG src="../images/iconos/incremental.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?echo $TbMsg[2]?></U>:   <? echo $descripcionincremental?></SPAN></P>
47        <?echo $arbol->CreaArbolVistaXml(); // Crea arbol de configuraciones?>
48<?
49//________________________________________________________________________________________________________
50include_once("../includes/iframecomun.php");
51//________________________________________________________________________________________________________
52?>
53</BODY>
54</HTML>
55<?
56/**************************************************************************************************************************************************
57        Devuelve una cadena con formato XML de toda la información de los perfiles software
58        softwares
59        Parametros:
60                - cmd:Una comando ya operativo ( con conexión abierta) 
61                - idsoftincremental: El identificador del perfil software
62________________________________________________________________________________________________________*/
63function CreaArbol($cmd,$idsoftincremental){
64        $cadenaXML=SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental);
65        return($cadenaXML);
66}
67//________________________________________________________________________________________________________
68function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){
69        global $TbMsg;
70        $cadenaXML="";
71        $rs=new Recordset;
72        $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion, softwares.idsoftware,softwares.descripcion as sdescripcion,tiposoftwares.urlimg FROM softincrementales  ";
73        $cmd->texto.=" LEFT OUTER JOIN  softincremental_softwares  ON softincrementales.idsoftincremental=softincremental_softwares.idsoftincremental";
74        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=softincremental_softwares.idsoftware";
75        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
76        $cmd->texto.=" WHERE softincrementales.idsoftincremental=".$idsoftincremental;
77        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
78        $rs->Comando=&$cmd;
79        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
80        $rs->Primero();
81        $cadenaXML.='<SOFTWARESINCREMENTALES';
82        // Atributos
83        $cadenaXML.=' imagenodo="../images/iconos/incremental.gif"';
84        $cadenaXML.=' infonodo="'.$rs->campos["idescripcion"].'"';
85        $cadenaXML.='>';
86        $swcompo=false;
87        while (!$rs->EOF){
88                if ($rs->campos["idsoftware"]){
89                        if (!$swcompo) {
90                                $cadenaXML.='<COMPONENTES';
91                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
92                                $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
93                                $cadenaXML.='>';
94                                $swcompo=true;
95                        }       
96                        $cadenaXML.='<SOFTWAREINCREMENTAL';
97                        // Atributos
98                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
99                        $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
100                        $cadenaXML.='>';
101                        $cadenaXML.='</SOFTWAREINCREMENTAL>';
102                }
103                $rs->Siguiente();
104        }
105        if ($swcompo) {
106                $cadenaXML.='</COMPONENTES>';
107        }
108        $cadenaXML.=SubarbolXML_PerfilesDisponibles($cmd,$idsoftincremental);
109        $cadenaXML.='</SOFTWARESINCREMENTALES>';
110        $rs->Cerrar();
111        return($cadenaXML);
112}
113//________________________________________________________________________________________________________
114function SubarbolXML_PerfilesDisponibles($cmd,$idsoftincremental){
115        global $TbMsg;
116        $cadenaXML="";
117        $gidperfilsoft=null;
118        $rs=new Recordset;
119        $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";
120        $rs->Comando=&$cmd;
121        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
122        $rs->Primero();
123        if ($rs->numeroderegistros>0) {
124                $cadenaXML.='<DISPONIBLESPERFILES';
125                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
126                $cadenaXML.=' infonodo="'.$TbMsg[5].'"';
127                $cadenaXML.='>';
128        }
129        while (!$rs->EOF){
130                if ($gidperfilsoft!=$rs->campos["idperfilsoft"]){
131                        if ($gidperfilsoft){
132                                $cadenaXML.='</PERFILESSOFTWARES>';
133                        }
134                        $gidperfilsoft=$rs->campos["idperfilsoft"];
135                        $cadenaXML.='<PERFILESSOFTWARES';
136                        // Atributos
137                        $cadenaXML.=' imagenodo="../images/iconos/perfilsoftware.gif"';
138                        $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
139                        $cadenaXML.='>';
140                        $cadenaXML.=SubarbolXML_ComponentesSoftware($cmd,$rs->campos["idperfilsoft"]);
141                }
142
143                        $cadenaXML.='<PERFILESHARDWARES';
144                        // Atributos
145                        $cadenaXML.=' imagenodo="../images/iconos/perfilhardware.gif"';
146                        $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"';
147                        $cadenaXML.='>';
148                        $cadenaXML.=SubarbolXML_ComponentesHardware($cmd,$rs->campos["idperfilhard"]);
149                        $cadenaXML.='</PERFILESHARDWARES>';
150
151                $rs->Siguiente();
152        }
153        if ($gidperfilsoft){
154                $cadenaXML.='</PERFILESSOFTWARES>';
155                $cadenaXML.='</DISPONIBLESPERFILES>';
156        }
157        $rs->Cerrar();
158        return($cadenaXML);
159}
160//________________________________________________________________________________________________________
161function SubarbolXML_ComponentesSoftware($cmd,$idperfilsoft){
162        $cadenaXML="";
163        $rs=new Recordset;
164        $cmd->texto="SELECT softwares.descripcion,tiposoftwares.urlimg FROM perfilessoft_softwares  ";
165        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=perfilessoft_softwares.idsoftware";
166        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
167        $cmd->texto.=" WHERE perfilessoft_softwares.idperfilsoft=".$idperfilsoft;
168        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
169        $rs->Comando=&$cmd;
170        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
171        $rs->Primero();
172        $cadenaXML.='<COMPONENTES';
173        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
174        $cadenaXML.=' infonodo="Software components"';
175        $cadenaXML.='>';
176        while (!$rs->EOF){
177                        $cadenaXML.='<COMPONENTESOFT';
178                        // Atributos
179                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
180                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
181                        $cadenaXML.='>';
182                        $cadenaXML.='</COMPONENTESOFT>';
183                        $rs->Siguiente();
184        }       
185        $cadenaXML.='</COMPONENTES>';
186        $rs->Cerrar();
187        return($cadenaXML);
188}
189//________________________________________________________________________________________________________
190function SubarbolXML_PerfilesHardwaresSoportados($cmd,$idperfilsoft){
191        $cadenaXML="";
192        $gidperfilhard=null;
193        $rs=new Recordset;
194        $cmd->texto="SELECT perfileshard.idperfilhard ,perfileshard.descripcion FROM perfileshard  ";
195        $cmd->texto.=" LEFT OUTER JOIN perfileshard_perfilessoft  ON perfileshard_perfilessoft.idperfilhard=perfileshard.idperfilhard" ;
196        $cmd->texto.=" WHERE perfileshard_perfilessoft.idperfilsoft=".$idperfilsoft;
197        $cmd->texto.=" ORDER by perfileshard.descripcion";
198        $rs->Comando=&$cmd;
199        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
200        $rs->Primero();
201        if ($rs->numeroderegistros>0) {
202                $cadenaXML.='<DISPONIBLESPERFILES';
203                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
204                $cadenaXML.=' infonodo="Availables hardware profiles"';
205                $cadenaXML.='>';
206        }
207        while (!$rs->EOF){
208                if ($gidperfilhard!=$rs->campos["idperfilhard"]){
209                        if ($gidperfilhard){
210                                $cadenaXML.='</PERFILESHARDWARES>';
211                        }
212                        $gidperfilhard=$rs->campos["idperfilhard"];
213                        $cadenaXML.='<PERFILESHARDWARES';
214                        // Atributos
215                        $cadenaXML.=' imagenodo="../images/iconos/perfilhardware.gif"';
216                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
217                        $cadenaXML.='>';
218                        $cadenaXML.=SubarbolXML_ComponentesHardware($cmd,$rs->campos["idperfilhard"]);
219                }
220                $rs->Siguiente();
221        }
222        if ($gidperfilhard){
223                $cadenaXML.='</PERFILESHARDWARES>';
224                $cadenaXML.='</DISPONIBLESPERFILES>';
225        }
226        $rs->Cerrar();
227        return($cadenaXML);
228}
229//________________________________________________________________________________________________________
230function SubarbolXML_ComponentesHardware($cmd,$idperfilhard){
231        $cadenaXML="";
232        $rs=new Recordset;
233        $cmd->texto="SELECT hardwares.descripcion,tipohardwares.urlimg FROM perfileshard_hardwares  ";
234        $cmd->texto.="INNER JOIN hardwares  ON hardwares.idhardware=perfileshard_hardwares.idhardware";
235        $cmd->texto.=" INNER JOIN tipohardwares  ON hardwares.idtipohardware=tipohardwares.idtipohardware" ;
236        $cmd->texto.=" WHERE perfileshard_hardwares.idperfilhard=".$idperfilhard;
237        $cmd->texto.=" ORDER by tipohardwares.idtipohardware,hardwares.descripcion";
238        $rs->Comando=&$cmd;
239
240        $rs->Comando=&$cmd;
241        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
242        $rs->Primero();
243        $cadenaXML.='<COMPONENTES';
244        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
245        $cadenaXML.=' infonodo="Hardware components"';
246        $cadenaXML.='>';
247        while (!$rs->EOF){
248                        $cadenaXML.='<COMPONENTEHARD';
249                        // Atributos
250                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
251                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
252                        $cadenaXML.='>';
253                        $cadenaXML.='</COMPONENTEHARD>';
254                        $rs->Siguiente();
255        }       
256        $cadenaXML.='</COMPONENTES>';
257        $rs->Cerrar();
258        return($cadenaXML);
259}
260?>
Note: See TracBrowser for help on using the repository browser.