#!/usr/bin/perl
use strict;
$ENV{DOCUMENT_ROOT}.='/' if $ENV{DOCUMENT_ROOT};
use Time::Local 'timelocal';
my $html;
my $linea;
my $check;
require $ENV{DOCUMENT_ROOT}.'_adm/incs/clUsuarioEditorial.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';


my $ref=Generales::Entrada();
my %para=%$ref;
my $oEditorial=clUsuarioEditorial->new();

open (ARCHI, $ENV{DOCUMENT_ROOT}.'editoriales/tpl/tapa.htm')||print $!."- tapa.pl<br>\n";
while ($linea = <ARCHI>){
	$html .= $linea;
}

close ARCHI;

$html =Generales::sacaLineas($html);


my @Row=$oEditorial->lista('','','', "tusuarioeditorial.bActivo=1");
my @RowCopy;

foreach my $Puntero (@Row) {
	@RowCopy[int(rand 100000)]=$Puntero;
}
my $contador=0;
my $tabla;
foreach my $Puntero (@RowCopy) {
	if ($Puntero) {
		$contador++;
		if ($contador==1) {
			$tabla.=qq~<tr>~;
		}elsif ($contador>4) {
			$contador=1;
			$tabla.=qq~</tr><tr>~;
		}
		my $foto;
		$foto=qq~
						<tr> 
						  <td valign="top"><img src="$$Puntero[15]" width="140" height="50"></td>
						</tr>
		~if $$Puntero[15];
		$tabla.=qq~
					<td valign="top"><table width="152" border="0" cellpadding="1" cellspacing="0" bgcolor="#ffffff">
  <tr>
    <td align="center" valign="middle"><table width="152" height="74" border="0" cellpadding="4" bgcolor="#B9C8BD">
						<tr> 
						  <td valign="top"><table width="100%" border="0" cellpadding="2">
							  <tr> 
								<td><strong>&quot;$$Puntero[1]&quot;</strong> 
								</td>
							  </tr>
							  <tr> 
								<td><a href="/editoriales/tapas.pl?id=$$Puntero[0]" class="linkBco">[ 
								  ver cat&aacute;logo ]</a></td>
							  </tr>
							</table></td>
            </tr>
        </table></td>
						</tr>
					  </table></td>
		~;
	}
}

if ($contador==1) {
	$tabla.=qq~<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr>~
}elsif($contador==2){
	$tabla.=qq~<td>&nbsp;</td><td>&nbsp;</td></tr>~
}elsif($contador==3){
	$tabla.=qq~<td>&nbsp;</td></tr>~
}elsif($contador==4){
	$tabla.=qq~</tr>~
}
$html=~ s/<!--LISTADO-->/$tabla/gi;
$html=~ s/(<!--DESTACADOABRE-->).*(<!--DESTACADOCIERRA-->)//gi;
#Generales::Debug(@Row);
########################## IMPRIMISION ############################################
$html =Generales::procesarDinamico($html);
$html =Generales::poneLineas($html);
Generales::imprimir($html);
#############################################################################################