source: admin/WebConsole/varios/informacion_perfilessoftware.php

lgromero-new-oglive
Last change on this file was 043e67d, checked in by pablombg <noreply@…>, 7 years ago

#814: Sustituir las etiquetas cortas de php por el formato largo

git-svn-id: https://opengnsys.es/svn/branches/version1.1@5502 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 8.5 KB
RevLine 
[043e67d]1<?php
[3ec149c]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 2009-2010
6// Fecha Última modificación: Agosto-2010
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
[426ca26]10// Version 1.1 - Muetra sistema operativo.
[3ec149c]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_perfilessoft_".$idioma.".php");
18//________________________________________________________________________________________________________
19$idperfil=0;
20$descripcionperfil="";
21if (isset($_GET["idperfil"])) $idperfil=$_GET["idperfil"]; // Recoge parametros
22if (isset($_GET["descripcionperfil"])) $descripcionperfil=$_GET["descripcionperfil"]; // Recoge parametros
23
24$cmd=CreaComando($cadenaconexion);
25if (!$cmd)
26        Header('Location: '.$pagerror.'?herror=2'); // Error de conexióncon servidor B.D.
27else
28        $arbolXML=CreaArbol($cmd,$idperfil); // 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>
[043e67d]46        <P align=center class=cabeceras><?php echo $TbMsg[0]?><BR>
47        <SPAN align=center class=subcabeceras><?php echo $TbMsg[1]?></SPAN>&nbsp;<IMG src="../images/iconos/confisoft.gif"><BR><BR>
48        <IMG src="../images/iconos/perfilsoftware.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?php echo $TbMsg[2]?></U>:    <?php echo $descripcionperfil?></SPAN></P>
49        <?php echo $arbol->CreaArbolVistaXml(); // Crea arbol de configuraciones?>
[3ec149c]50</BODY>
51</HTML>
[043e67d]52<?php
[3ec149c]53/**************************************************************************************************************************************************
54        Devuelve una cadena con formato XML de toda la Información de los perfiles software
55        softwares
56        Parametros:
57                - cmd:Una comando ya operativo ( con conexiónabierta) 
58                - idperfil: El identificador del perfil software
59________________________________________________________________________________________________________*/
60function CreaArbol($cmd,$idperfil){
61        $cadenaXML=SubarbolXML_PerfilesSoftwares($cmd,$idperfil);
62        return($cadenaXML);
63}
64//________________________________________________________________________________________________________
65function SubarbolXML_PerfilesSoftwares($cmd,$idperfilsoft)
66{
67        global $TbMsg;
68
69        $cadenaXML="";
70
71        $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion as pdescripcion, perfilessoft.comentarios,
[426ca26]72                                                                softwares.idsoftware,softwares.descripcion as hdescripcion,tiposoftwares.urlimg, nombreso FROM perfilessoft 
[3ec149c]73                                                                LEFT OUTER JOIN  perfilessoft_softwares  ON perfilessoft.idperfilsoft=perfilessoft_softwares.idperfilsoft
74                                                                LEFT OUTER JOIN  softwares  ON softwares.idsoftware=perfilessoft_softwares.idsoftware
75                                                                LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware
[426ca26]76                                                                LEFT OUTER JOIN nombresos USING (idnombreso)
[3ec149c]77                                                                WHERE perfilessoft.idperfilsoft=".$idperfilsoft."
78                                                                ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
79        $rs=new Recordset;                                                             
80        $rs->Comando=&$cmd;
81        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
82        $rs->Primero();
83        $cadenaXML.='<PERFILESSOFTWARES';
84        // Atributos
85        $cadenaXML.=' imagenodo="../images/iconos/perfilsoftware.gif"';
86        $cadenaXML.=' infonodo="'.$rs->campos["pdescripcion"].'"';
87        $cadenaXML.='>';
88        if($rs->campos["comentarios"]>" "){
89                $cadenaXML.='<PROPIEDAD';
90                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
91                $cadenaXML.=' infonodo="[b]'.$TbMsg[8].' :[/b] '.$rs->campos["comentarios"].'"';
92                $cadenaXML.='>';
93                $cadenaXML.='</PROPIEDAD>';
94        }
95        $swcompo=false;
96        while (!$rs->EOF){
97                if ($rs->campos["idsoftware"]){
98                        if (!$swcompo) {
99                                $cadenaXML.='<COMPONENTES';
100                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
101                                $cadenaXML.=' infonodo="'.$TbMsg[6].'"';
102                                $cadenaXML.='>';
103                                $swcompo=true;
[426ca26]104                                if ( $rs->campos["nombreso"] != "") {
105                                        $cadenaXML.='<PERFILSOFTWARE';
106                                        // Atributos
107                                        $cadenaXML.=' imagenodo="../images/iconos/so.gif"';
108                                        $cadenaXML.=' infonodo="'.$rs->campos["nombreso"].'"';
109                                        $cadenaXML.='>';
110                                $cadenaXML.='</PERFILSOFTWARE>';
111                                }
[3ec149c]112                        }       
113                        $cadenaXML.='<PERFILSOFTWARE';
114                        // Atributos
115                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
116                        $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"';
117                        $cadenaXML.='>';
118                        $cadenaXML.='</PERFILSOFTWARE>';
119                }
120                $rs->Siguiente();
121        }
122        if ($swcompo) {
123                $cadenaXML.='</COMPONENTES>';
124        }
125        $cadenaXML.=SubarbolXML_Ordenadores($cmd,$idperfilsoft);
126        $cadenaXML.=SubarbolXML_ImagenesDisponibles($cmd,$idperfilsoft);
127        $cadenaXML.='</PERFILESSOFTWARES>';
128        $rs->Cerrar();
129        return($cadenaXML);
130}
131//________________________________________________________________________________________________________
132function SubarbolXML_Ordenadores($cmd,$idperfilsoft)
133{
134        global $TbMsg;
135
136        $cadenaXML="";
137        $gidaula=0;
138        $cmd->texto="SELECT DISTINCT aulas.idaula,aulas.nombreaula,ordenadores.idordenador,
139                                                                ordenadores.nombreordenador,ordenadores_particiones.numpar
140                                                                FROM ordenadores
141                                                                INNER JOIN aulas ON  ordenadores.idaula=aulas.idaula
142                                                                INNER JOIN ordenadores_particiones ON  ordenadores_particiones.idordenador=ordenadores.idordenador                                                             
143                                                                WHERE ordenadores_particiones.idperfilsoft=".$idperfilsoft." ORDER BY aulas.idaula,ordenadores.nombreordenador";
144        $rs=new Recordset;
145        $rs->Comando=&$cmd;
146        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
147        $rs->Primero();
148        if ($rs->numeroderegistros>0){
149                $cadenaXML.='<ORDENADORES';
150                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
151                $cadenaXML.=' infonodo="'.$TbMsg[7].'"';
152                $cadenaXML.='>';
153        }
154        while (!$rs->EOF){
155                if ($gidaula!=$rs->campos["idaula"]){
156                        if (!empty($gidaula))
157                                $cadenaXML.='</AULA>';
158                        $cadenaXML.='<AULA ';
159                        // Atributos           
160
161                        $cadenaXML.=' imagenodo="../images/iconos/aula.gif"';
162                        $cadenaXML.=' infonodo="'.$rs->campos["nombreaula"].'"';
163                        $cadenaXML.='>';
164                        $gidaula=$rs->campos["idaula"];
165                }
166                $cadenaXML.='<ORDENADOR';
167                // Atributos                   
168                $cadenaXML.=' imagenodo="../images/iconos/ordenador.gif"';
169                $cadenaXML.=' infonodo="'.$rs->campos["nombreordenador"].'"' ;
170                $cadenaXML.='></ORDENADOR>';
171                $rs->Siguiente();
172        }
173        if (!empty($gidaula))
174                $cadenaXML.='</AULA>';
175        if ($rs->numeroderegistros>0)
176                        $cadenaXML.='</ORDENADORES>';
177        $rs->Cerrar();
178        return($cadenaXML);
179}
180//________________________________________________________________________________________________________
181function SubarbolXML_ImagenesDisponibles($cmd,$idperfilsoft)
182{
183        global $TbMsg;
184       
185        $cadenaXML="";
186        $gidimagen=0;
187
188        $cmd->texto="SELECT imagenes.* FROM imagenes
189                                                                INNER JOIN perfilessoft ON perfilessoft.idperfilsoft=imagenes.idperfilsoft
190                                                                WHERE perfilessoft.idperfilsoft=".$idperfilsoft."
191                                                                AND  imagenes.codpar>0
192                                                                ORDER by imagenes.descripcion";
193        $rs=new Recordset;
194        $rs->Comando=&$cmd;
195        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
196        if ($rs->numeroderegistros>0) {
197                $cadenaXML.='<DISPONIBLESIMAGENES';
198                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
199                $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
200                $cadenaXML.='>';
201        }
202        while (!$rs->EOF){
203                if ($gidimagen!=$rs->campos["idperfilsoft"]){
204                        if ($gidimagen){
205                                $cadenaXML.='</IMAGENES>';
206                        }
207                        $gidimagen=$rs->campos["idperfilsoft"];
208                        $cadenaXML.='<IMAGENES';
209                        // Atributos
210                        $cadenaXML.=' imagenodo="../images/iconos/imagenes.gif"';
211                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
212                        $cadenaXML.='>';
213                }
214                $rs->Siguiente();
215        }
216        if ($gidimagen){
217                $cadenaXML.='</IMAGENES>';
218                $cadenaXML.='</DISPONIBLESIMAGENES>';
219        }
220        $rs->Cerrar();
221        return($cadenaXML);
222}
223?>
Note: See TracBrowser for help on using the repository browser.