source: admin/WebConsole/varios/informacion_incrementales.php @ 31371c1

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 31371c1 was a6b881e, checked in by alonso <alonso@…>, 16 years ago

primeros archivos de administración

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