#!/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/Generales.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/Destacados.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/clBase.pm';
my $ref=Generales::Entrada();
my %para=%$ref;
my $idTapa_sec;
my $nombreTapa_sec;
my @Notas;
my $hoy = time;
my $oEvento;
my $Puntero;


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

if (!$para{mes}) {
	$para{mes}=-1;
}
my $anio=(localtime($hoy))[5] + 1900;
my $mes=((localtime($hoy))[4])+$para{mes};
if ($mes>11) {
	$mes=0;
}
if ($mes==1) {
	$anio-=1;
	$mes=11;
	$para{mes}-=2;
}
if ($mes==0) {
	$anio+=1;
	$mes=3;
	$para{mes}+=2;
}
if ($mes<0) {
	my $cantidad=int($mes/12)*-1+1;
	$anio-=$cantidad;
	$mes=12*$cantidad+$mes;
}


my $mesPasado=(timelocal 0,0,0,1,$mes,$anio);
my $cantDiasMes=Generales::DiasMes($mes);
my $mesSguiente=(timelocal 0,0,0,1,$mes,$anio)+60*60*24*$cantDiasMes;
open (ARCHI, $ENV{DOCUMENT_ROOT}.'calendario/tpl/pasadas.htm')||print $!."- calendario.pl<br>\n";
while ($linea = <ARCHI>){
	$html .= $linea;
}

close ARCHI;

$html =Generales::sacaLineas($html);
#Generales::Debug($mes." ".$anio);
if (($mes<4&&$anio==2004)||$anio<2004) {
	$html=~s/(<!--MESANT-A-->)(.*)(<!--MESANT-C-->)//gi;	
}
my $mesCambio=$para{mes}-1;
my $mesCambioP=$para{mes}+1;
if ($mesCambioP==0) {
	$html=~s/(<!--MESSIG-A-->)(.*)(<!--MESSIG-C-->)//gi;	
}
$html=~s/<!--MES-CAMBIO-->/$mesCambio/gi;
$html=~s/<!--MES-CAMBIOP-->/$mesCambioP/gi;
   
my $unasemana=$hoy+60*60*24*7;
my @Actividades = $oBase->Seleccionar(qq~SELECT tnota.idNota from 
											  ((((tnota INNER JOIN  tnotahorario on tnotahorario.idNota = tnota.idNota)
											    INNER JOIN  thorario on thorario.idHorario = tnotahorario.idHorario)
												LEFT JOIN  tnotasala on tnotasala.idNota = tnota.idNota)
												LEFT JOIN  tsala on tsala.idSala = tnotasala.idSala)
											  WHERE thorario.cFechaOut>$mesPasado AND thorario.cFechaIn<$mesSguiente
								   AND tnota.isPub=2
								   GROUP BY tnota.idNota
								   ORDER BY thorario.cFechaIn ASC, tsala.cOrden ASC 
						   ~); 

my $contador=0;
my @TipoEvento;
foreach $Puntero (@Actividades){
	my $nota=$$Puntero[0];
	my $tipo;
	($html, $tipo) = Destacados::New($html, $nota);	
	$TipoEvento[$tipo]=1;
}

$html=~ s/<!--IDEVENTOSA-->.*<!--IDEVENTOSC-->//gi if !$TipoEvento[2];
$html=~ s/<!--IDMUESTRASA-->.*<!--IDMUESTRASC-->//gi if !$TipoEvento[1];
$html=~ s/<!--IDMUESTRASAA-->.*<!--IDMUESTRASAC-->//gi if !$TipoEvento[3];
$html=~ s/<!--DESTACADOABREM-->.*<!--DESTACADOCIERRAM-->//;
$html=~ s/<!--DESTACADOABREE-->.*<!--DESTACADOCIERRAE-->//;
$html=~ s/<!--DESTACADOABREMA-->.*<!--DESTACADOCIERRAMA-->//;

#my $mes = ('Enero','Febrero','Marzo','Abril','Mayo', 'Junio','Julio','Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre')[(localtime($ahora))[4]];~
my $ahora=time;
my $mes = (localtime($ahora))[4]+1;
my $anio = (localtime($ahora))[5] + 1900;
my $flagLoop=0;
my $mesAtras=0;
my $opciones;
while(!$flagLoop){
	$mesAtras--;
	$mes--;
	if ($mes<3) {
		$mes=12;
		$anio--;
		$mesAtras--;
		$mesAtras--;
	}
	if ($anio==2004&&$mes==4) {
		$flagLoop=1;
	}
	my $nombreMes=('','Enero','Febrero','Marzo','Abril','Mayo', 'Junio','Julio','Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre')[$mes];
	$opciones.=qq~ <option value="$mesAtras">$nombreMes de $anio</option>
					~;
}

$html=~s/<!--MESES_ANTERIORES-->/$opciones/gi;

########################## IMPRIMISION ############################################
$html =Generales::procesarDinamico($html, $para{mes});
$html =Generales::poneLineas($html);
Generales::imprimir($html);
#############################################################################################