source: admin/WebConsole/varios/informacion_perfilessoftware.php @ 3fef8e1

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 3fef8e1 was a6b881e, checked in by alonso <alonso@…>, 15 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: 12.1 KB
Line 
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        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
41        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
42        <SCRIPT language="javascript" src="../clases/jscripts/ArbolVistaXML.js"></SCRIPT>
43</HEAD>
44<BODY>
45        <P align=center class=cabeceras><?echo $TbMsg[0]?><BR>
46        <SPAN align=center class=subcabeceras><?echo $TbMsg[1]?></SPAN>&nbsp;<IMG src="../images/iconos/confisoft.gif"><BR><BR>
47        <IMG src="../images/iconos/perfilsoftware.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?echo $TbMsg[2]?></U>:        <? echo $descripcionperfil?></SPAN></P>
48        <?echo $arbol->CreaArbolVistaXml(); // Crea arbol de configuraciones?>
49<?
50//________________________________________________________________________________________________________
51include_once("../includes/iframecomun.php");
52//________________________________________________________________________________________________________
53?>
54</BODY>
55</HTML>
56<?
57/**************************************************************************************************************************************************
58        Devuelve una cadena con formato XML de toda la informaci� de los perfiles software
59        softwares
60        Parametros:
61                - cmd:Una comando ya operativo ( con conexiónabierta) 
62                - idperfil: El identificador del perfil software
63________________________________________________________________________________________________________*/
64function CreaArbol($cmd,$idperfil){
65        $cadenaXML=SubarbolXML_PerfilesSoftwares($cmd,$idperfil);
66        return($cadenaXML);
67}
68//________________________________________________________________________________________________________
69function SubarbolXML_PerfilesSoftwares($cmd,$idperfilsoft){
70        global $TbMsg;
71        $cadenaXML="";
72        $rs=new Recordset;
73        $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion as pdescripcion, perfilessoft.comentarios,softwares.idsoftware,softwares.descripcion as hdescripcion,tiposoftwares.urlimg FROM perfilessoft  ";
74        $cmd->texto.=" LEFT OUTER JOIN  perfilessoft_softwares  ON perfilessoft.idperfilsoft=perfilessoft_softwares.idperfilsoft";
75        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=perfilessoft_softwares.idsoftware";
76        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
77        $cmd->texto.=" WHERE perfilessoft.idperfilsoft=".$idperfilsoft;
78        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
79        $rs->Comando=&$cmd;
80        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
81        $rs->Primero();
82        $cadenaXML.='<PERFILESSOFTWARES';
83        // Atributos
84        $cadenaXML.=' imagenodo="../images/iconos/perfilsoftware.gif"';
85        $cadenaXML.=' infonodo="'.$rs->campos["pdescripcion"].'"';
86        $cadenaXML.='>';
87        if($rs->campos["comentarios"]>" "){
88                $cadenaXML.='<PROPIEDAD';
89                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
90                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
91                $cadenaXML.='>';
92                $cadenaXML.='</PROPIEDAD>';
93        }
94        $swcompo=false;
95        while (!$rs->EOF){
96                if ($rs->campos["idsoftware"]){
97                        if (!$swcompo) {
98                                $cadenaXML.='<COMPONENTES';
99                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
100                                $cadenaXML.=' infonodo="'.$TbMsg[6].'"';
101                                $cadenaXML.='>';
102                                $swcompo=true;
103                        }       
104                        $cadenaXML.='<PERFILSOFTWARE';
105                        // Atributos
106                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
107                        $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"';
108                        $cadenaXML.='>';
109                        $cadenaXML.='</PERFILSOFTWARE>';
110                }
111                $rs->Siguiente();
112        }
113        if ($swcompo) {
114                $cadenaXML.='</COMPONENTES>';
115        }
116        $cadenaXML.=SubarbolXML_PerfilesHardwaresSoportados($cmd,$idperfilsoft);
117        $cadenaXML.='</PERFILESSOFTWARES>';
118        $rs->Cerrar();
119        return($cadenaXML);
120}
121//________________________________________________________________________________________________________
122function SubarbolXML_PerfilesHardwaresSoportados($cmd,$idperfilsoft){
123        global $TbMsg;
124        $cadenaXML="";
125        $gidperfilhard=null;
126        $rs=new Recordset;
127        $cmd->texto="SELECT perfileshard.idperfilhard ,perfileshard.descripcion,perfileshard.comentarios FROM perfileshard  ";
128        $cmd->texto.=" LEFT OUTER JOIN perfileshard_perfilessoft  ON perfileshard_perfilessoft.idperfilhard=perfileshard.idperfilhard" ;
129        $cmd->texto.=" WHERE perfileshard_perfilessoft.idperfilsoft=".$idperfilsoft;
130        $cmd->texto.=" ORDER by perfileshard.descripcion";
131        $rs->Comando=&$cmd;
132        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
133        $rs->Primero();
134        if ($rs->numeroderegistros>0) {
135                $cadenaXML.='<DISPONIBLESPERFILES';
136                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
137                $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
138                $cadenaXML.='>';
139        }
140        while (!$rs->EOF){
141                if ($gidperfilhard!=$rs->campos["idperfilhard"]){
142                        if ($gidperfilhard){
143                                $cadenaXML.='</PERFILESHARDWARES>';
144                        }
145                        $gidperfilhard=$rs->campos["idperfilhard"];
146                        $cadenaXML.='<PERFILESHARDWARES';
147                        // Atributos
148                        $cadenaXML.=' imagenodo="../images/iconos/perfilhardware.gif"';
149                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
150                        $cadenaXML.='>';
151                        if($rs->campos["comentarios"]>" "){
152                                $cadenaXML.='<PROPIEDAD';
153                                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
154                                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
155                                $cadenaXML.='>';
156                                $cadenaXML.='</PROPIEDAD>';
157                        }
158                        $cadenaXML.=SubarbolXML_ComponentesHardware($cmd,$rs->campos["idperfilhard"]);
159                        $cadenaXML.=SubarbolXML_IncrementalesDisponibles($cmd,$idperfilsoft,$rs->campos["idperfilhard"]);
160                }
161                $rs->Siguiente();
162        }
163        if ($gidperfilhard){
164                $cadenaXML.='</PERFILESHARDWARES>';
165                $cadenaXML.='</DISPONIBLESPERFILES>';
166        }
167        $rs->Cerrar();
168        return($cadenaXML);
169}
170//________________________________________________________________________________________________________
171function SubarbolXML_ComponentesHardware($cmd,$idperfilhard){
172        global $TbMsg;
173        $cadenaXML="";
174        $rs=new Recordset;
175        $cmd->texto="SELECT hardwares.descripcion,tipohardwares.urlimg FROM perfileshard_hardwares  ";
176        $cmd->texto.="INNER JOIN hardwares  ON hardwares.idhardware=perfileshard_hardwares.idhardware";
177        $cmd->texto.=" INNER JOIN tipohardwares  ON hardwares.idtipohardware=tipohardwares.idtipohardware" ;
178        $cmd->texto.=" WHERE perfileshard_hardwares.idperfilhard=".$idperfilhard;
179        $cmd->texto.=" ORDER by tipohardwares.idtipohardware,hardwares.descripcion";
180        $rs->Comando=&$cmd;
181
182        $rs->Comando=&$cmd;
183        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
184        $rs->Primero();
185        $cadenaXML.='<COMPONENTES';
186        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
187        $cadenaXML.=' infonodo="'.$TbMsg[5].'"';
188        $cadenaXML.='>';
189        while (!$rs->EOF){
190                        $cadenaXML.='<COMPONENTEHARD';
191                        // Atributos
192                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
193                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
194                        $cadenaXML.='>';
195                        $cadenaXML.='</COMPONENTEHARD>';
196                        $rs->Siguiente();
197        }       
198        $cadenaXML.='</COMPONENTES>';
199        $rs->Cerrar();
200        return($cadenaXML);
201}
202//________________________________________________________________________________________________________
203function SubarbolXML_IncrementalesDisponibles($cmd,$idperfilsoft,$idperfilhard){
204        global $TbMsg;
205        $cadenaXML="";
206        $rs=new Recordset;
207        $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.")";
208        $rs->Comando=&$cmd;
209        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
210        if($rs->EOF) return($cadenaXML);
211        $cadenaXML.='<CARPETAINCREMENTALES';
212        // Atributos
213        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
214        $cadenaXML.=' infonodo="'.$TbMsg[7].'"';
215        $cadenaXML.='>';
216        while (!$rs->EOF){
217                $cadenaXML.=SubarbolXML_SoftwaresIncrementales($cmd,$rs->campos["idsoftincremental"]);
218                $rs->Siguiente();
219        }
220        $cadenaXML.='</CARPETAINCREMENTALES>';
221        $rs->Cerrar();
222        return($cadenaXML);
223}
224//________________________________________________________________________________________________________
225function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){
226        global $TbMsg;
227        $cadenaXML="";
228        $rs=new Recordset;
229        $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion,softincrementales.comentarios, softwares.idsoftware,softwares.descripcion as sdescripcion,tiposoftwares.urlimg FROM softincrementales  ";
230        $cmd->texto.=" LEFT OUTER JOIN  softincremental_softwares  ON softincrementales.idsoftincremental=softincremental_softwares.idsoftincremental";
231        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=softincremental_softwares.idsoftware";
232        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
233        $cmd->texto.=" WHERE softincrementales.idsoftincremental=".$idsoftincremental;
234        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
235        $rs->Comando=&$cmd;
236        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
237        $rs->Primero();
238        $cadenaXML.='<SOFTWARESINCREMENTALES';
239        // Atributos
240        $cadenaXML.=' imagenodo="../images/iconos/incremental.gif"';
241        $cadenaXML.=' infonodo="'.$rs->campos["idescripcion"].'"';
242        $cadenaXML.='>';
243        if($rs->campos["comentarios"]>" "){
244                $cadenaXML.='<PROPIEDAD';
245                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
246                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
247                $cadenaXML.='>';
248                $cadenaXML.='</PROPIEDAD>';
249        }
250        $swcompo=false;
251        while (!$rs->EOF){
252                if ($rs->campos["idsoftware"]){
253                        if (!$swcompo) {
254                                $cadenaXML.='<COMPONENTES';
255                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
256                                $cadenaXML.=' infonodo="'.$TbMsg[6].'"';
257                                $cadenaXML.='>';
258                                $swcompo=true;
259                        }       
260                        $cadenaXML.='<SOFTWAREINCREMENTAL';
261                        // Atributos
262                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
263                        $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
264                        $cadenaXML.='>';
265                        $cadenaXML.='</SOFTWAREINCREMENTAL>';
266                }
267                $rs->Siguiente();
268        }
269        if ($swcompo) {
270                $cadenaXML.='</COMPONENTES>';
271        }
272        $cadenaXML.='</SOFTWARESINCREMENTALES>';
273        $rs->Cerrar();
274        return($cadenaXML);
275}
276?>
Note: See TracBrowser for help on using the repository browser.