#!/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/clApunte.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';
my $ref=Generales::Entrada();
my %para=%$ref;



######################################################################

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

close ARCHI;

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

my $oApunte=clApunte->new();
my @Lista=$oApunte->lista("tapunte.cTitulo ASC", '','',"tapunte.idApunte=$para{id}", 'tapunte.idApunte as c01, tapunte.cTitulo as c02, tapunte.cCuerpo as c03');
my @ListaDeParametros;
foreach my $Puntero (@Lista) {
	my %ParametrosInternos;
	$ParametrosInternos{IDT}=$$Puntero[0];
	$ParametrosInternos{TITULOT}=$$Puntero[1];
	$ParametrosInternos{CUERPOT}=$$Puntero[2];


	push @ListaDeParametros, {%ParametrosInternos};
}		

$html=Generales::LoopDatos2Html($html, \@ListaDeParametros, 'APUNTES');
$html=~ s/<!--APUNTES-ABRE-->.*<!--APUNTES-CIERRA-->//;
########################## IMPRIMISION ############################################
$html =Generales::procesarDinamico($html,1);
$html =Generales::poneLineas($html);
Generales::imprimir($html);
#############################################################################################