#!/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
\n";
while ($linea = ){
$html .= $linea;
}
close ARCHI;
$html =Generales::sacaLineas($html);
if (!$oArtista->{urlLogo}) {
$oArtista->{urlLogo}='/grafica/spacer.gif';
}
$html =~ s //$oArtista->{idArtista}/gi;
$html =~ s //$oArtista->{cNombre}/gi;
$html =~ s //$oArtista->{cApellido}/gi;
$html =~ s //$oArtista->{cOcupacion}/gi;
$oArtista->{cBio} =~ s /\n/
\n/g;
$oArtista->{cBio}=Generales::MailsLinks($oArtista->{cBio});
$html =~ s //$oArtista->{cBio}/gi;
$html =~ s //$oArtista->{cEmail}/gi;
$html =~ s //$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/()(.*)()/$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//$$Fila[0]/gi;
$html2=~ s//$$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/gi;
$html2=~ s//$$Fila[3]/gi;
$html2=~ s//$$Fila[4]/gi;
my $horariosP=$oEvento2->{horarios};
my $horarios;
foreach my $hora (@$horariosP) {
if ($horarios) {
$horarios.='-';
}
$horarios.=&Fecha($$hora{HorarioIn});
}
$html2=~ s//$horarios/gi;
}
$html=~ s/.*/$html2/gi;
}
$busqueda=0 if ($busqueda<1);
$html=~ s//$script/gi;
$html=~ s//$anterior/gi;
$html=~ s//$listlink/gi;
$html=~ s//$siguiente/gi;
$html=~ s//$categoria/gi;
$html=~ s//$querystring/gi;
$html=~ s//$busqueda/gi;
$html=~ s/.*//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ércoles', 'Jueves', 'Viernes', 'Sá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ércoles', 'Jueves', 'Viernes', 'Sá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;
}