#!/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
\n";
while ($linea = ){
$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/.*//;
########################## IMPRIMISION ############################################
$html =Generales::procesarDinamico($html);
$html =Generales::poneLineas($html);
Generales::imprimir($html);
#############################################################################################