source: admin/WebConsole/varios/informacion_procedimientos.php

qndtest
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.2 KB
Line 
1<?php
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_procedimientos.php
8// Descripción :
9//              Muestra los comandos que forman parte de un procedimiento y sus valores
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_procedimientos_".$idioma.".php");
17//________________________________________________________________________________________________________
18$idprocedimiento=0; 
19$descripcionprocedimiento=""; 
20if (isset($_GET["idperfil"])) $idperfil=$_GET["idperfil"]; // Recoge parametros
21if (isset($_GET["descripcionprocedimiento"])) $descripcionprocedimiento=$_GET["descripcionprocedimiento"]; // 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><?php echo $TbMsg[0]?><BR>
46        <SPAN align=center class=subcabeceras><?php echo $TbMsg[1]?></SPAN>&nbsp;<IMG src="../images/iconos/confisoft.gif"><BR><BR>
47        <IMG src="../images/iconos/procedimiento.gif"><SPAN class=presentaciones>&nbsp;&nbsp;<U><?php echo $TbMsg[2]?></U>:     <?php echo $descripcionperfil?></SPAN></P>
48        <?php echo $arbol->CreaArbolVistaXml(); // Crea arbol de configuraciones?>
49</BODY>
50</HTML>
51<?php
52/**************************************************************************************************************************************************
53        Devuelve una cadena con formato XML de toda la Información de los perfiles software
54        softwares
55        Parametros:
56                - cmd:Una comando ya operativo ( con conexiónabierta) 
57                - idperfil: El identificador del perfil software
58________________________________________________________________________________________________________*/
59function CreaArbol($cmd,$idperfil){
60        $cadenaXML=SubarbolXML_procedimientoswares($cmd,$idperfil);
61        return($cadenaXML);
62}
63//________________________________________________________________________________________________________
64function SubarbolXML_procedimientoswares($cmd,$idperfilsoft)
65{
66        global $TbMsg;
67
68        $cadenaXML="";
69
70        $cmd->texto="SELECT procedimientos.idperfilsoft ,procedimientos.descripcion as pdescripcion, procedimientos.comentarios,
71                                                                softwares.idsoftware,softwares.descripcion as hdescripcion,tiposoftwares.urlimg FROM procedimientos 
72                                                                LEFT OUTER JOIN  procedimientos_softwares  ON procedimientos.idperfilsoft=procedimientos_softwares.idperfilsoft
73                                                                LEFT OUTER JOIN  softwares  ON softwares.idsoftware=procedimientos_softwares.idsoftware
74                                                                LEFT OUTER JOIN  tiposoftwares  ON softwares.idtiposoftware=tiposoftwares.idtiposoftware
75                                                                WHERE procedimientos.idperfilsoft=".$idperfilsoft."
76                                                                ORDER by tiposoftwares.idtiposoftware,softwares.descripcion";
77        $rs=new Recordset;                                                             
78        $rs->Comando=&$cmd; 
79        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
80        $rs->Primero(); 
81        $cadenaXML.='<procedimientosWARES';
82        // Atributos
83        $cadenaXML.=' imagenodo="../images/iconos/procedimiento.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.='<procedimiento';
104                        // Atributos
105                        $cadenaXML.=' imagenodo='.$rs->campos["urlimg"];
106                        $cadenaXML.=' infonodo="'.$rs->campos["hdescripcion"].'"';
107                        $cadenaXML.='>';
108                        $cadenaXML.='</procedimiento>';
109                }
110                $rs->Siguiente();
111        }
112        if ($swcompo) {
113                $cadenaXML.='</COMPONENTES>';
114        }
115        $cadenaXML.=SubarbolXML_Ordenadores($cmd,$idperfilsoft);
116        $cadenaXML.=SubarbolXML_ImagenesDisponibles($cmd,$idperfilsoft);
117        $cadenaXML.='</procedimientosWARES>';
118        $rs->Cerrar();
119        return($cadenaXML);
120}
121//________________________________________________________________________________________________________
122function SubarbolXML_Ordenadores($cmd,$idperfilsoft)
123{
124        global $TbMsg;
125
126        $cadenaXML="";
127        $gidaula=0;
128        $cmd->texto="SELECT DISTINCT aulas.idaula,aulas.nombreaula,ordenadores.idordenador,
129                                                                ordenadores.nombreordenador,ordenadores_particiones.numpar
130                                                                FROM ordenadores
131                                                                INNER JOIN aulas ON  ordenadores.idaula=aulas.idaula
132                                                                INNER JOIN ordenadores_particiones ON  ordenadores_particiones.idordenador=ordenadores.idordenador                                                             
133                                                                WHERE ordenadores_particiones.idperfilsoft=".$idperfilsoft." ORDER BY aulas.idaula,ordenadores.nombreordenador";
134        $rs=new Recordset; 
135        $rs->Comando=&$cmd; 
136        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
137        $rs->Primero(); 
138        if ($rs->numeroderegistros>0){
139                $cadenaXML.='<ORDENADORES';
140                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
141                $cadenaXML.=' infonodo="'.$TbMsg[7].'"';
142                $cadenaXML.='>';
143        }
144        while (!$rs->EOF){
145                if ($gidaula!=$rs->campos["idaula"]){
146                        if (!empty($gidaula))
147                                $cadenaXML.='</AULA>';
148                        $cadenaXML.='<AULA ';
149                        // Atributos           
150
151                        $cadenaXML.=' imagenodo="../images/iconos/aula.gif"';
152                        $cadenaXML.=' infonodo="'.$rs->campos["nombreaula"].'"';
153                        $cadenaXML.='>';
154                        $gidaula=$rs->campos["idaula"];
155                }
156                $cadenaXML.='<ORDENADOR';
157                // Atributos                   
158                $cadenaXML.=' imagenodo="../images/iconos/ordenador.gif"';
159                $cadenaXML.=' infonodo="'.$rs->campos["nombreordenador"].'"' ;
160                $cadenaXML.='></ORDENADOR>';
161                $rs->Siguiente();
162        }
163        if (!empty($gidaula))
164                $cadenaXML.='</AULA>';
165        if ($rs->numeroderegistros>0)
166                        $cadenaXML.='</ORDENADORES>';
167        $rs->Cerrar();
168        return($cadenaXML);
169}
170//________________________________________________________________________________________________________
171function SubarbolXML_ImagenesDisponibles($cmd,$idperfilsoft)
172{
173        global $TbMsg;
174       
175        $cadenaXML="";
176        $gidimagen=0;
177
178        $cmd->texto="SELECT imagenes.* FROM imagenes
179                                                                INNER JOIN procedimientos ON procedimientos.idperfilsoft=imagenes.idperfilsoft
180                                                                WHERE procedimientos.idperfilsoft=".$idperfilsoft."
181                                                                AND  imagenes.codpar>0
182                                                                ORDER by imagenes.descripcion";
183        $rs=new Recordset; 
184        $rs->Comando=&$cmd; 
185        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
186        if ($rs->numeroderegistros>0) {
187                $cadenaXML.='<DISPONIBLESIMAGENES';
188                $cadenaXML.=' imagenodo="../images/iconos/carpeta.gif"';
189                $cadenaXML.=' infonodo="'.$TbMsg[4].'"';
190                $cadenaXML.='>';
191        }
192        while (!$rs->EOF){
193                if ($gidimagen!=$rs->campos["idperfilsoft"]){
194                        if ($gidimagen){
195                                $cadenaXML.='</IMAGENES>';
196                        }
197                        $gidimagen=$rs->campos["idperfilsoft"];
198                        $cadenaXML.='<IMAGENES';
199                        // Atributos
200                        $cadenaXML.=' imagenodo="../images/iconos/imagenes.gif"';
201                        $cadenaXML.=' infonodo="'.$rs->campos["descripcion"].'"';
202                        $cadenaXML.='>';
203                }
204                $rs->Siguiente();
205        }
206        if ($gidimagen){
207                $cadenaXML.='</IMAGENES>';
208                $cadenaXML.='</DISPONIBLESIMAGENES>';
209        }
210        $rs->Cerrar();
211        return($cadenaXML);
212}
213?>
Note: See TracBrowser for help on using the repository browser.