#!/usr/bin/perl
use strict;
my %para;
my $html;
my $linea;
use CGI::Carp "fatalsToBrowser"; 

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


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



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

while ($linea = <ARCHI>){
	$html .= $linea;
}
close ARCHI;

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

my $oBase=clBase->new();
my $fechaOut=time-60*60*24*2;
my $query=qq~
	SELECT cTitulo, cCuerpo, cFecha, idBeca FROM tbeca WHERE cFecha>$fechaOut 
	ORDER BY cFecha
~;
my @Row=$oBase->Seleccionar($query);
my @ListaDeParametros;

foreach my $Puntero (@Row) {
	my %ParametrosInternos;
	$ParametrosInternos{TITULO_BECA}=$$Puntero[0];
	$ParametrosInternos{CUERPO_BECA}=$$Puntero[1];
	$ParametrosInternos{FECHA_BECA}=&Fechas($$Puntero[2]);
	$ParametrosInternos{ID_BECA}=$$Puntero[3];

	push @ListaDeParametros, {%ParametrosInternos};
}		

$html=Generales::LoopDatos2Html($html, \@ListaDeParametros, 'DESTACADO');

########################## IMPRIMISION ############################################
$html =Generales::procesarDinamico($html);
$html =Generales::poneLineas($html);
Generales::imprimir($html);
#############################################################################################
sub Fechas{
    #Variables para la fecha
    my $fecha;
    my $ahora = shift;
    if ($ahora){
	    my $semdia = ('Domingo', 'Lunes', 'Martes', 'Mi&eacute;rcoles', 'Jueves', 'Viernes', 'S&aacute;bado')[(localtime($ahora))[6]];
	    my $mes = ('Enero','Febrero','Marzo','Abril','Mayo', 'Junio','Julio','Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre')[(localtime($ahora))[4]];
	    my $mesdia = (localtime($ahora))[3];
	    my $anio = (localtime($ahora))[5] + 1900;
	    $fecha = "$semdia $mesdia de $mes de $anio";
		my $min =  (localtime($ahora))[1];
		if (length $min<2) { $min='0'.$min;}
		if ($min>0) {
			$min=":$min";
		}else{
			$min="";
		}
		my $hora = (localtime($ahora))[2];

		$fecha = "$mesdia de $mes de $anio";
	}	
    return $fecha;
}