#!/usr/bin/perl
use strict;
$ENV{DOCUMENT_ROOT}.='/' if $ENV{DOCUMENT_ROOT};
require $ENV{DOCUMENT_ROOT}.'_adm/incs/Generales.pm';
require $ENV{DOCUMENT_ROOT}.'_adm/incs/clNota.pm';

my $ref=Generales::Entrada();
my %para=%$ref;
use CGI::Carp "fatalsToBrowser"; 
my $html;
my $linea;
my $check;
my $hoy = time;
my $fotoTapa;
my $epigrafeTapa;
my @Eventos;


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

my $oArtista = clArtista->new();
$oArtista->buscar($para{id});


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

if (!$oArtista->{urlLogo}) {
	$oArtista->{urlLogo}='/grafica/spacer.gif';
}

$html =~ s /<!--ARTISTA-->/$oArtista->{idArtista}/gi;
$html =~ s /<!--NOMBRE-->/$oArtista->{cNombre}/gi;
$html =~ s /<!--APELLIDO-->/$oArtista->{cApellido}/gi;
$html =~ s /<!--OCUPACION-->/$oArtista->{cOcupacion}/gi;
$oArtista->{cBio} =~ s /\n/<br>\n/g;
$oArtista->{cBio}=Generales::MailsLinks($oArtista->{cBio});
$html =~ s /<!--BIOGRAFIA-->/$oArtista->{cBio}/gi;
$html =~ s /<!--MAIL-->/$oArtista->{cEmail}/gi;
$html =~ s /<!--FOTO-->/$oArtista->{urlLogo}/gi;

if (!$oArtista->{cNombre}) {
	$oArtista->{cApellido}=$oArtista->{cApellido}.' ';
}
my $querystring=$oArtista->{cNombre}." ".$oArtista->{cApellido};

my $categoria;
my $busqueda;

my ($anterior, $siguiente, $listlink, $maxpag, $script, $cantidad);
if ($querystring) {
	my $where;
	my @Row;
	my $oEvento=clNota->new();
	$where=qq~ (tnota.cTitulo like '%$querystring%' OR tnota.cCopete like '%$querystring%' OR tnota.cVolanta like '%$querystring%' OR tnota.cCuerpo like '%$querystring%' OR tnota.cDestTitulo like '%$querystring%' OR tnota.cDestCopete like '%$querystring%' OR tnota.cDestVolanta like '%$querystring%' OR tnota.cDestCuerpo like '%$querystring%')~;
	#Generales::Debug($where);
	@Row=(@Row, $oEvento->lista("tnota.cTitulo",$para{cont},$maxpag,"$where AND tnota.isPub=2", 'tnota.idNota, tnota.cTitulo, tnota.cCopete, "Actividades" as Seccion, "/evento/evento.pl?evento=" as Link', 'tnota.idNota'));

	$busqueda=$#Row+1;


	my $html2;
	$html=~ s/(<!--DESTACADOABRE-->)(.*)(<!--DESTACADOCIERRA-->)/$1$2$3/i;
	my $destacado=$2;
	my $html2;
	my $contador=0;

	foreach my $Fila (@Row) {
		$contador++;
			my $oEvento2=clNota->new();
			$oEvento2->buscar($$Fila[0]);
			$html2.=$destacado;
			$html2=~ s/<!--ID-->/$$Fila[0]/gi;
			$html2=~ s/<!--TITULO-->/$$Fila[1]/gi;
			my $le=length $$Fila[2];
			my $copete=$$Fila[2];
			$copete=(substr $$Fila[2],0,110);
			$copete=~s/(\&(\w){0,6})$//gi;
			if ($le>110){
				$copete.="...";
			}
			$html2=~ s/<!--COPETE-->/$copete/gi;
			$html2=~ s/<!--SECCION-->/$$Fila[3]/gi;
			$html2=~ s/<!--LINK-->/$$Fila[4]/gi;
			my $horariosP=$oEvento2->{horarios};
			my $horarios;
			foreach my $hora (@$horariosP) {
				if ($horarios) {
					$horarios.='-';
				}
				$horarios.=&Fecha($$hora{HorarioIn});
			}
			$html2=~ s/<!--FECHA-->/$horarios/gi;
	}
	$html=~ s/<!--DESTACADOABRE-->.*<!--DESTACADOCIERRA-->/$html2/gi;
}

$busqueda=0 if ($busqueda<1);


$html=~ s/<!--SCRIPT-->/$script/gi;
$html=~ s/<!--ANTERIOR-->/$anterior/gi;
$html=~ s/<!--PAGINAS-->/$listlink/gi;            
$html=~ s/<!--SIGUIENTE-->/$siguiente/gi;  
$html=~ s/<!--CATEGORIA-->/$categoria/gi;  
$html=~ s/<!--BUSQUEDA-->/$querystring/gi; 
$html=~ s/<!--RESULTADOS-->/$busqueda/gi; 

$html=~ s/<!--DESTACADOABRE-->.*<!--DESTACADOCIERRA-->//gi;

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


############################################################################################################
sub Fecha{
    #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 = ('1','2','3','4','5', '6','7','8', '9', '10', '11', '12')[(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/$mes/$anio";
	}	
    return $fecha;
}	
sub Fecha2{
    #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;
}