source: admin/WebConsole/comandos/Configurar.php @ ecdc8ec

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

primeros archivos de administración

git-svn-id: https://opengnsys.es/svn/trunk@520 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 18.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: Marzo-2005
7// Nombre del fichero: Configurar.php
8// Descripción :
9//              Implementación del comando "Configurar"
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/HTMLSELECT.php");
17include_once("../includes/HTMLCTESELECT.php");
18include_once("../idiomas/php/".$idioma."/comandos/configurar_".$idioma.".php");
19//________________________________________________________________________________________________________
20$identificador=0;
21$nombrefuncion="";
22$ejecutor="";
23$tipotrama="";
24$ambito=0;
25$idambito=0;
26$nombreambito="";
27$cadenaip="";
28$tbconfigur="";
29
30$fp = fopen($fileparam,"r");
31$parametros= fread ($fp, filesize ($fileparam));
32fclose($fp);
33
34$ValorParametros=extrae_parametros($parametros,chr(13),'=');
35$identificador=$ValorParametros["identificador"];
36$nombrefuncion=$ValorParametros["nombrefuncion"];
37$ejecutor=$ValorParametros["ejecutor"];
38$tipotrama=$ValorParametros["tipotrama"];
39$ambito=$ValorParametros["ambito"];
40$idambito=$ValorParametros["idambito"];
41$nombreambito=$ValorParametros["nombreambito"];
42$cadenaip=$ValorParametros["cadenaip"];
43
44$cmd=CreaComando($cadenaconexion);
45if (!$cmd)
46        Header('Location: '.$pagerror.'?herror=2'); // Error de conexióncon servidor B.D.
47//___________________________________________________________________________________________________
48?>
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="./jscripts/Configurar.js"></SCRIPT>
55<SCRIPT language="javascript" src="./jscripts/comunescomandos.js"></SCRIPT>
56<? echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/comandos/configurar_'.$idioma.'.js"></SCRIPT>'?>
57<? echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/comandos/comunescomandos_'.$idioma.'.js"></SCRIPT>'?>
58</HEAD>
59<BODY>
60<FORM name="fdatosocultos"> 
61        <INPUT type=hidden name=identificador value=<? echo $identificador ?>>
62        <INPUT type=hidden name=nombrefuncion value=<? echo $nombrefuncion ?>>
63        <INPUT type=hidden name=ejecutor value=<? echo $ejecutor ?>>
64        <INPUT type=hidden name=tipotrama value=<? echo $tipotrama ?>>
65        <INPUT type=hidden name=ambito value=<? echo $ambito ?>>
66        <INPUT type=hidden name=idambito value=<? echo $idambito ?>>
67        <INPUT type=hidden name=cadenaip value=<? echo $cadenaip ?>>
68</FORM>
69<?
70switch($ambito){
71                case $AMBITO_CENTROS :
72                        $urlimg='../images/iconos/centros.gif';
73                        $textambito=$TbMsg[0];
74                        break;
75                case $AMBITO_GRUPOSAULAS :
76                        $urlimg='../images/iconos/carpeta.gif';
77                        $textambito=$TbMsg[1];
78                        break;
79                case $AMBITO_AULAS :
80                        $urlimg='../images/iconos/aula.gif';
81                        $textambito=$TbMsg[2];
82                        break;
83                case $AMBITO_GRUPOSORDENADORES :
84                        $urlimg='../images/iconos/carpeta.gif';
85                        $textambito=$TbMsg[3];
86                        break;
87                case $AMBITO_ORDENADORES :
88                        $urlimg='../images/iconos/ordenador.gif';
89                        $textambito=$TbMsg[4];
90                        break;
91        }
92        echo '<p align=center><span class=cabeceras>'.$TbMsg[5].'&nbsp;</span><br>';
93        echo '<IMG src="'.$urlimg.'">&nbsp;&nbsp;<span align=center class=subcabeceras><U>'.$TbMsg[6].': '.$textambito.','.$nombreambito.'</U></span>&nbsp;&nbsp;</span></p>';
94//________________________________________________________________________________________________________
95?>     
96<BR>
97        <FORM  name="fdatos">
98                        <?
99                                echo tabla_configuraciones($cmd,$idcentro,$idambito,$ambito);
100                                echo '<TABLE border=0 style="visibility: hidden" id=patron_contenidoparticion>'.Patrontabla_Particion().'</TABLE>';
101                                echo '<INPUT type=hidden id=tbconfigur value="'.$tbconfigur.'">';
102                        ?>
103        </FORM>
104<?
105//________________________________________________________________________________________________________
106include_once("../includes/opcionesacciones.php");
107//________________________________________________________________________________________________________
108//________________________________________________________________________________________________________
109include_once("../includes/opcionesbotones.php");
110//________________________________________________________________________________________________________
111//________________________________________________________________________________________________________
112include_once("../includes/iframecomun.php");
113//________________________________________________________________________________________________________
114?>
115</BODY>
116</HTML>
117<?
118// ***********************************************************************************************************
119function tabla_configuraciones($cmd,$idcentro,$idambito,$ambito){
120        global $cadenaip;
121        global $AMBITO_AULAS;
122        global $AMBITO_GRUPOSORDENADORES;
123        global $AMBITO_ORDENADORES;
124       
125        $tablaHtml="";
126        $rs=new Recordset;
127        $numorde=0;
128
129        switch($ambito){
130                case $AMBITO_AULAS :
131                        $cmd->texto="SELECT COUNT(*) AS numorde FROM ordenadores WHERE idaula=".$idambito;
132                        break;
133                case $AMBITO_GRUPOSORDENADORES :
134                        $cmd->texto="SELECT COUNT(*) AS numorde FROM ordenadores WHERE grupoid=".$idambito;
135                        break;
136                case $AMBITO_ORDENADORES :
137                        $cmd->texto="SELECT COUNT(*) AS numorde FROM ordenadores WHERE idordenador=".$idambito;
138                        break;
139        }
140        $rs->Comando=&$cmd;
141        if (!$rs->Abrir()) return(""); // Error al abrir recordset
142        if(!$rs->EOF)
143                $numorde=$rs->campos["numorde"];
144        $idconfiguracion="";
145
146        switch($ambito){
147                case $AMBITO_AULAS :
148                        $cmd->texto="SELECT COUNT(*) AS cuenta,configuraciones.descripcion,configuraciones.idconfiguracion FROM aulas";
149                        $cmd->texto.=" INNER JOIN ordenadores ON aulas.idaula = ordenadores.idaula";
150                        $cmd->texto.=" INNER JOIN configuraciones ON ordenadores.idconfiguracion = configuraciones.idconfiguracion";
151                        $cmd->texto.=" WHERE aulas.idaula = ".$idambito;
152                        $cmd->texto.=" GROUP BY configuraciones.descripcion, configuraciones.idconfiguracion";
153                        $cmd->texto.=" HAVING configuraciones.idconfiguracion>0";
154                        $cmd->texto.=" ORDER BY configuraciones.descripcion";
155                        break;
156                case $AMBITO_GRUPOSORDENADORES :
157                        $cmd->texto="SELECT COUNT(*) AS cuenta,configuraciones.descripcion,configuraciones.idconfiguracion FROM gruposordenadores";
158                        $cmd->texto.=" INNER JOIN ordenadores ON gruposordenadores.idgrupo = ordenadores.grupoid";
159                        $cmd->texto.=" INNER JOIN configuraciones ON ordenadores.idconfiguracion = configuraciones.idconfiguracion";
160                        $cmd->texto.=" WHERE (gruposordenadores.idgrupo = ".$idambito.") AND configuraciones.idconfiguracion>0";
161                        $cmd->texto.=" GROUP BY configuraciones.descripcion, configuraciones.idconfiguracion";
162                        $cmd->texto.=" HAVING configuraciones.idconfiguracion>0";
163                        $cmd->texto.=" ORDER BY configuraciones.descripcion";
164                        break;
165                case $AMBITO_ORDENADORES :
166                        $cmd->texto="SELECT COUNT(*) AS cuenta,configuraciones.descripcion,configuraciones.idconfiguracion FROM ordenadores";
167                        $cmd->texto.=" INNER JOIN configuraciones ON ordenadores.idconfiguracion = configuraciones.idconfiguracion";
168                        $cmd->texto.=" WHERE ordenadores.idordenador = ".$idambito;
169                        $cmd->texto.=" GROUP BY configuraciones.descripcion, configuraciones.idconfiguracion";
170                        $cmd->texto.=" HAVING configuraciones.idconfiguracion>0";
171                        $cmd->texto.=" ORDER BY configuraciones.descripcion";
172                        break;
173        }
174        $rs->Comando=&$cmd;
175        if (!$rs->Abrir()) return(""); // Error al abrir recordset
176        if(!$rs->EOF){
177                if($numorde!=$rs->campos["cuenta"]){ // El numero de ordenadores del aula no coincide con los que tienen el mismo perfil hardware
178                        while (!$rs->EOF){
179                                if($idconfiguracion!=$rs->campos["idconfiguracion"]){
180                                        if($idconfiguracion!=0) $tablaHtml.="</TABLE>";
181                                        $tablaHtml.= '<TABLE  align=center border=0 cellPadding=1 cellSpacing=1';
182                                        $descripcion=$rs->campos["descripcion"];
183                                        $tablaHtml.= "<TR>";
184                                        $tablaHtml.= '<TD align=center ><IMG  style="cursor:hand" oncontextmenu="resalta(this,'.$rs->campos["idconfiguracion"].')" src="../images/iconos/configuraciones.gif">';
185                                        $tablaHtml.='&nbsp;&nbsp<span style="COLOR: #000000;FONT-FAMILY: Verdana;FONT-SIZE: 12px; "><U><b>Configuration</b>&nbsp;'.$rs->campos["descripcion"].'</U></SPAN></TD>';
186                                        $tablaHtml.= "</TR>";
187                                }
188                                $tablaHtml.= '<TR><TD>';
189                                $tablaHtml.=PintaOrdenadores($cmd,$idambito,$ambito,$rs->campos["idconfiguracion"],$rs->campos["cuenta"]);
190                                $tablaHtml.= '</TD></TR>';
191                                $tablaHtml.= '<TR><TD>';
192                                $tablaHtml.=tabla_particiones($cmd,$idcentro,$idambito,$rs->campos["idconfiguracion"],$rs->campos["cuenta"]);
193                                $tablaHtml.= '</TD></TR>';
194                                $rs->Siguiente();
195                        }
196                        $tablaHtml.="</TABLE>";
197                }
198                else{
199                        $tablaHtml.=tabla_particiones($cmd,$idcentro,$idambito,$rs->campos["idconfiguracion"],$rs->campos["cuenta"]);
200                        $tablaHtml.='<INPUT type=hidden name="nuevasipes" id="ipes_'.$rs->campos["idconfiguracion"].'" value="'.$cadenaip.'">';
201                }
202        }
203        echo $tablaHtml;
204        $rs->Cerrar();
205}
206//________________________________________________________________________________________________________
207function PintaOrdenadores($cmd,$idambito,$ambito,$idconfiguracion){
208        global $AMBITO_AULAS;
209        global $AMBITO_GRUPOSORDENADORES;
210        $ipidpidc="";
211        $rs=new Recordset;
212        $contor=0;
213        $maxcontor=10;
214        switch($ambito){
215                case $AMBITO_AULAS :
216                        $cmd->texto=" SELECT nombreordenador,ip FROM ordenadores WHERE  idconfiguracion=".$idconfiguracion." AND idaula=".$idambito." ORDER BY nombreordenador";
217                        break;
218                case $AMBITO_GRUPOSORDENADORES :
219                        $cmd->texto=" SELECT nombreordenador,ip FROM ordenadores WHERE  idconfiguracion=".$idconfiguracion." AND grupoid=".$idambito." ORDER BY nombreordenador";
220                        break;
221        }
222        $rs->Comando=&$cmd;
223        if (!$rs->Abrir()) return(""); // Error al abrir recordset
224        $tablaHtml='<TABLE align=center border=0><TR>';
225        while (!$rs->EOF){
226                $contor++;
227                $tablaHtml.= '<TD align=center style="FONT-FAMILY: Arial, Helvetica, sans-serif;FONT-SIZE: 8px"><br><IMG src="../images/iconos/ordenador.gif"><br><span style="FONT-SIZE:9px" >'.$rs->campos["nombreordenador"].'</TD>';
228                if($contor>$maxcontor){
229                        $contor=0;
230                        $tablaHtml.='</TR><TR>';
231                }
232                $ipidpidc.=$rs->campos["ip"].";";
233                $rs->Siguiente();
234        }
235        $ipidpidc=      substr($ipidpidc,0,strlen($ipidpidc)-1); // Quita la coma
236        $tablaHtml.='</TR>';
237        $tablaHtml.= '</TR></TABLE>';
238        $tablaHtml.='<INPUT type=hidden name="nuevasipes" id="ipes_'.$idconfiguracion.'" value="'.$ipidpidc.'">';
239        return($tablaHtml);
240}
241//________________________________________________________________________________________________________
242function tabla_particiones($cmd,$idcentro,$idambito,$idconfiguracion,$cuenta){
243        global $tbconfigur;
244        global $TbMsg;
245        $tablaHtml="";
246        $configuracion="";
247        $rs=new Recordset;
248        $cmd->texto="SELECT idconfiguracion, configuracion FROM configuraciones WHERE idconfiguracion=".$idconfiguracion;
249        $rs->Comando=&$cmd;
250        if (!$rs->Abrir()) return(""); // Error al abrir recordset
251        if(!$rs->EOF)
252                $idc=$rs->campos["idconfiguracion"];
253                $configuracion=$rs->campos["configuracion"];
254        $rs->Cerrar();
255        $auxsplit=split("\t",$configuracion);
256        $tablaHtml.= '<TABLE align=center  id=tabla_contenidoparticion_'.$idc.'  value=0><TR><TD>';
257        $tablaHtml.= '<TABLE id=tb_particiones_'.$idc.' class=tabla_listados_sin  align=center value=0 cellPadding=1 cellSpacing=1 >';
258        $tablaHtml.= '<TR>';
259        $tablaHtml.= '<TH align=center ><IMG src="../images/iconos/eliminar.gif"></TH>';
260        $tablaHtml.= '<TH align=center>&nbsp;'.$TbMsg[8].'&nbsp;</TH>';
261        $tablaHtml.= '<TH align=center>&nbsp;'.$TbMsg[9].'&nbsp</TH>';
262        $tablaHtml.= '<TH align=center>&nbsp;'.$TbMsg[10].'&nbsp;</TH>';
263        $tablaHtml.= '<TH align=center>&nbsp;'.$TbMsg[11].'&nbsp;</TH>';
264        $tablaHtml.= '<TH align=center>&nbsp;'.$TbMsg[12].'&nbsp;</TH>';
265        $tablaHtml.= '</TR>';
266        $ultpa=0;
267        for($j=0;$j<sizeof($auxsplit)-1;$j++){
268                $ValorParametros=extrae_parametros($auxsplit[$j],chr(10),'=');
269                $particion=$ValorParametros["numpart"]; // Toma la partici�
270                $p=$particion;
271                $tipopart=$ValorParametros["tipopart"]; // Toma tama� la partici�
272                $tamapart=$ValorParametros["tamapart"]; // Toma tama� la partici�
273                $nombreso=$ValorParametros["nombreso"]; // Toma nombre del sistema operativo
274                $tiposo=$ValorParametros["tiposo"];
275                $valocul=0;
276                $codpar=0;
277                switch($tipopart){
278                                        case "EMPTY":
279                                                $codpar=0;
280                                                if(empty($tiposo))
281                                                        $nombreso='<span style="COLOR:red"> Espacio sin particionar !!</span>';
282                                                break;
283                                        case "EXT":
284                                                $codpar=0;
285                                                if(empty($tiposo))
286                                                        $nombreso='<span style="COLOR:red"> Partici� extendida !!</span>';
287                                                break;
288                                        case "BIGDOS":
289                                                $codpar=1;
290                                                if(empty($tiposo))
291                                                        $nombreso='<span style="COLOR:red">Msdos</span>';
292                                                break;
293                                        case "FAT32":
294                                                $codpar=2;
295                                                if(empty($tiposo))
296                                                        $nombreso='<span style="COLOR:red">Windows 98, Millenium</span>';
297                                                break;
298                                        case "HFAT32":
299                                                $codpar=2;
300                                                $valocul=2;
301                                                if(empty($tiposo))
302                                                                $nombreso='<span style="COLOR:red">Windows 98, Millenium<span style="COLOR:green;font-weight:600">&nbsp;('.$TbMsg[7].')</span></span>';
303                                                else
304                                                                $nombreso.='<span style="COLOR:green;font-weight:600">&nbsp;(Partici� oculta)</span>';
305                                                break;
306                                        case "NTFS":
307                                                $codpar=3;
308                                                if(empty($tiposo))
309                                                        $nombreso='<span style="COLOR:red">Windows XP, Windows 2000, Windows 2003</span>';
310                                                break;
311                                        case "HNTFS":
312                                                $codpar=3;
313                                                $valocul=2;
314                                                if(empty($tiposo))
315                                                        $nombreso='<span style="COLOR:red">Windows XP, Windows 2000, Windows 2003<span style="COLOR:green;font-weight:600">&nbsp;('.$TbMsg[7].')</span></span>';
316                                                else
317                                                        $nombreso.='<span style="COLOR:green;font-weight:600">&nbsp;('.$TbMsg[7].')</span>';
318                                                break;
319                                        case "EXT2":
320                                                $codpar=4;
321                                                if(empty($tiposo))
322                                                        $nombreso='<span style="COLOR:red">Linux</span>';
323                                                break;
324                                        case "EXT3":
325                                                $codpar=5;
326                                                if(empty($tiposo))
327                                                        $nombreso='<span style="COLOR:red">Linux</span>';
328                                                break;
329                                        case "EXT4":
330                                                $codpar=6;
331                                                if(empty($tiposo))
332                                                        $nombreso='<span style="COLOR:red">Linux</span>';
333                                                break;
334                                        case "LINUX-SWAP":
335                                                $codpar=7;
336                                                $nombreso='<span style="COLOR:blue">Linux-swap</span>';
337                                                break;
338                                        case "CACHE":
339                                                $codpar=8;
340                                                $nombreso='<span style="COLOR:blue">CACHE</span>';
341                                                break;
342                }
343                $ultpa=$p; // Valor de la ultima particion de esa configuraci�
344                $tablaHtml.='<TR id=TRparticion_'.$p."_".$idc.'>'.chr(13);
345                $tablaHtml.='<TD><input type=checkbox onclick="elimina_particion(this,'.$idc.')" id=eliminarparticion_'.$p."_".$idc.' value=0></TD>'.chr(13);
346                $opciones="";
347                for($i=1;$i<8;$i++){
348                         $opciones.=$i."=".$i.chr(13);
349                }
350                $opciones.="8=8";
351                $tablaHtml.='<TD>'.HTMLCTESELECT($opciones,"numpar_".$p."_".$idc,"estilodesple","",$p,35,"chgpar").'</TD>'.chr(13);
352                $opciones="1=BIGDOS".chr(13);
353                $opciones.="2=FAT32".chr(13);
354                $opciones.="3=NTFS".chr(13);
355                $opciones.="4=EXT2".chr(13);
356                $opciones.="5=EXT3".chr(13);
357                $opciones.="6=EXT4".chr(13);
358                $opciones.="7=LINUX-SWAP".chr(13);
359                $opciones.="8=CACHE";
360
361                $tablaHtml.='<TD>'.HTMLCTESELECT($opciones,"tipospar_".$p."_".$idc,"estilodesple","EMPTY",$codpar,100,"chgtipopar").'</TD>'.chr(13);
362                $tablaHtml.='<TD><span id=tiposo_'.$p."_".$idc.' value=0>&nbsp;'.$nombreso.'&nbsp;</span></TD>'.chr(13);
363                $tablaHtml.='<TD align=center>&nbsp<input type=text onchange="chgtama('.$idc.')" id="tamano_'.$p."_".$idc.'" style="width=70" value='.$tamapart.' >&nbsp</TD>'.chr(13);
364                $opciones="1=".$TbMsg[14]."".chr(13);
365                $opciones.="2=".$TbMsg[15]."".chr(13);
366                $opciones.="3=".$TbMsg[16]."";
367                $tablaHtml.='<TD>&nbsp'.HTMLCTESELECT($opciones,"acciones_".$p."_".$idc,"estilodesple",$TbMsg[13],$valocul,100,"chgaccion").'&nbsp</TD>'.chr(13);
368                $tablaHtml.='</TR>'.chr(13);
369        }
370        $tablaHtml.='</TABLE>';
371        $tablaHtml.= '</TD></TR></TABLE>';
372
373  // Boton de insercion
374        $tablaHtml.= '<INPUT type=hidden id="ultpa_'.$idc.'" value='.$ultpa.'>';
375        $tablaHtml.= '<div align=center>';
376        $tablaHtml.= '<br><A href="#boton_add"><IMG border=0 name="btanade_"'.$idc.'  src="../images/boton_annadir.gif" onclick="annadir_particion('.$idc.')" WIDTH="73" HEIGHT="22"></A>';
377        $tablaHtml.= '</div><br>';
378        $tbconfigur.=$idc.";";
379        return($tablaHtml);
380}
381//________________________________________________________________________________________________________
382//      Crea la patron de linea de la tabla Particiones
383//________________________________________________________________________________________________________
384function Patrontabla_Particion(){
385        global $TbMsg;
386        $p="_upa_";
387        $idc="_cfg_";
388        $tablaHtml='<TR id=TRparticion_'.$p."_".$idc.'>'.chr(13);
389        $tablaHtml.='<TD><input type=checkbox onclick="elimina_particion(this,'.$idc.')" id=eliminarparticion_'.$p."_".$idc.' value=0></TD>'.chr(13);
390        $opciones="";
391                for($i=1;$i<8;$i++){
392                        $opciones.=$i."=".$i.chr(13);
393                }
394                $opciones.="8=8";
395                $tablaHtml.='<TD>'.HTMLCTESELECT($opciones,"numpar_".$p."_".$idc,"estilodesple","",$p,35,"chgpar").'</TD>'.chr(13);
396                $opciones="1=BIGDOS".chr(13);
397                $opciones.="2=FAT32".chr(13);
398                $opciones.="3=NTFS".chr(13);
399                $opciones.="4=EXT2".chr(13);
400                $opciones.="5=EXT3".chr(13);
401                $opciones.="6=EXT4".chr(13);
402                $opciones.="7=LINUX-SWAP";
403                $tablaHtml.='<TD>'.HTMLCTESELECT($opciones,"tipospar_".$p."_".$idc,"estilodesple","EMPTY",0,100,"chgtipopar").'</TD>'.chr(13);
404                $tablaHtml.='<TD><span id=tiposo_'.$p."_".$idc.' value=0>&nbsp;<span style="COLOR:red">'.$TbMsg[17].'</span>&nbsp;</span></TD>'.chr(13);
405                $tablaHtml.='<TD align=center>&nbsp<input type=text onchange="chgtama('.$idc.')" id="tamano_'.$p."_".$idc.'" style="width=70" value=0 >&nbsp</TD>'.chr(13);
406                $opciones="1=".$TbMsg[14]."".chr(13);
407                $opciones.="2=".$TbMsg[15]."".chr(13);
408                $opciones.="3=".$TbMsg[16]."";
409                $tablaHtml.='<TD>'.HTMLCTESELECT($opciones,"acciones_".$p."_".$idc,"estilodesple",$TbMsg[13],0,100,"chgaccion").'&nbsp</TD>'.chr(13);
410                $tablaHtml.='</TR>'.chr(13);
411                //$tablaHtml.='</TABLE>';
412                //$tablaHtml.= '</TD></TR></TABLE>';
413                return($tablaHtml);
414}
415?>
Note: See TracBrowser for help on using the repository browser.