#!/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/clBase.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/DestacadosNoticias.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';

my $ref=Generales::Entrada();
my %para=%$ref;
my $idTapa_sec;
my $nombreTapa_sec;
my @Notas;
my $hoy = time;
my $oNoticia;
my $Puntero;



my $oBase = clBase->new();
######################################################################


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

close ARCHI;

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


my @Noticias = $oBase->Seleccionar(qq~SELECT idNoticia FROM tnoticia WHERE
								   isPub=2 
								   AND cTapa!='2'
								   ORDER BY cOrden
						   ~); 

foreach $Puntero (@Noticias){
	my $nota=$$Puntero[0];
	$html = DestacadosNoticias::New($html, $nota);	
}

$html=~ s/<!--DESTACADOABREN-->.*<!--DESTACADOCIERRAN-->//;

########################## IMPRIMISION ############################################
$html =Generales::procesarDinamico($html);
$html =Generales::poneLineas($html);
Generales::imprimir($html);
#############################################################################################