Franciscanas

#!/usr/bin/perl -U #use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html; charset=utf-8 \n\n"; use lib "."; use Switch; use Modulos::ConectaBd; use Modulos::ExecutaBd; use Modulos::Util; use Modulos::Request; $dbh = conectaBanco(); %FORM = processaRequisicao(); print < Franciscanas

Galeria de Fotos

END # LISTAGEM DE EVENTOS $campos = "e.id_evento|e.nome|e.descricao|DATE_FORMAT(e.data_evento, '%d/%m/%Y')|a.arquivo_foto|e.id_categoria"; $vars = "id|nome|descricao|data|arquivo|categoria"; if ($FORM{categoria} <= 0) { # SEM CATEGORIA SELECIONADA $lista = "SELECT | FROM eventos e LEFT JOIN fotos_evento a ON e.id_evento = a.id_evento GROUP BY e.id_evento ORDER BY e.data_evento DESC"; } else { # COM CATEGORIA SELECIONADA $lista = "SELECT | FROM eventos e LEFT JOIN fotos_evento a ON e.id_evento = a.id_evento WHERE e.id_categoria = $FORM{categoria} GROUP BY e.id_evento ORDER BY e.data_evento DESC"; } ($dados, $fetch) = buscaDados($dbh, $lista, $campos, $vars) or die "$DBI::errstr\n"; while( $fetch->() ) { $id = $dados->{id}; $nome = $dados->{nome}; $descricao = $dados->{descricao}; $descricao_parte = substr($descricao,0,200); $arquivo = $dados->{arquivo}; $data = $dados->{data}; $comeco_link = ""; $fim_link = ""; if ($arquivo ne ""){ #EVENTOS COM FOTOS print <

$data - $nome

$comeco_link

$fim_link

$descricao_parte...

$comeco_link Clique aqui para ver mais.$fim_link

END } else { #EVENTOS SEM FOTOS print <

$data - $nome

$descricao_parte...

$comeco_link Clique aqui para ver mais.$fim_link

END } } print <

END desconectaBanco($dbh);