source: admin/WebConsole/varios/informacion_perfileshardware.php @ 9a2cda1e

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 9a2cda1e was b0dc2e4, checked in by alonso <alonso@…>, 16 years ago

git-svn-id: https://opengnsys.es/svn/trunk@489 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 12.3 KB
RevLine 
[b0dc2e4]1<?
2// *************************************************************************************************************************************************
3// Aplicación WEB: ogAdmWebCon
4// Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla
5// Fecha Creación: Año 2003-2004
6// Fecha Última modificación: Marzo-2005
7// Nombre del fichero: informacion_perfileshard.php
8// Descripción :
9//              Muestra los componentes hardware que forman parte de un perfil hardware y los perfiles softwares 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_perfileshard_".$idioma.".php");
17//________________________________________________________________________________________________________
18$idperfil=0;
19$descripcionperfil="";
20if (isset($_GET["idperfil"])) $idperfil=$_GET["idperfil"]; // Recoge parametros
21if (isset($_GET["descripcionperfil"])) $descripcionperfil=$_GET["descripcionperfil"]; // Recoge parametros
22
23$cmd=CreaComando($cadenaconexion);
24if (!$cmd)
25        Header('Location: '.$pagerror.'?herror=2'); // Error de conexióncon servidor B.D.
26else
27        $arbolXML=CreaArbol($cmd,$idperfil); // 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<TITLE>Administración web de aulas</TITLE>
38<HEAD>
39        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
40        <SCRIPT language="javascript" src="../clases/jscripts/ArbolVistaXML.js"></SCRIPT>
41</HEAD>
42<BODY>
43        <P align=center class=cabeceras><?echo $TbMsg[0]?><BR>
44        <SPAN align=center class=subcabeceras><?echo $TbMsg[1]?></SPAN>&nbsp;<IMG src="../images/iconos/confihard.gif"><BR><BR>
45        <IMG src="../images/iconos/perfilhardware.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?echo $TbMsg[2]?></U>:        <? echo $descripcionperfil?></SPAN></P>
46        <?echo $arbol->CreaArbolVistaXml(); // Crea arbol de configuraciones?>
47
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� de los perfiles hardwares
58        Parametros:
59                - cmd:Una comando ya operativo ( con conexiónabierta) 
60                - idperfil: El identificador del perfil hardware
61________________________________________________________________________________________________________*/
62function CreaArbol($cmd,$idperfil){
63        $cadenaXML=SubarbolXML_PerfilesHardwares($cmd,$idperfil);
64        return($cadenaXML);
65}
66//________________________________________________________________________________________________________
67function SubarbolXML_PerfilesHardwares($cmd,$idperfilhard){
68        global $TbMsg;
69        $cadenaXML="";
70        $rs=new Recordset;
71        $cmd->texto="SELECT tipohardwares.pci,perfileshard.idperfilhard ,perfileshard.descripcion as pdescripcion, perfileshard.comentarios,hardwares.idhardware,hardwares.descripcion as hdescripcion,tipohardwares.urlimg,fabricantes.nombre as nombrefabricante FROM perfileshard  ";
72        $cmd->texto.=" LEFT OUTER JOIN perfileshard_hardwares  ON perfileshard.idperfilhard=perfileshard_hardwares.idperfilhard";
73        $cmd->texto.=" LEFT OUTER JOIN hardwares  ON hardwares.idhardware=perfileshard_hardwares.idhardware";
74        $cmd->texto.=" LEFT OUTER JOIN fabricantes   ON fabricantes.codigo=hardwares.codigo1";
75        $cmd->texto.=" LEFT OUTER JOIN tipohardwares  ON hardwares.idtipohardware=tipohardwares.idtipohardware" ;
76        $cmd->texto.=" WHERE perfileshard.idperfilhard=".$idperfilhard;
77        $cmd->texto.=" ORDER by tipohardwares.idtipohardware,hardwares.descripcion";
78        $rs->Comando=&$cmd;
79        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
80        $rs->Primero();
81        $cadenaXML.='<PERFILESHARDWARES';
82        // Atributos`
83        $cadenaXML.=' imagenodo="../images/iconos/perfilhardware.gif"';
84        $cadenaXML.=' infonodo="'.$rs->campos["pdescripcion"].'"';
85        $cadenaXML.='>';
86        if($rs->campos["comentarios"]>" "){
87                $cadenaXML.='<PROPIEDAD';
88                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
89                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
90                $cadenaXML.='>';
91                $cadenaXML.='</PROPIEDAD>';
92        }
93        $swcompo=false;
94        while (!$rs->EOF){
95                if ($rs->campos["idhardware"]){
96                        if (!$swcompo) {
97                                $cadenaXML.='<COMPONENTES';
98                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
99                                $cadenaXML.=' infonodo="'.$TbMsg[6].'"';
100                                $cadenaXML.='>';
101                                $swcompo=true;
102                        }       
103
104                        if ($rs->campos["pci"]>0)
105                                $fabricante="(".trim($rs->campos["nombrefabricante"]).")";
106                        else
107                                $fabricante="";
108
109
110                        $cadenaXML.='<PERFILHARDWARE';
111                        // Atributos
112                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
113                        $cadenaXML.=' infonodo="'.$fabricante.$rs->campos["hdescripcion"].'"';
114                        $cadenaXML.='>';
115                        $cadenaXML.='</PERFILHARDWARE>';
116                }
117                $rs->Siguiente();
118        }
119        if ($swcompo) {
120                $cadenaXML.='</COMPONENTES>';
121        }
122        $cadenaXML.=SubarbolXML_PerfilesSoftwaresDisponibles($cmd,$idperfilhard);
123        $cadenaXML.='</PERFILESHARDWARES>';
124        $rs->Cerrar();
125        return($cadenaXML);
126}
127//________________________________________________________________________________________________________
128function SubarbolXML_PerfilesSoftwaresDisponibles($cmd,$idperfilhard){
129        global $TbMsg;
130        $cadenaXML="";
131        $gidperfilsoft=null;
132        $rs=new Recordset;
133        $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion,perfilessoft.comentarios FROM perfilessoft  ";
134        $cmd->texto.=" LEFT OUTER JOIN  perfileshard_perfilessoft  ON perfileshard_perfilessoft.idperfilsoft=perfilessoft.idperfilsoft" ;
135        $cmd->texto.=" WHERE perfileshard_perfilessoft.idperfilhard=".$idperfilhard;
136        $cmd->texto.=" ORDER by perfilessoft.descripcion";
137        $rs->Comando=&$cmd;
138        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
139        $rs->Primero();
140        if ($rs->numeroderegistros>0) {
141                $cadenaXML.='<DISPONIBLESPERFILES';
142                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
143                $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
144                $cadenaXML.='>';
145        }
146        while (!$rs->EOF){
147                if ($gidperfilsoft!=$rs->campos["idperfilsoft"]){
148                        if ($gidperfilsoft){
149                                $cadenaXML.='</PERFILESSOFTWARES>';
150                        }
151                        $gidperfilsoft=$rs->campos["idperfilsoft"];
152                        $cadenaXML.='<PERFILESSOFTWARES';
153                        // Atributos
154                        $cadenaXML.=' imagenodo="../images/iconos/perfilsoftware.gif"';
155                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
156                        $cadenaXML.='>';
157                        if($rs->campos["comentarios"]>" "){
158                                $cadenaXML.='<PROPIEDAD';
159                                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
160                                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
161                                $cadenaXML.='>';
162                                $cadenaXML.='</PROPIEDAD>';
163                        }
164                        $cadenaXML.=SubarbolXML_ComponentesSoftware($cmd,$rs->campos["idperfilsoft"]);
165                        $cadenaXML.=SubarbolXML_IncrementalesDisponibles($cmd,$rs->campos["idperfilsoft"],$idperfilhard);
166                }
167                $rs->Siguiente();
168        }
169        if ($gidperfilsoft){
170                $cadenaXML.='</PERFILESSOFTWARES>';
171                $cadenaXML.='</DISPONIBLESPERFILES>';
172        }
173        $rs->Cerrar();
174        return($cadenaXML);
175}
176//________________________________________________________________________________________________________
177function SubarbolXML_ComponentesSoftware($cmd,$idperfilsoft){
178        global $TbMsg;
179        $cadenaXML="";
180        $rs=new Recordset;
181        $cmd->texto="SELECT softwares.descripcion,tiposoftwares.urlimg FROM perfilessoft_softwares  ";
182        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=perfilessoft_softwares.idsoftware";
183        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
184        $cmd->texto.=" WHERE perfilessoft_softwares.idperfilsoft=".$idperfilsoft;
185        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
186        $rs->Comando=&$cmd;
187        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
188        $rs->Primero();
189        $cadenaXML.='<COMPONENTES';
190        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
191        $cadenaXML.=' infonodo="'.$TbMsg[5].'"';
192        $cadenaXML.='>';
193        while (!$rs->EOF){
194                        $cadenaXML.='<COMPONENTESOFT';
195                        // Atributos
196                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
197                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
198                        $cadenaXML.='>';
199                        $cadenaXML.='</COMPONENTESOFT>';
200                        $rs->Siguiente();
201        }       
202        $cadenaXML.='</COMPONENTES>';
203        $rs->Cerrar();
204        return($cadenaXML);
205}
206//________________________________________________________________________________________________________
207function SubarbolXML_IncrementalesDisponibles($cmd,$idperfilsoft,$idperfilhard){
208        global $TbMsg;
209        $cadenaXML="";
210        $rs=new Recordset;
211        $cmd->texto="SELECT   softincrementales.descripcion,  softincrementales.idsoftincremental,  perfileshard_perfilessoft.idperfilhard,      perfileshard_perfilessoft.idperfilsoft FROM   perfileshard_perfilessoft INNER JOIN     phard_psoft_softincremental ON  perfileshard_perfilessoft.idphardidpsoft =  phard_psoft_softincremental.idphardidpsoft INNER JOIN      softincrementales ON  phard_psoft_softincremental.idsoftincremental =  softincrementales.idsoftincremental WHERE  ( perfileshard_perfilessoft.idperfilhard = ".$idperfilhard.") AND ( perfileshard_perfilessoft.idperfilsoft = ".$idperfilsoft.")";
212        $rs->Comando=&$cmd;
213        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
214        if($rs->EOF) return($cadenaXML);
215        $cadenaXML.='<CARPETAINCREMENTALES';
216        // Atributos
217        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
218        $cadenaXML.=' infonodo="'.$TbMsg[7].'"';
219        $cadenaXML.='>';
220        while (!$rs->EOF){
221                $cadenaXML.=SubarbolXML_SoftwaresIncrementales($cmd,$rs->campos["idsoftincremental"]);
222                $rs->Siguiente();
223        }
224        $cadenaXML.='</CARPETAINCREMENTALES>';
225        $rs->Cerrar();
226        return($cadenaXML);
227}
228//________________________________________________________________________________________________________
229function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){
230        global $TbMsg;
231        $cadenaXML="";
232        $rs=new Recordset;
233        $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion, softincrementales.comentarios,softwares.idsoftware,softwares.descripcion as sdescripcion,tiposoftwares.urlimg FROM softincrementales  ";
234        $cmd->texto.=" LEFT OUTER JOIN  softincremental_softwares  ON softincrementales.idsoftincremental=softincremental_softwares.idsoftincremental";
235        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=softincremental_softwares.idsoftware";
236        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
237        $cmd->texto.=" WHERE softincrementales.idsoftincremental=".$idsoftincremental;
238        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
239        $rs->Comando=&$cmd;
240        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
241        $rs->Primero();
242        $cadenaXML.='<SOFTWARESINCREMENTALES';
243        // Atributos
244        $cadenaXML.=' imagenodo="../images/iconos/incremental.gif"';
245        $cadenaXML.=' infonodo="'.$rs->campos["idescripcion"].'"';
246        $cadenaXML.='>';
247        if($rs->campos["comentarios"]>" "){
248                $cadenaXML.='<PROPIEDAD';
249                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
250                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
251                $cadenaXML.='>';
252                $cadenaXML.='</PROPIEDAD>';
253        }
254        $swcompo=false;
255        while (!$rs->EOF){
256                if ($rs->campos["idsoftware"]){
257                        if (!$swcompo) {
258                                $cadenaXML.='<COMPONENTES';
259                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
260                                $cadenaXML.=' infonodo="'.$TbMsg[5].'"';
261                                $cadenaXML.='>';
262                                $swcompo=true;
263                        }       
264                        $cadenaXML.='<SOFTWAREINCREMENTAL';
265                        // Atributos
266                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
267                        $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
268                        $cadenaXML.='>';
269                        $cadenaXML.='</SOFTWAREINCREMENTAL>';
270                }
271                $rs->Siguiente();
272        }
273        if ($swcompo) {
274                $cadenaXML.='</COMPONENTES>';
275        }
276        $cadenaXML.='</SOFTWARESINCREMENTALES>';
277        $rs->Cerrar();
278        return($cadenaXML);
279}
280?>
Note: See TracBrowser for help on using the repository browser.