source: admin/WebConsole/varios/procedimientoscomandos.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.4 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: procedimientoscomandos.php
8// Descripción :
9//              Administra los comandos que forman parte de un procedimiento
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."/procedimientoscomandos_".$idioma.".php");
18//________________________________________________________________________________________________________
19$idprocedimiento=0;
20$descripcionprocedimiento="";
21if (isset($_GET["idprocedimiento"])) $idprocedimiento=$_GET["idprocedimiento"]; // Recoge parametros
22if (isset($_GET["descripcionprocedimiento"])) $descripcionprocedimiento=$_GET["descripcionprocedimiento"]; // Recoge parametros
23
24$cmd=CreaComando($cadenaconexion); // Crea objeto comando
25if (!$cmd)
26        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
27//________________________________________________________________________________________________________
28?>
29<HTML>
30<HEAD>
31        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
32<LINK rel="stylesheet" type="text/css" href="../estilos.css">
33<SCRIPT language="javascript" src="../jscripts/procedimientoscomandos.js"></SCRIPT>
34<SCRIPT language="javascript" src="../jscripts/opciones.js"></SCRIPT>
35<SCRIPT language="javascript" src="../clases/jscripts/HttpLib.js"></SCRIPT>
36<?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/procedimientoscomandos_'.$idioma.'.js"></SCRIPT>'?>
37</HEAD>
38<BODY>
39<FORM name="fdatos"> 
40        <INPUT type=hidden value="<?php echo $idcentro?>" id=idcentro>   
41        <P align=center class=cabeceras><IMG src="../images/iconos/procedimiento.gif">&nbsp;<?php echo $TbMsg[0]?><BR>
42        <SPAN align=center class=subcabeceras><?php echo $TbMsg[1]?></span>&nbsp;<img src="../images/iconos/comandos.gif"><BR><BR>
43        <SPAN align=center class=presentaciones><B><?php echo $TbMsg[2]?>:&nbsp;</B><?php echo $descripcionprocedimiento?></SPAN></P>
44        <TABLE  align=center class="tabla_listados" cellspacing=1 cellpadding=0  id="TABLACOMANDOS">
45                                <TR  height=20>
46                                        <TH ><IMG src="../images/iconos/eliminar.gif"></TH>
47                                        <TH  colspan=2 align=left>&nbsp;<?php echo $TbMsg[3]?></TH>
48                                        <TH  ><?php echo $TbMsg[4]?></TH>
49                                        <TH  >A</TH>
50                        </TR>
51                <?php
52                        $rs=new Recordset;
53                        $cmd->texto='SELECT  procedimientos_acciones.*, comandos.descripcion,comandos.visuparametros
54                                                                                         FROM procedimientos_acciones
55                                                                                        INNER JOIN comandos ON procedimientos_acciones.idcomando = comandos.idcomando
56                                                                                        WHERE procedimientos_acciones.idprocedimiento='.$idprocedimiento.'
57                                                                                        ORDER BY procedimientos_acciones.orden';
58
59                        $rs->Comando=&$cmd;
60                        if ($rs->Abrir()){
61                                $rs->Primero();
62                                $tabla_parametros=""; // Tabla  para localizar parametros
63                                $cont_parametros=0; // Contador de la tabla
64                                CreaTablaParametros($cmd); // Crea tabla  especificaciones de parametros
65                                while (!$rs->EOF){
66                                                 echo '<TR height=20  id=TR-'.$rs->campos["idprocedimientocomando"].'>';
67                                                 echo '<TD  align=center ><INPUT  id=checkbox-'.$rs->campos["idprocedimientocomando"].' type=checkbox           
68                                                                                 onclick="gestion_comandos('.$rs->campos["idprocedimientocomando"].',this)" checked ></INPUT></TD>';
69                                                // Descripcion de la comando
70                                                 echo '<TD  colspan=2>&nbsp;'.$rs->campos["descripcion"].'</TD>';
71                                                // Orden del item del item
72                                                echo '<TD  valign="meddle"  align=center >&nbsp;<INPUT class="formulariodatos" id=orden-'.$rs->campos["idprocedimientocomando"].'
73                                                 style="WIDTH:20px" type=text value="'.$rs->campos["orden"].'"></INPUT></TD>';
74                                                echo '<TD   align=center id="imgact-'.$rs->campos["idprocedimientocomando"].'">
75                                                <IMG src="../images/iconos/actualizar.gif" onclick="ActualizarAccion('.$rs->campos["idprocedimientocomando"].')"></TD>';
76                                                echo '</TR>';
77                                                pintacomandos($cmd,$rs);
78                                        echo  '<TR height=3><TD style="BACKGROUND-COLOR: #999999;" colspan=5></TD></TR>'.chr(13);
79                                                $rs->Siguiente();
80                                }
81                        }
82                        $rs->Cerrar();
83                ?>
84                </TABLE>
85                <br>
86                <P align=center><span align=center class=notas><I><?php echo $TbMsg[7]?>.</I></P>
87</FORM>
88</BODY>
89</HTML>
90<?php
91// *************************************************************************************************************************************************
92function pintacomandos($cmd,$rs){
93        global $TbMsg;
94        global $AMBITO_CENTROS;
95        global $AMBITO_GRUPOSAULAS;
96        global $AMBITO_AULAS;
97        global $AMBITO_GRUPOSORDENADORES;
98        global $AMBITO_ORDENADORES;
99        global  $tabla_parametros;
100        global  $cont_parametros;
101
102        $HTMLparametros='<TR  id="PAR-'.$rs->campos["idprocedimientocomando"].'" >'.chr(13);
103        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
104        $HTMLparametros.=  '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4; " >'.$TbMsg[5].'</TH>'.chr(13);
105        $HTMLparametros.=  '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >'.$TbMsg[6].'</TH>'.chr(13);
106        $HTMLparametros.=  '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >&nbsp;</TH>'.chr(13);
107        $HTMLparametros.=  '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >&nbsp;</TH>'.chr(13);
108        $HTMLparametros.=  '</TR>'.chr(13);
109
110        $urlimg="";
111        $auxVP=explode(";",$rs->campos["visuparametros"]); // Parametros visualizables
112        $auxP=explode(chr(13),$rs->campos["parametros"]); // Recorre parametros para visualizar los que así sean
113       
114        for ($i=0;$i<sizeof($auxP);$i++){ // Por cada parametros del comando...
115                $dualparam=explode("=",$auxP[$i]);
116                for ($k=0;$k<sizeof($auxVP);$k++){
117                         if($auxVP[$k]==$dualparam[0]){
118                                $posp=busca_indicebinariodual($dualparam[0],$tabla_parametros,$cont_parametros); // Busca datos del parámetro en la tabla cargada previamentre con todos los parámetros
119                                if ($posp>=0){
120                                        $auxtabla_parametros=$tabla_parametros[$posp][1];
121                                        $HTMLparametros.='<TR  id="PAR-'.$rs->campos["idprocedimientocomando"].'" >'.chr(13);
122                                        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
123                                        $HTMLparametros.=  '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$auxtabla_parametros["descripcion"].'&nbsp;</TD>'.chr(13);
124                                        if($auxtabla_parametros["tipopa"]==1){
125                                        $valor=TomaDato($cmd,0,$auxtabla_parametros["nomtabla"],$dualparam[1],$auxtabla_parametros["nomidentificador"],$auxtabla_parametros["nomliteral"]);
126                                        }else
127                                                $valor=$dualparam[1];
128                                        if($dualparam[0]!="iph")
129                                                        $HTMLparametros.=  '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$valor.'&nbsp;</TD>'.chr(13);
130                                        else{
131                                                        $tablaipes=PintaOrdenadores($cmd,$valor);
132                                                        $HTMLparametros.=  '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$tablaipes.'&nbsp;</TD>'.chr(13);
133                                        }
134                                        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
135                                        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
136                                        $HTMLparametros.=  '</TR>'.chr(13);
137                                }
138                        }
139                }
140        }
141        echo  $HTMLparametros;
142}
143//________________________________________________________________________________________________________
144function PintaOrdenadores($cmd,$cadenaip){
145        $auxP=explode(";",$cadenaip);
146        if(sizeof($auxP)<1) return("");
147        $clauslaIN="'".$auxP[0]."'";
148        for ($i=1;$i<sizeof($auxP);$i++)
149                $clauslaIN.=",'".$auxP[$i]."'";
150        $rs=new Recordset;
151        $contor=0;
152        $maxord=7; // Máximos ordenadores por linea
153        $cmd->texto=" SELECT nombreordenador,ip FROM ordenadores  INNER JOIN aulas ON aulas.idaula=ordenadores.idaula WHERE ip IN(".$clauslaIN.") ORDER by nombreaula,nombreordenador";
154        $rs->Comando=&$cmd;
155        if (!$rs->Abrir()) return(""); // Error al abrir recordset
156        $tablaHtml='<TABLE align=left border=0><TR>';
157        while (!$rs->EOF){
158                $contor++;
159                $tablaHtml.= '<TD align=center style="BACKGROUND-COLOR: #b5daad;FONT-FAMILY: Arial, Helvetica, sans-serif;      BORDER-BOTTOM:#000000 none;FONT-SIZE: 8px"><IMG src="../images/iconos/ordenador.gif"><br><span style="FONT-SIZE:9px" >'.$rs->campos["nombreordenador"].'</TD>';
160                if($contor>$maxord){
161                        $contor=0;
162                        $tablaHtml.='</TR><TR>';
163                }
164                $rs->Siguiente();
165        }
166        $tablaHtml.='</TR>';
167        $tablaHtml.= '</TR></TABLE>';
168        return($tablaHtml);
169}
Note: See TracBrowser for help on using the repository browser.