% if ($cp_count){ % my $first = $cp_nrec + 1; % my $msg = "anúncio $first de $cp_count"; % } % #------- sectores ----------------------------------------------------- % foreach my $field (keys %fields){ % % my $fieldrec = $fields{$field}; % next unless $fieldrec->{'value'}; % $fieldrec->{'value'} =~ s/\n/
/mg; % % } % #------- nav bar ----------------------------------------------------- % if ($prev || $next){ % my $base_url = "/concursos/entidades"; <& /_shared/templates/nav/close.html &> % } % #------- debug ------------------------------------------------------- % if (0){ % }

<%$msg%>

Anúncio: <% $no_anuncio %> Diário: <% $no_diario %> <% $data_diario %> <% $titulo %>

% my $sth_sectores = $dbh->prepare("select tconcursos_sectores_old.no_presente, sector from trel_concursos_sectores_old, tconcursos_sectores_old where cod_concurso=$id and tconcursos_sectores_old.no_presente=cod_sector"); % $sth_sectores->execute(); % while (my @row = $sth_sectores->fetchrow){ % my $base_url = "/concursos"; % my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m", newargs=>{cp_sector=>$row[0]}); <% $row[1] %>; % }

<% $fieldrec->{'label'} %>:

<% $fieldrec->{'value'} %>

<& /_shared/templates/nav/open.html &> % if ($prev){ % my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m",newargs=>{cp_nrec=>$cp_nrec-1}); % my $url = "$base_url/$prev?$search_args"; <& /_shared/templates/nav/previous_on.html, url=>$url &> % }else{ <& /_shared/templates/nav/previous_off.html &> % } % if ($next){ % my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m",newargs=>{cp_nrec=>$cp_nrec+1}); % my $url = "$base_url/$next?$search_args"; <& /_shared/templates/nav/next_on.html, url=>$url &> % }else{ <& /_shared/templates/nav/next_off.html &> % }

> % foreach my $field (keys %infofields){ % % my $fieldrec = $infofields{$field}; % #next unless $fieldrec->{'value'}; % % } <% $fieldrec->{'label'} %>: <% $fieldrec->{'value'} %>

<%args> $cod_entidade=>undef $cp_nrec=>0 $cp_count=>0 $prev=>undef $next=>undef <%init> use Tie::IxHash; my $self = $m->current_comp; my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m"); my ($id, $no_anuncio, $no_diario, $cod_entidade, $titulo, $data_diario, $caucao, $caucao_percentagem, $designacao, $base_licitacao, $data_entrega, $hora_entrega, $local_entrega, $caderno_encargos, $preco_caderno_encargos, $alvaras, $data_acto_publico, $hora_acto_publico, $prazo_execucao, $moeda, $cod_rectificacao) = $dbh->selectrow_array("select * from tconcursos_publicos where cod_entidade='$cod_entidade'"); my $entidade = $dbh->selectrow_array("select entidade from tconcursos_entidades where id=$cod_entidade"); my ($moeda_iso, $moeda_conversao) = $dbh->selectrow_array("select iso,conversao from tconcursos_moedas where id=$moeda"); $data_entrega = $m->comp("/_shared/procs/utils/getdatestr.m", data=>$data_entrega, hora=>$hora_entrega); $data_acto_publico = $m->comp("/_shared/procs/utils/getdatestr.m", data=>$data_acto_publico, hora=>$hora_acto_publico); $caucao = ($caucao_percentagem) ? "$caucao%":$m->comp("/_shared/procs/utils/getformatnumber.m",number=>$caucao) . " $moeda_iso" if $caucao; $base_licitacao = $m->comp("/_shared/procs/utils/getformatnumber.m",number=>$base_licitacao) . " $moeda_iso" if $base_licitacao; $preco_caderno_encargos = $m->comp("/_shared/procs/utils/getformatnumber.m",number=>$preco_caderno_encargos) . " $moeda_iso" if $preco_caderno_encargos; $prazo_execucao .= " dias" if $prazo_execucao; my @sectores = $dbh->selectrow_array("select sector from trel_concursos_sectores_old, tconcursos_sectores_old where cod_concurso=$id and tconcursos_sectores_old.no_presente=cod_sector"); tie my %fields, "Tie::IxHash",( designacao => {label=>'Designação', value=>$designacao}, entidade => {label=>'Entidade', value=>$entidade}, base_licitacao => {label=>'Base de Licitação', value=>$base_licitacao}, prazo_execucao => {label=>'Prazo de Execução da Obra', value=>$prazo_execucao}, caderno_encargos => {label=>'Local de Levantamento do Caderno de Encargos', value=>$caderno_encargos}, preco_caderno_encargos => {label=>'Preço do Caderno de Encargos', value=>$preco_caderno_encargos}, data_entrega => {label=>'Data Limite para Entrega das Propostas', value=>$data_entrega}, local_entrega => {label=>'Local de Entrega das Propostas', value=>$local_entrega}, data_acto_publico => {label=>'Data e Hora do Acto Público', value=>$data_acto_publico}, alvaras => {label=>'Alvarás', value=>$alvaras}, caucao => {label=>'Caução', value=>$caucao}, ); tie my %infofields, "Tie::IxHash",( id => {label=>'id', value=>$id}, caucao_percentagem => {label=>'caucao_percentagem', value=>$caucao_percentagem}, moeda => {label=>'moeda', value=>$moeda}, cod_rectificacao => {label=>'cod_rectificacao', value=>$cod_rectificacao} );