% # vim: ft=perl <%args> $vars <%perl> my $args = $vars->{args}; my $idobra = $args->{id}; $idobra =~ s/\D//gmx; my $dbh = $vars->{dbh}; my $sql = <<"SQL"; SELECT * FROM tab_hp_obras WHERE edicao = 2013 AND seleccionada = 1 AND idobra = ? SQL my $sth = $dbh->prepare($sql); $sth->execute($idobra); my $dados_bd = $sth->fetchall_hashref('idobra'); my $dados = $dados_bd->{$idobra}; $sql = <<"SQL"; SELECT * FROM tab_hp_obras_anexos WHERE fk_idobra = ? SQL $sth = $dbh->prepare($sql); $sth->execute($idobra); my $anexos = $sth->fetchall_hashref('idanexo'); my ($fotos, $desenhos,$painel); foreach my $item (sort {$a<=>$b} keys %{$anexos}) { my $reg = $anexos->{$item}; if ( $reg->{tipo} == 1 ) { $fotos->{ $reg->{posicao} } = $reg; } elsif ( $reg->{tipo} == 2) { $desenhos->{ $reg->{posicao} } = $reg; } else { $painel = $reg; } } my $slide_desenhos; foreach my $item (sort {$a<=>$b} keys %{$desenhos}) { my $des = $desenhos->{$item}; next if $item == 10; $slide_desenhos .= qq|
$des->{legenda}
© $des->{copyright}
|; } my $slide_fotos; foreach my $item (sort {$a<=>$b} keys %{$fotos}) { my $des = $fotos->{$item}; next if $item == 1; $slide_fotos .= qq|
$des->{legenda}
© $des->{copyright}
|; } my $background = $fotos->{1}->{ficheiro}; my $img1 = $desenhos->{10}; #print Dumper($desenhos); Habitar Portugal 2009/2011
Habitar Portugal
<% $dados->{designacao} %>
<% $dados->{autor} %>
% if ($img1) {
<% $img1->{legenda} %>
© <% $img1->{copyright} %> - <% $img1->{legenda} %>
% }
Memória descritiva
% my $memoria = $dados->{memoria}; % $memoria =~s/\n/
/gmx;
<% $memoria %>
Desenhos
<% $slide_desenhos %>
Imagens
<% $slide_fotos %>
Ficha técnica
Autores: <% $dados->{autor} %>
Co-autores: <% $dados->{coautor} %>
Colaboradores: <% $dados->{colaboradores} %>
% my $especialidades = $dados->{especialidades}; % $especialidades =~s/\n/
/gmx;
Projectos especialidade: <% $especialidades %>
Localização: <% $dados->{morada} %>