source: admin/WebConsole/varios/informacion_imagenes.php @ da8db11

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 da8db11 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.9 KB
RevLine 
[6e9cc32]1<?
[b0dc2e4]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: Febrero-2005
7// Nombre del fichero: informacion_imagenes.php
8// Descripción :
9//              Muestra los perfiles que forman parte de una imagen  y los ordenadores que tienen instalada dicha imagen
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_imagenes_".$idioma.".php");
17//________________________________________________________________________________________________________
18$idimagen=0;
19$descripcionimagen="";
20if (isset($_GET["idimagen"])) $idimagen=$_GET["idimagen"]; // Recoge parametros
21if (isset($_GET["descripcionimagen"])) $descripcionimagen=$_GET["descripcionimagen"]; // 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,$idimagen); // Crea el arbol XML
28
29// Creación del árbol
30$baseurlimg="../images/tsignos"; // Url de las im�enes de signo
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>
[a6b881e]39        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
[b0dc2e4]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/imagenes.gif"><BR><BR>
46        <IMG src="../images/iconos/imagen.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?echo $TbMsg[2]?></U>:        <? echo $descripcionimagen?></SPAN></P>
47        <?echo $arbol->CreaArbolVistaXml(); // Crea arbol de configuraciones
48//________________________________________________________________________________________________________
49        include_once("../includes/iframecomun.php");
50//________________________________________________________________________________________________________
51?>
52</BODY>
53</HTML>
54<?
55/**************************************************************************************************************************************************
56        Devuelve una cadena con formato XML de toda la informaci� de las imagenes
57        Parametros:
58                - cmd:Una comando ya operativo ( con conexiónabierta) 
59                - idimagen: El identificador del perfil hardware
60________________________________________________________________________________________________________*/
61function CreaArbol($cmd,$idimagen){
62        $cadenaXML=SubarbolXML_Imagenes($cmd,$idimagen);
63        return($cadenaXML);
64}
65//________________________________________________________________________________________________________
66function SubarbolXML_Imagenes($cmd,$idimagen){
67        global $TbMsg;
68        $cadenaXML="";
69        $rs=new Recordset;
70        $cmd->texto="SELECT idimagen,descripcion,comentarios, idperfilsoft  FROM imagenes WHERE idimagen=".$idimagen;
71        $rs->Comando=&$cmd;
72        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
73        $rs->Primero();
74        while (!$rs->EOF){
75                $cadenaXML.='<IMAGEN';
76                // Atributos
77                $cadenaXML.=' imagenodo="../images/iconos/imagen.gif"';
78                $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
79                $cadenaXML.='>';
80                if($rs->campos["comentarios"]>" "){
81                        $cadenaXML.='<PROPIEDAD';
82                        $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
83                        $cadenaXML.=' infonodo="[b]'.$TbMsg[9].' :[/b] '.$rs->campos["comentarios"].'"';
84                        $cadenaXML.='>';
85                        $cadenaXML.='</PROPIEDAD>';
86                }
87                $cadenaXML.=SubarbolXML_PerfilImagen($cmd,$rs->campos["idperfilsoft"]);
88                $cadenaXML.=SubarbolXML_IncrementalImagen($cmd,$rs->campos["idimagen"]);
89                $cadenaXML.=SubarbolXML_Ordenadores($cmd,$rs->campos["idimagen"],$rs->campos["idperfilsoft"]);
90                $cadenaXML.='</IMAGEN>';
91                $rs->Siguiente();
92        }
93        $rs->Cerrar();
94        return($cadenaXML);
95}
96//-------------------------------------------------------------------------------------------------------------------------------------------------
97function SubarbolXML_PerfilImagen($cmd,$idperfilsoft){
98        global $TbMsg;
99        $cadenaXML="";
100        $gidperfilsoft=null;
101        $rs=new Recordset;
102        $cmd->texto="SELECT perfilessoft.idperfilsoft ,perfilessoft.descripcion as pdescripcion ,perfilessoft.comentarios, softwares.idsoftware,softwares.descripcion as hdescripcion,tiposoftwares.urlimg FROM perfilessoft  ";
103        $cmd->texto.=" LEFT OUTER JOIN  perfilessoft_softwares  ON perfilessoft.idperfilsoft=perfilessoft_softwares.idperfilsoft";
104        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=perfilessoft_softwares.idsoftware";
105        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
106        $cmd->texto.=" WHERE perfilessoft.idperfilsoft=".$idperfilsoft;
107        $cmd->texto.=" ORDER by perfilessoft.descripcion,tiposoftwares.idtiposoftware,softwares.descripcion";
108        $rs->Comando=&$cmd;
109        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
110        $rs->Primero();
111        if ($rs->EOF) return($cadenaXML);
112
113        $cadenaXML.='<CARPETAPERFILES';
114        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
115        $cadenaXML.=' infonodo="'.$TbMsg[6].'"';
116        $cadenaXML.='>';
117
118        while (!$rs->EOF){
119                if ($gidperfilsoft!=$rs->campos["idperfilsoft"]){
120                        if ($gidperfilsoft){
121                                $cadenaXML.='</COMPONENTES>';
122                                $cadenaXML.='</PERFILESSOFTWARES>';
123                        }
124                        $gidperfilsoft=$rs->campos["idperfilsoft"];
125                        $cadenaXML.='<PERFILESSOFTWARES';
126                        // Atributos
127                        $cadenaXML.=' imagenodo="../images/iconos/perfilsoftware.gif"';
128                        $cadenaXML.=' infonodo="'.$rs->campos["pdescripcion"].'"';
129                        $cadenaXML.='>';
130
131                        if($rs->campos["comentarios"]>" "){
132                                $cadenaXML.='<PROPIEDAD';
133                                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
134                                $cadenaXML.=' infonodo="[b]'.$TbMsg[9].' :[/b] '.$rs->campos["comentarios"].'"';
135                                $cadenaXML.='>';
136                                $cadenaXML.='</PROPIEDAD>';
137                        }
138
139                        $cadenaXML.='<COMPONENTES';
140                        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
141                        $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
142                        $cadenaXML.='>';
143                }
144                if ($rs->campos["idsoftware"]){
145                        $cadenaXML.='<COMPONENTE';
146                        // Atributos
147                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
148                        $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"';
149                        $cadenaXML.='>';
150                        $cadenaXML.='</COMPONENTE>';
151                }
152                $rs->Siguiente();
153        }
154        $cadenaXML.='</COMPONENTES>';
155        $cadenaXML.='</PERFILESSOFTWARES>';
156        $cadenaXML.='</CARPETAPERFILES>';
157        $rs->Cerrar();
158        return($cadenaXML);
159}
160//________________________________________________________________________________________________________
161function SubarbolXML_IncrementalImagen($cmd,$idimagen){
162        global $TbMsg;
163        $cadenaXML="";
164        $rs=new Recordset;
165        $cmd->texto="SELECT   imagenes_softincremental.idsoftincremental FROM imagenes INNER JOIN imagenes_softincremental ON imagenes.idimagen =imagenes_softincremental.idimagen WHERE  (imagenes.idimagen = ".$idimagen.")";
166        $rs->Comando=&$cmd;
167        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
168        if($rs->EOF) return($cadenaXML);
169
170        $cadenaXML.='<CARPETAINCREMENTALES';
171        // Atributos
172        $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
173        $cadenaXML.=' infonodo="'.$TbMsg[5].'"';
174        $cadenaXML.='>';
175        while (!$rs->EOF){
176                $cadenaXML.=SubarbolXML_SoftwaresIncrementales($cmd,$rs->campos["idsoftincremental"]);
177                $rs->Siguiente();
178        }
179        $cadenaXML.='</CARPETAINCREMENTALES>';
180        $rs->Cerrar();
181        return($cadenaXML);
182}
183//________________________________________________________________________________________________________
184function SubarbolXML_SoftwaresIncrementales($cmd,$idsoftincremental){
185        global $TbMsg;
186        $cadenaXML="";
187        $rs=new Recordset;
188        $cmd->texto="SELECT softincrementales.idsoftincremental ,softincrementales.descripcion as idescripcion,softincrementales.comentarios , softwares.idsoftware,softwares.descripcion as sdescripcion,tiposoftwares.urlimg FROM softincrementales  ";
189        $cmd->texto.=" LEFT OUTER JOIN  softincremental_softwares  ON softincrementales.idsoftincremental=softincremental_softwares.idsoftincremental";
190        $cmd->texto.=" LEFT OUTER JOIN  softwares  ON softwares.idsoftware=softincremental_softwares.idsoftware";
191        $cmd->texto.=" LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware" ;
192        $cmd->texto.=" WHERE softincrementales.idsoftincremental=".$idsoftincremental;
193        $cmd->texto.=" ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
194        $rs->Comando=&$cmd;
195        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
196        $rs->Primero();
197        $cadenaXML.='<SOFTWARESINCREMENTALES';
198        // Atributos
199        $cadenaXML.=' imagenodo="../images/iconos/incremental.gif"';
200        $cadenaXML.=' infonodo="'.$rs->campos["idescripcion"].'"';
201        $cadenaXML.='>';
202
203        if($rs->campos["comentarios"]>" "){
204                $cadenaXML.='<PROPIEDAD';
205                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
206                $cadenaXML.=' infonodo="[b]'.$TbMsg[9].' :[/b] '.$rs->campos["comentarios"].'"';
207                $cadenaXML.='>';
208                $cadenaXML.='</PROPIEDAD>';
209        }
210
211        $swcompo=false;
212        while (!$rs->EOF){
213                if ($rs->campos["idsoftware"]){
214                        if (!$swcompo) {
215                                $cadenaXML.='<COMPONENTES';
216                                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
217                                $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
218                                $cadenaXML.='>';
219                                $swcompo=true;
220                        }       
221                        $cadenaXML.='<SOFTWAREINCREMENTAL';
222                        // Atributos
223                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
224                        $cadenaXML.=' infonodo="'.$rs->campos["sdescripcion"].'"';
225                        $cadenaXML.='>';
226                        $cadenaXML.='</SOFTWAREINCREMENTAL>';
227                }
228                $rs->Siguiente();
229        }
230        if ($swcompo) {
231                $cadenaXML.='</COMPONENTES>';
232        }
233        $cadenaXML.='</SOFTWARESINCREMENTALES>';
234        $rs->Cerrar();
235        return($cadenaXML);
236}
237//-------------------------------------------------------------------------------------------------------------------------------------------------
238function SubarbolXML_Ordenadores($cmd,$idimagen,$idperfilsoft){
239        global $TbMsg;
240        $cadenaXML="";
241        $gidaula=null;
242        $rs=new Recordset;
243        $cmd->texto="SELECT aulas.idaula,aulas.nombreaula,ordenadores. idordenador,ordenadores.nombreordenador,ordenador_imagen.particion,ordenadores. idperfilhard FROM ordenadores";
244        $cmd->texto.=" INNER JOIN aulas ON  ordenadores.idaula=aulas.idaula";
245        $cmd->texto.=" INNER JOIN ordenador_imagen ON  ordenador_imagen.idordenador=ordenadores.idordenador";
246        $cmd->texto.=" WHERE ordenador_imagen.idimagen=".$idimagen." order by aulas.idaula";
247        $rs->Comando=&$cmd;
248        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
249        $rs->Primero();
250        if ($rs->numeroderegistros>0){
251                $cadenaXML.='<ORDENADORES';
252                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
253                $cadenaXML.=' infonodo="'.$TbMsg[7].'"';
254                $cadenaXML.='>';
255        }
256        while (!$rs->EOF){
257
258                if ($gidaula!=$rs->campos["idaula"]){
259                        if ($gidaula)
260                                $cadenaXML.='</AULA>';
261                        $cadenaXML.='<AULA ';
262                        // Atributos           
263
264                        $cadenaXML.=' imagenodo="../images/iconos/aula.gif"';
265                        $cadenaXML.=' infonodo="'.$rs->campos["nombreaula"].'"';
266                        $cadenaXML.='>';
267                        $gidaula=$rs->campos["idaula"];
268                }
269                $cadenaXML.='<ORDENADOR';
270                // Atributos                   
271                $cadenaXML.=' imagenodo="../images/iconos/ordenador.gif"';
272                $cadenaXML.=' infonodo="'.$rs->campos["nombreordenador"].' &nbsp;&nbsp;-&nbsp;&nbsp ('.$TbMsg[8].':'.$rs->campos["particion"]. ', PS'.$idperfilsoft.'_PH'.$rs->campos["idperfilhard"].'.psf)"' ;
273                $cadenaXML.='></ORDENADOR>';
274                $rs->Siguiente();
275        }
276        if ($gidaula)
277                $cadenaXML.='</AULA>';
278        if ($rs->numeroderegistros>0)
279                        $cadenaXML.='</ORDENADORES>';
280        $rs->Cerrar();
281        return($cadenaXML);
282}
283?>
Note: See TracBrowser for help on using the repository browser.