source: admin/WebConsole/varios/informacion_acciones.php @ 5d05b06

Last change on this file since 5d05b06 was 9f1274e, checked in by ramon <ramongomez@…>, 7 years ago

#804: Sustituir funciones para compatibilidad con PHP 7 (split por explode y ereg... por preg_...).

git-svn-id: https://opengnsys.es/svn/branches/version1.1@5619 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 8.3 KB
RevLine 
[4329e85]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_acciones.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("../includes/constantes.php");
16include_once("../includes/comunes.php");
17include_once("../includes/TomaDato.php");       
18include_once("../clases/ArbolVistaXML.php");
19include_once("../idiomas/php/".$idioma."/informacion_acciones_".$idioma.".php");
20//________________________________________________________________________________________________________
21
22$tipoaccion=0;
23$idtipoaccion=0;
24$descripcionaccion="";
25
26if (isset($_GET["tipoaccion"])) $tipoaccion=$_GET["tipoaccion"];
27if (isset($_GET["idtipoaccion"])) $idtipoaccion=$_GET["idtipoaccion"];
28if (isset($_GET["descripcionaccion"])) $descripcionaccion=$_GET["descripcionaccion"];
29//________________________________________________________________________________________________________
30
31$cmd=CreaComando($cadenaconexion);
32if (!$cmd)
33        Header('Location: '.$pagerror.'?herror=2'); // Error de conexióncon servidor B.D.
34
35       
36$tbParametros=CreaTablaParametros($cmd); // Crea tabla en memmoria para acceder a detalles de comandos
37$cadenaXML="";
38CreaArbol($cmd,$tipoaccion,$idtipoaccion,$descripcionaccion); // Crea el arbol XML
39//________________________________________________________________________________________________________
40
41// Creación del árbol
42$baseurlimg="../images/tsignos";
43$clasedefault="tabla_listados_sin";
44$titulotabla=$TbMsg[5]; 
45$arbol=new ArbolVistaXml($cadenaXML,0,$baseurlimg,$clasedefault,1,20,130,1,$titulotabla);
46//________________________________________________________________________________________________________
47?>
48<HTML>
49<HTML>
50<TITLE>Administración web de aulas</TITLE>
51<HEAD>
52        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
53        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
54        <SCRIPT language="javascript" src="../clases/jscripts/ArbolVistaXML.js"></SCRIPT>
55</HEAD>
56<BODY>
[4329e85]57        <?php
[3ec149c]58                switch($tipoaccion){
59                        case $AMBITO_PROCEDIMIENTOS:
60                                $urlimg="../images/iconos/procedimiento.gif";
61                                $litsub=$TbMsg[2];
62                                $litcab=$TbMsg[1];
63                                break;                                                 
64                        case $AMBITO_TAREAS:
65                                $urlimg="../images/iconos/tareas.gif";
66                                $litsub=$TbMsg[4];     
67                                $litcab=$TbMsg[3];                                     
68                                break;                                 
69                }
70        ?>
[4329e85]71        <P align=center class=cabeceras><?php echo $litcab?><BR>
72        <SPAN align=center class=subcabeceras><?php echo $litsub?></SPAN>&nbsp;<IMG src="../images/iconos/acciones.gif"><BR>
[043e67d]73        <IMG src="<?php echo $urlimg?>"><SPAN class=presentaciones>&nbsp;&nbsp;<?php echo $descripcionaccion?></SPAN></P>
[4329e85]74        <?php echo urldecode($arbol->CreaArbolVistaXml()); // Crea arbol de configuraciones?>
[3ec149c]75</BODY>
76</HTML>
[4329e85]77<?php
[3ec149c]78/********************************************************************************************************
79        Devuelve una cadena con formato XML de toda la Información de los procedimientos o tareas
80        softwares
81        Parametros:
82                - cmd: Un comando ya operativo ( con conexiónabierta) 
83                - idperfil: El identificador del perfil software
84________________________________________________________________________________________________________*/
85
86function CreaArbol($cmd,$tipoaccion,$idtipoaccion,$descripcionaccion)
87{
88        global $AMBITO_PROCEDIMIENTOS;
89        global $AMBITO_TAREAS;
90
91        switch($tipoaccion){
92                case $AMBITO_PROCEDIMIENTOS:
93                        SubarbolXML_procedimientos($cmd,$idtipoaccion);
94                        break;                                                 
95                case $AMBITO_TAREAS:
96                        SubarbolXML_Tareas($cmd,$idtipoaccion);
97                        break;                                 
98        }
99}
100//________________________________________________________________________________________________________
101function SubarbolXML_Tareas($cmd,$idtarea)
102{
103        global $cadenaXML;
104
105        $cmd->texto="SELECT tareas.descripcion as descritarea,procedimientos.descripcion as descriprocedimiento,
106                                tareas_acciones.orden,tareas_acciones.idprocedimiento,tareas_acciones.tareaid,
107                                tareas.ambito,tareas.idambito,tareas.restrambito
108                                FROM tareas
109                                INNER JOIN tareas_acciones ON tareas_acciones.idtarea=tareas.idtarea
110                                LEFT OUTER JOIN procedimientos ON procedimientos.idprocedimiento=tareas_acciones.idprocedimiento                                 
111                                WHERE tareas_acciones.idtarea=".$idtarea."
112                                ORDER BY tareas_acciones.orden";                                       
113        //echo $cmd->texto;                                                                     
114        $rs=new Recordset;
115        $rs->Comando=&$cmd;
116        if (!$rs->Abrir()) return; // Error al abrir recordset
117        $cadenaXML.='<TAREA';
118        // Atributos
119        $cadenaXML.=' imagenodo="../images/iconos/tareas.gif"';
120        $cadenaXML.=' infonodo="'.$rs->campos["descritarea"].'"';
121        $cadenaXML.='>';       
122        while (!$rs->EOF){
123                if($rs->campos["tareaid"]>0) // Tarea recursiva
124                        SubarbolXML_Tareas($cmd,$rs->campos["tareaid"]);
125                else{
126                        SubarbolXML_procedimientos($cmd,$rs->campos["idprocedimiento"]);
127                }
128                $rs->Siguiente();
129        }
130        $cadenaXML.='</TAREA>';
131}
132//________________________________________________________________________________________________________
133function SubarbolXML_procedimientos($cmd,$idprocedimiento)
134{
135        global $cadenaXML;
136
137        $cmd->texto="SELECT procedimientos.descripcion as descriprocedimiento,procedimientos_acciones.idcomando,
138                                comandos.descripcion as descricomando,comandos.visuparametros,procedimientos_acciones.procedimientoid,
139                                procedimientos_acciones.parametros
140                                FROM procedimientos
141                                INNER JOIN procedimientos_acciones ON procedimientos_acciones.idprocedimiento=procedimientos.idprocedimiento
142                                LEFT OUTER JOIN comandos ON comandos.idcomando=procedimientos_acciones.idcomando
143                                WHERE procedimientos.idprocedimiento=".$idprocedimiento."
144                                ORDER BY orden";       
145        //echo $cmd->texto;                                                                     
146        $rs=new Recordset;
147        $rs->Comando=&$cmd;
148        if (!$rs->Abrir()) return; // Error al abrir recordset
149        $cadenaXML.='<PROCEDIMIENTO';
150        // Atributos
151        $cadenaXML.=' imagenodo="../images/iconos/procedimiento.gif"';
152        $cadenaXML.=' infonodo="'.$rs->campos["descriprocedimiento"].'"';
153        $cadenaXML.='>';       
154        while (!$rs->EOF){
155                if($rs->campos["procedimientoid"]>0) // Procedimiento recursivo
156                        SubarbolXML_procedimientos($cmd,$rs->campos["procedimientoid"]);
157                else{
158                        SubarbolXML_comandos($rs->campos["descricomando"],$rs->campos["parametros"],$rs->campos["visuparametros"]);
159                }
160       
161                $rs->Siguiente();
162        }
163        $cadenaXML.='</PROCEDIMIENTO>';
164}
165//________________________________________________________________________________________________________
166function SubarbolXML_comandos($descricomando,$parametros,$visuparametros)
167{
168        global $cadenaXML;
169
170        $cadenaXML.='<COMANDO';
171        // Atributos
172        $cadenaXML.=' imagenodo="../images/iconos/comandos.gif"';
173        $cadenaXML.=' infonodo="'.$descricomando.'"';
174        $cadenaXML.='>';
175        escribeParametros($parametros,$visuparametros);
176        $cadenaXML.='</COMANDO>';       
177}
178        //________________________________________________________________________________________________________
179
180        function escribeParametros($parametros,$visuparametros)
181        {       
182                global $cmd;
183                global $cadenaXML;
184
185                $tbParametrosValor=array();
[c281499]186                ParametrosValor($cmd,$parametros,$tbParametrosValor); // Toma valores de cada parámetro
[9f1274e]187                $visuprm=explode(";",$visuparametros);
[3ec149c]188                for($i=0;$i<sizeof($visuprm);$i++){
189                        $nemo=$visuprm[$i];
[a4c7e74]190                        if(isset($tbParametrosValor[$nemo])){
[3ec149c]191                                for($j=0;$j<sizeof($tbParametrosValor[$nemo])-1;$j++){
192                                        $descripcion=$tbParametrosValor[$nemo]["descripcion"];
193                                        if(sizeof($tbParametrosValor[$nemo])>2)
194                                                $valor=$tbParametrosValor[$nemo][$j]["valor"];
195                                        else
196                                                $valor=$tbParametrosValor[$nemo]["valor"];
197                                        escribiendoParametros($descripcion,$valor);
198                                }       
199                        }       
200                }       
201        }
202        //________________________________________________________________________________________________________
203
204        function escribiendoParametros($descripcion,$valor)
205        {
206                global $cadenaXML;
207
208                $cadenaXML.='<PARAMETRO';
209                // Atributos
210                $cadenaXML.=' imagenodo="../images/iconos/propiedad.gif"';
211                $litprm=$descripcion.': <B>'.$valor.'</B>';
212                $cadenaXML.=' infonodo="'.urlencode($litprm).'"';
213                $cadenaXML.='>';
214                $cadenaXML.='</PARAMETRO>';             
215        }
216
[c281499]217?>
Note: See TracBrowser for help on using the repository browser.