source: admin/WebConsole/varios/informacion_perfilessoftware.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.0 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_perfilessoft.php
8// Descripción :
9//              Muestra los componentes software que forman parte de un perfil software 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_perfilessoft_".$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<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/perfilsoftware.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?echo $TbMsg[2]?></U>:        <? echo $descripcionperfil?></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� de los perfiles software
58        softwares
59        Parametros:
60                - cmd:Una comando ya operativo ( con conexiónabierta) 
61                - idperfil: El identificador del perfil software
62________________________________________________________________________________________________________*/
63function CreaArbol($cmd,$idperfil){
64        $cadenaXML=SubarbolXML_PerfilesSoftwares($cmd,$idperfil);
65        return($cadenaXML);
66}
67//________________________________________________________________________________________________________
68function SubarbolXML_PerfilesSoftwares($cmd,$idperfilsoft){
69        global $TbMsg;
70        $cadenaXML="";
71        $rs=new Recordset;
72        $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion as pdescripcion, perfilessoft.comentarios,softwares.idsoftware,softwares.descripcion as hdescripcion,tiposoftwares.urlimg FROM perfilessoft  ";
73        $cmd->texto.=" LEFT OUTER JOIN  perfilessoft_softwares  ON perfilessoft.idperfilsoft=perfilessoft_softwares.idperfilsoft";
74        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=perfilessoft_softwares.idsoftware";
75        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
76        $cmd->texto.=" WHERE perfilessoft.idperfilsoft=".$idperfilsoft;
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.='<PERFILESSOFTWARES';
82        // Atributos
83        $cadenaXML.=' imagenodo="../images/iconos/perfilsoftware.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["idsoftware"]){
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                        $cadenaXML.='<PERFILSOFTWARE';
104                        // Atributos
105                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
106                        $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"';
107                        $cadenaXML.='>';
108                        $cadenaXML.='</PERFILSOFTWARE>';
109                }
110                $rs->Siguiente();
111        }
112        if ($swcompo) {
113                $cadenaXML.='</COMPONENTES>';
114        }
115        $cadenaXML.=SubarbolXML_PerfilesHardwaresSoportados($cmd,$idperfilsoft);
116        $cadenaXML.='</PERFILESSOFTWARES>';
117        $rs->Cerrar();
118        return($cadenaXML);
119}
120//________________________________________________________________________________________________________
121function SubarbolXML_PerfilesHardwaresSoportados($cmd,$idperfilsoft){
122        global $TbMsg;
123        $cadenaXML="";
124        $gidperfilhard=null;
125        $rs=new Recordset;
126        $cmd->texto="SELECT perfileshard.idperfilhard ,perfileshard.descripcion,perfileshard.comentarios FROM perfileshard  ";
127        $cmd->texto.=" LEFT OUTER JOIN perfileshard_perfilessoft  ON perfileshard_perfilessoft.idperfilhard=perfileshard.idperfilhard" ;
128        $cmd->texto.=" WHERE perfileshard_perfilessoft.idperfilsoft=".$idperfilsoft;
129        $cmd->texto.=" ORDER by perfileshard.descripcion";
130        $rs->Comando=&$cmd;
131        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
132        $rs->Primero();
133        if ($rs->numeroderegistros>0) {
134                $cadenaXML.='<DISPONIBLESPERFILES';
135                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
136                $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
137                $cadenaXML.='>';
138        }
139        while (!$rs->EOF){
140                if ($gidperfilhard!=$rs->campos["idperfilhard"]){
141                        if ($gidperfilhard){
142                                $cadenaXML.='</PERFILESHARDWARES>';
143                        }
144                        $gidperfilhard=$rs->campos["idperfilhard"];
145                        $cadenaXML.='<PERFILESHARDWARES';
146                        // Atributos
147                        $cadenaXML.=' imagenodo="../images/iconos/perfilhardware.gif"';
148                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
149                        $cadenaXML.='>';
150                        if($rs->campos["comentarios"]>" "){
151                                $cadenaXML.='<PROPIEDAD';
152                                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
153                                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
154                                $cadenaXML.='>';
155                                $cadenaXML.='</PROPIEDAD>';
156                        }
157                        $cadenaXML.=SubarbolXML_ComponentesHardware($cmd,$rs->campos["idperfilhard"]);
158                        $cadenaXML.=SubarbolXML_IncrementalesDisponibles($cmd,$idperfilsoft,$rs->campos["idperfilhard"]);
159                }
160                $rs->Siguiente();
161        }
162        if ($gidperfilhard){
163                $cadenaXML.='</PERFILESHARDWARES>';
164                $cadenaXML.='</DISPONIBLESPERFILES>';
165        }
166        $rs->Cerrar();
167        return($cadenaXML);
168}
169//________________________________________________________________________________________________________
170function SubarbolXML_ComponentesHardware($cmd,$idperfilhard){
171        global $TbMsg;
172        $cadenaXML="";
173        $rs=new Recordset;
174        $cmd->texto="SELECT hardwares.descripcion,tipohardwares.urlimg FROM perfileshard_hardwares  ";
175        $cmd->texto.="INNER JOIN hardwares  ON hardwares.idhardware=perfileshard_hardwares.idhardware";
176        $cmd->texto.=" INNER JOIN tipohardwares  ON hardwares.idtipohardware=tipohardwares.idtipohardware" ;
177        $cmd->texto.=" WHERE perfileshard_hardwares.idperfilhard=".$idperfilhard;
178        $cmd->texto.=" ORDER by tipohardwares.idtipohardware,hardwares.descripcion";
179        $rs->Comando=&$cmd;
180
181        $rs->Comando=&$cmd;
182        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
183        $rs->Primero();
184        $cadenaXML.='<COMPONENTES';
185        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
186        $cadenaXML.=' infonodo="'.$TbMsg[5].'"';
187        $cadenaXML.='>';
188        while (!$rs->EOF){
189                        $cadenaXML.='<COMPONENTEHARD';
190                        // Atributos
191                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
192                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
193                        $cadenaXML.='>';
194                        $cadenaXML.='</COMPONENTEHARD>';
195                        $rs->Siguiente();
196        }       
197        $cadenaXML.='</COMPONENTES>';
198        $rs->Cerrar();
199        return($cadenaXML);
200}
201//________________________________________________________________________________________________________
202function SubarbolXML_IncrementalesDisponibles($cmd,$idperfilsoft,$idperfilhard){
203        global $TbMsg;
204        $cadenaXML="";
205        $rs=new Recordset;
206        $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.")";
207        $rs->Comando=&$cmd;
208        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
209        if($rs->EOF) return($cadenaXML);
210        $cadenaXML.='<CARPETAINCREMENTALES';
211        // Atributos
212        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
213        $cadenaXML.=' infonodo="'.$TbMsg[7].'"';
214        $cadenaXML.='>';
215        while (!$rs->EOF){
216                $cadenaXML.=SubarbolXML_SoftwaresIncrementales($cmd,$rs->campos["idsoftincremental"]);
217                $rs->Siguiente();
218        }
219        $cadenaXML.='</CARPETAINCREMENTALES>';
220        $rs->Cerrar();
221        return($cadenaXML);
222}
223//________________________________________________________________________________________________________
224function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){
225        global $TbMsg;
226        $cadenaXML="";
227        $rs=new Recordset;
228        $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion,softincrementales.comentarios, softwares.idsoftware,softwares.descripcion as sdescripcion,tiposoftwares.urlimg FROM softincrementales  ";
229        $cmd->texto.=" LEFT OUTER JOIN  softincremental_softwares  ON softincrementales.idsoftincremental=softincremental_softwares.idsoftincremental";
230        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=softincremental_softwares.idsoftware";
231        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
232        $cmd->texto.=" WHERE softincrementales.idsoftincremental=".$idsoftincremental;
233        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
234        $rs->Comando=&$cmd;
235        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
236        $rs->Primero();
237        $cadenaXML.='<SOFTWARESINCREMENTALES';
238        // Atributos
239        $cadenaXML.=' imagenodo="../images/iconos/incremental.gif"';
240        $cadenaXML.=' infonodo="'.$rs->campos["idescripcion"].'"';
241        $cadenaXML.='>';
242        if($rs->campos["comentarios"]>" "){
243                $cadenaXML.='<PROPIEDAD';
244                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
245                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
246                $cadenaXML.='>';
247                $cadenaXML.='</PROPIEDAD>';
248        }
249        $swcompo=false;
250        while (!$rs->EOF){
251                if ($rs->campos["idsoftware"]){
252                        if (!$swcompo) {
253                                $cadenaXML.='<COMPONENTES';
254                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
255                                $cadenaXML.=' infonodo="'.$TbMsg[6].'"';
256                                $cadenaXML.='>';
257                                $swcompo=true;
258                        }       
259                        $cadenaXML.='<SOFTWAREINCREMENTAL';
260                        // Atributos
261                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
262                        $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
263                        $cadenaXML.='>';
264                        $cadenaXML.='</SOFTWAREINCREMENTAL>';
265                }
266                $rs->Siguiente();
267        }
268        if ($swcompo) {
269                $cadenaXML.='</COMPONENTES>';
270        }
271        $cadenaXML.='</SOFTWARESINCREMENTALES>';
272        $rs->Cerrar();
273        return($cadenaXML);
274}
275?>
Note: See TracBrowser for help on using the repository browser.