1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
<?
// *************************************************************************************************************************************************
// Aplicación WEB: ogAdmWebCon
// Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla
// Fecha Creación: Año 2003-2004
// Fecha Última modificación: Febrero-2005
// Nombre del fichero: informacion_procedimientos.php
// Descripción :
// Muestra los comandos que forman parte de un procedimiento y sus valores
// *************************************************************************************************************************************************
include_once("../includes/ctrlacc.php");
include_once("../clases/AdoPhp.php");
include_once("../includes/constantes.php");
include_once("../includes/comunes.php");
include_once("../includes/CreaComando.php");
include_once("../includes/TomaDato.php");
include_once("../idiomas/php/".$idioma."/informacion_procedimientos_".$idioma.".php");
//________________________________________________________________________________________________________
$idprocedimiento="";
$descripcioncomando="";
if (isset($_GET["idprocedimiento"])) $idprocedimiento=$_GET["idprocedimiento"];
if (isset($_GET["descripcionprocedimiento"])) $descripcionprocedimiento=$_GET["descripcionprocedimiento"];
//________________________________________________________________________________________________________
?>
<HTML>
<TITLE>Administración web de aulas</TITLE>
<HEAD>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=ISO-8859-1">
<LINK rel="stylesheet" type="text/css" href="../estilos.css">
</HEAD>
<BODY>
<?
$cmd=CreaComando($cadenaconexion);
if ($cmd){
$rs=new Recordset;
$cmd->texto="SELECT idprocedimientocomando FROM procedimientos_comandos WHERE idprocedimiento=".$idprocedimiento. " ORDER BY idprocedimientocomando,orden";
$rs->Comando=&$cmd;
if ($rs->Abrir()){
echo '<br><p align=center><IMG src="../images/iconos/procedimiento.gif"> <U><span class=cabeceras>'.$TbMsg[0].'</span></U><br><span class=subcabeceras>'.$descripcionprocedimiento.'</span></p>';
while (!$rs->EOF){
$tabla_parametros=""; // Tabla para localizar parametros
$cont_parametros=0; // Contador de la tabla
CreaTablaParametros($cmd,&$tabla_parametros,&$cont_parametros); // Crea tabla especificaciones de parametros
pintacomandos($cmd,$rs->campos["idprocedimientocomando"]);
$rs->Siguiente();
}
}
}
?>
</BODY>
</HTML>
<?
// *************************************************************************************************************************************************
function pintacomandos($cmd,$idprocedimientocomando){
global $TbMsg;
global $AMBITO_CENTROS;
global $AMBITO_GRUPOSAULAS;
global $AMBITO_AULAS;
global $AMBITO_GRUPOSORDENADORES;
global $AMBITO_ORDENADORES;
global $tabla_parametros;
global $cont_parametros;
$rs=new Recordset;
$cmd->texto="SELECT procedimientos_comandos.*, comandos.visuparametros FROM procedimientos_comandos ";
$cmd->texto.=" INNER JOIN comandos ON comandos.idcomando=procedimientos_comandos.idcomando";
$cmd->texto.=" WHERE procedimientos_comandos.idprocedimientocomando=".$idprocedimientocomando;
$rs->Comando=&$cmd;
if (!$rs->Abrir()) return($cadenaXML); // Error al abrir recordset
if ($rs->EOF) return("");
$HTMLparametros='<TABLE class="tabla_parametros" align=center border=0 cellspacing=1 cellpadding=0 width="90%" >'.chr(13);
$HTMLparametros.='<TR>'.chr(13);
$HTMLparametros.= '<TH > '.$TbMsg[1].' </TH>'.chr(13);
$HTMLparametros.= '<TH> '.$TbMsg[2].'</TH> '.chr(13);
$HTMLparametros.= '</TR>'.chr(13);
$textambito="";
$urlimg="";
$auxVP=split(";",$rs->campos["visuparametros"]); // Parametros visualizables
$auxP=split(chr(13),$rs->campos["parametros"]); // Recorre parametros para visualizar los que as�sean
for ($i=0;$i<sizeof($auxP);$i++){
$dualparam=split("=",$auxP[$i]);
for ($k=0;$k<sizeof($auxVP);$k++){
if($auxVP[$k]==$dualparam[0]){
$posp=busca_indicebinariodual($dualparam[0],$tabla_parametros,$cont_parametros); // Busca datos del par�etro en la tabla cargada previamentre con todos los par�etros
if ($posp>=0){
$auxtabla_parametros=$tabla_parametros[$posp][1];
$HTMLparametros.='<TR>'.chr(13);
$HTMLparametros.= '<TD > '.$auxtabla_parametros["descripcion"].' </TD>'.chr(13);
if($auxtabla_parametros["tipopa"]==1){ $valor=TomaDato($cmd,0,$auxtabla_parametros["nomtabla"],$dualparam[1],$auxtabla_parametros["nomidentificador"],$auxtabla_parametros["nomliteral"]);
}else
$valor=$dualparam[1];
$HTMLparametros.= '<TD> '.Urldecode($valor).' </TD>'.chr(13);
$HTMLparametros.= '</TR>'.chr(13);
}
}
}
}
$HTMLparametros.= '</TABLE>'.chr(13);
$descripcioncomando=TomaDato($cmd,0,"comandos",$rs->campos["idcomando"],"idcomando","descripcion");
echo '<br><p align=center><IMG src="../images/iconos/comandos.gif"> <span class=presentaciones>'.$descripcioncomando.'</span>';
echo $HTMLparametros;
echo '</p>';
}
?>
|