#!/usr/bin/perl
use strict;
my %para;
my $html;
my $linea;

$ENV{DOCUMENT_ROOT}.='/' if $ENV{DOCUMENT_ROOT};
my $hoy = time;


require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';



open (ARCHI, $ENV{DOCUMENT_ROOT}.'contacto/tpl/registrarse.htm')||die $!."- registrarse.pl<br>\n";

while ($linea = <ARCHI>){
	$html .= $linea;
}
close ARCHI;
require $ENV{DOCUMENT_ROOT}.'_adm/incs/clInteres.pm';
my $oInteres=clInteres->new();
my @Interes;
my @InteresTmp;
my $contador=0;
my @RowInteres=$oInteres->lista();
foreach my $Puntero(@RowInteres){
		if ($contador>2) {
			push @Interes, [@InteresTmp];
			$contador=0;
			@InteresTmp=[];
		}

		@InteresTmp[$contador]="$$Puntero[1]<input type=checkbox onclick='if(!this.checked)this.form.genero.checked=false;' name=usuariointeres value=$$Puntero[0]>";
		$contador++
}
#if ($contador!=3) {
	push @Interes, [@InteresTmp];
#}
$contador=0;
my $htmlTablaInt;
foreach my $Puntero (@Interes) {
	$$Puntero[1]="&nbsp;" if !$$Puntero[1];
	$$Puntero[2]="&nbsp;" if !$$Puntero[2];
	$htmlTablaInt.=qq~                                 <tr> 
										<td><div align="right">$$Puntero[0]
										  </div></td>
										<td><div align="right">$$Puntero[1]
										  </div></td>
										<td><div align="right">$$Puntero[2]
										  </div></td>
									  </tr>
	~;
}
my $htmlTabla=qq~<table width="100%" border="0" cellpadding="4">
                                  <tr> 
                                    <td><div align="right">Todos 
                                        <input name=genero type=checkbox onclick="checkAll(this.form, this)//alert(this.checked)">
                                      </div></td>
                                    <td><div align="right">&nbsp;</div></td>
                                    <td><div align="right">&nbsp;</div></td>
                                  </tr>
								  $htmlTablaInt
                                </table>
							~;
$html=~s/<!--INTERESES-->/$htmlTabla/gi;
$html =Generales::procesarEstatico($html);