// *************************************************************************************************************************************************
// 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"];
//________________________________________________________________________________________________________
?>
Administración web de aulas
$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 '
'.$TbMsg[0].' '.$descripcionprocedimiento.'
';
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();
}
}
}
?>
// *************************************************************************************************************************************************
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='
'.chr(13);
$HTMLparametros.='
'.chr(13);
$HTMLparametros.= '
'.$TbMsg[1].'
'.chr(13);
$HTMLparametros.= '
'.$TbMsg[2].'
'.chr(13);
$HTMLparametros.= '
'.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=0){
$auxtabla_parametros=$tabla_parametros[$posp][1];
$HTMLparametros.='