source: admin/WebConsole/varios/informacion_procedimientos.php @ b6906f7

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 b6906f7 was b0dc2e4, checked in by alonso <alonso@…>, 16 years ago

git-svn-id: https://opengnsys.es/svn/trunk@489 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 5.0 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: Febrero-2005
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/constantes.php");
14include_once("../includes/comunes.php");
15include_once("../includes/CreaComando.php");
16include_once("../includes/TomaDato.php");
17include_once("../idiomas/php/".$idioma."/informacion_procedimientos_".$idioma.".php");
18//________________________________________________________________________________________________________
19$idprocedimiento="";
20$descripcioncomando="";
21
22if (isset($_GET["idprocedimiento"]))    $idprocedimiento=$_GET["idprocedimiento"];
23if (isset($_GET["descripcionprocedimiento"]))   $descripcionprocedimiento=$_GET["descripcionprocedimiento"];
24//________________________________________________________________________________________________________
25?>
26<HTML>
27<TITLE>Administración web de aulas</TITLE>
28<HEAD>
29        <META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=ISO-8859-1">
30        <LINK rel="stylesheet" type="text/css" href="../estilos.css">
31</HEAD>
32<BODY>
33        <?
34        $cmd=CreaComando($cadenaconexion);
35        if ($cmd){
36                $rs=new Recordset;
37                $cmd->texto="SELECT idprocedimientocomando FROM procedimientos_comandos  WHERE idprocedimiento=".$idprocedimiento. " ORDER BY idprocedimientocomando,orden";
38                $rs->Comando=&$cmd;
39                if ($rs->Abrir()){
40                        echo '<br><p align=center><IMG src="../images/iconos/procedimiento.gif">&nbsp;&nbsp;<U><span class=cabeceras>'.$TbMsg[0].'</span></U><br><span class=subcabeceras>'.$descripcionprocedimiento.'</span></p>';
41                        while (!$rs->EOF){
42                                $tabla_parametros=""; // Tabla  para localizar parametros
43                                $cont_parametros=0; // Contador de la tabla
44                                CreaTablaParametros($cmd,&$tabla_parametros,&$cont_parametros); // Crea tabla  especificaciones de parametros
45                                pintacomandos($cmd,$rs->campos["idprocedimientocomando"]);
46                                $rs->Siguiente();
47                        }
48                }
49        }
50        ?>
51</BODY>
52</HTML>
53<?
54// *************************************************************************************************************************************************
55function pintacomandos($cmd,$idprocedimientocomando){
56        global $TbMsg;
57        global $AMBITO_CENTROS;
58        global $AMBITO_GRUPOSAULAS;
59        global $AMBITO_AULAS;
60        global $AMBITO_GRUPOSORDENADORES;
61        global $AMBITO_ORDENADORES;
62        global  $tabla_parametros;
63        global  $cont_parametros;
64
65        $rs=new Recordset;
66        $cmd->texto="SELECT procedimientos_comandos.*, comandos.visuparametros FROM procedimientos_comandos ";
67        $cmd->texto.=" INNER JOIN comandos ON comandos.idcomando=procedimientos_comandos.idcomando";
68        $cmd->texto.=" WHERE procedimientos_comandos.idprocedimientocomando=".$idprocedimientocomando;
69        $rs->Comando=&$cmd;
70        if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
71        if ($rs->EOF) return("");
72
73        $HTMLparametros='<TABLE class="tabla_parametros" align=center  border=0 cellspacing=1 cellpadding=0 width="90%" >'.chr(13);
74        $HTMLparametros.='<TR>'.chr(13);
75        $HTMLparametros.=  '<TH >&nbsp;'.$TbMsg[1].'&nbsp;</TH>'.chr(13);
76        $HTMLparametros.=  '<TH>&nbsp;'.$TbMsg[2].'</TH>&nbsp;'.chr(13);
77        $HTMLparametros.=  '</TR>'.chr(13);
78
79        $textambito="";
80        $urlimg="";
81        $auxVP=split(";",$rs->campos["visuparametros"]); // Parametros visualizables
82        $auxP=split(chr(13),$rs->campos["parametros"]); // Recorre parametros para visualizar los que as�sean
83        for ($i=0;$i<sizeof($auxP);$i++){
84                $dualparam=split("=",$auxP[$i]);
85                for ($k=0;$k<sizeof($auxVP);$k++){
86                         if($auxVP[$k]==$dualparam[0]){
87                                $posp=busca_indicebinariodual($dualparam[0],$tabla_parametros,$cont_parametros); // Busca datos del par�etro en la tabla cargada previamentre con todos los par�etros
88                                if ($posp>=0){
89                                        $auxtabla_parametros=$tabla_parametros[$posp][1];
90                                        $HTMLparametros.='<TR>'.chr(13);
91                                        $HTMLparametros.=  '<TD >&nbsp;'.$auxtabla_parametros["descripcion"].'&nbsp;</TD>'.chr(13);
92                                        if($auxtabla_parametros["tipopa"]==1){  $valor=TomaDato($cmd,0,$auxtabla_parametros["nomtabla"],$dualparam[1],$auxtabla_parametros["nomidentificador"],$auxtabla_parametros["nomliteral"]);
93                                        }else
94                                        $valor=$dualparam[1];
95                                        $HTMLparametros.=  '<TD>&nbsp;'.Urldecode($valor).'&nbsp;</TD>'.chr(13);
96                                        $HTMLparametros.=  '</TR>'.chr(13);
97                                }
98                        }
99                }
100        }
101        $HTMLparametros.=  '</TABLE>'.chr(13);
102        $descripcioncomando=TomaDato($cmd,0,"comandos",$rs->campos["idcomando"],"idcomando","descripcion");
103        echo '<br><p align=center><IMG src="../images/iconos/comandos.gif">&nbsp;&nbsp;<span class=presentaciones>'.$descripcioncomando.'</span>';
104        echo $HTMLparametros;
105        echo '</p>';
106}
107?>
Note: See TracBrowser for help on using the repository browser.