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

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 e02f9b4 was 6e9cc32, checked in by ramon <ramongomez@…>, 15 years ago

Borrar caracteres BOM de UTF-8 en ficheros PHP de WebConsole?.

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