% 	if ($cp_count){
%		my $first = $cp_nrec + 1;
%		my $msg = "anúncio $first de $cp_count";
% #------- nav bar -----------------------------------------------------
	<& /concursos/templates/nav_bar.html, section=>$section, msg=>$msg, prev=>$prev,next=>$next,cp_nrec=>$cp_nrec,cp_count=>$cp_count, pos=>'top' &>
%	}
%#================== cabeçalho ===============================================
<div style='padding: 12px 12px 0px 12px'>
	<table cellpadding=0 cellspacing=0 border=0 width="100%">
		<tr>
			<td class='concursos-id'><% $no_anuncio %></td>
			<td class='concursos-id' align=right>Diário <% $no_diario %> <% $data_diario %></td>
		</tr>
	</table>
</div>

%#------- anuncio rectificado -----------------------------------------------------
% 	if($no_anuncio_rectificacao){
%   	my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m");#,newargs=>{cp_nrec=>$cp_nrec-1,cp_count=>$cp_count});
		<div style='padding: 3px 12px 0px 12px'>
			<span class='concursos-rect'>Este an&uacute;ncio foi rectificado<br></span>
			<span class='concursos-anuncio'>Pode verificar as altera&ccedil;&otilde;es assinaladas ou consultar a vers&atilde;o actualizada: <a href="/concursos/anuncios/<%$no_anuncio_rectificacao%>?<%$search_args%>" class='concursos-anuncio'><%$no_anuncio_rectificacao%></a><br></span>
		</div>
%#------- rectificao de outro anuncio -----------------------------------------------------
% 	}	elsif ($rectificacao_de){
%   	my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m");#,newargs=>{cp_nrec=>$cp_nrec-1,cp_count=>$cp_count});
		<div style='padding: 3px 12px 0px 12px'>
			<a class="concursos-rect" href="/concursos/anuncios/<%$rectificacao_de%>?<%$search_args%>">rectifica&ccedil;&atilde;o de <%$rectificacao_de%></a><br>
		</div>
%	}
%#------- anuncio anulado -----------------------------------------------------
% 	if($no_anuncio_anulacao){
%   	my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m");#,newargs=>{cp_nrec=>$cp_nrec-1,cp_count=>$cp_count});
		<div style='padding: 3px 12px 0px 12px'>
			<span class='concursos-rect'>Este an&uacute;ncio foi anulado<br></span>
			<span class='concursos-anuncio'>Pode ver aqui  o anúncio de anulação: <a href="/concursos/anuncios/<%$no_anuncio_anulacao%>?<%$search_args%>" class='concursos-anuncio'><%$no_anuncio_anulacao%></a><br></span>
		</div>
%#------- anulacao de outro anuncio -----------------------------------------------------
%	}elsif ($anulacao_de){
%   	my $search_args = $m->comp("/_shared/procs/utils/get_searchargs.m");#,newargs=>{cp_nrec=>$cp_nrec-1,cp_count=>$cp_count});
		<div style='padding: 3px 12px 0px 12px'>
			<a class="concursos-rect" href="/concursos/anuncios/<%$anulacao_de%>?<%$search_args%>">Anula&ccedil;&atilde;o de <%$anulacao_de%></a><br>
		</div>
%	}

%#================== titulo ===============================================
<div class='gen-title' style='padding: 12px 12px 0px 12px; width: 80%'><% $titulo %></div>

%#------- sectores -----------------------------------------------------
<div class='concursos-sectores' style='padding: 0px 12px 0px 12px;'>
% 	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=trel_concursos_sectores_old.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]});
% 		#<a class='concursos-th' href="<%$base_url%>?<%$search_args%>"><% $row[1] %></a>; 
		<% $row[1] %>; 
% 	}
</div>
%#================== campos ===============================================
%	foreach my $field (keys %$fields){	
%		my ($r_fieldrec,$r_value) = (undef, undef);
%		my $fieldrec = $fields->{$field};
%		my $value = $fieldrec->{'value'};
%		if ($no_anuncio_rectificacao){
%			$r_fieldrec = $r_fields->{$field};
%			$r_value = $r_fieldrec->{'value'};
%		}
%		next unless $value || $r_value;
<div style='height: 12px;'></div>
<div class='concursos-label' style='background-color: #ecf1f3; padding: 0px 12px 0px 12px;'><% $fieldrec->{'label'} %>:</div>
<div class='concursos-block' style='padding: 6px 24px 6px 24px'>
%		if ($no_anuncio_rectificacao && ($value ne $r_value)){
%			my @vlines = split /\r\n/, $value;
%			my @r_vlines = split /\r\n/, $r_value;
%			my $len = ($#vlines > $#r_vlines) ? $#vlines:$#r_vlines;
%			my $i1 = 0;
%			my $i2 = 0;
%			my $i = 0;
%			while (($i1<=$#vlines) || ($i2<=$#r_vlines)){
%# 	<span class='note'>[<%$i++%>] <%$i1%>: '<% $vlines[$i1] %>'</span> | <span class='note'><%$i2%>: '<% $r_vlines[$i2] %>'</span><br>
%				if ($vlines[$i1] ne $r_vlines[$i2]){
%					if ($vlines[$i1+1] eq $r_vlines[$i2]){
%						# line deleted	
	<span class='concursos-rect-wrong'><% $vlines[$i1] %></span><br>
%						$i1++;
%					}elsif($vlines[$i1] eq $r_vlines[$i2+1]){		
%						# line inserted	
	<span class='concursos-rect'><% $r_vlines[$i2] %></span><br>
%						$i2++;
%					}else{
%						# line changed	
	<span class='concursos-rect-wrong'><% $vlines[$i1] %></span> <span class='concursos-rect'><% $r_vlines[$i2] %></span><br>
%						$i1++;$i2++;
%					}
%				}else{					
%					# no changes
	<% $vlines[$i1] %><br>
%					$i1++;$i2++;
%				}
%			}
%###NEW-OFF###	</td></tr>
%		}else{	
%			$value =~ s/\n/<br>/mg;
%###NEW-OFF###	<tr><td class='concursos-block' colspan=2><% $value %></td></tr>
<% $value %>
%		}
</div>
%	}

%###NEW-OFF###</table>

% #------- nav bar -----------------------------------------------------
<div style='border-top: solid 1px #ccc;'>
<& /concursos/templates/nav_bar.html, section=>$section, prev=>$prev,next=>$next,cp_nrec=>$cp_nrec,cp_count=>$cp_count, cp_adj=>$cp_adj, pos=>'bottom' &>
</div>

<& /concursos/templates/nota.html,cp_adj=>$cp_adj &>

<%args>
$cod_anuncio=>undef
$cp_nrec=>0
$cp_count=>0
$prev=>undef
$next=>undef
$section=>undef
$user=>undef
$cp_adj=>undef
</%args>
<%init>
$section = $m->top_args->{section} unless $section;
my $self = $m->current_comp;
my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m");

my ($fields, $infofields, $id, $no_anuncio, $no_diario, $data_diario, $titulo) = $m->comp("/_shared/procs/concursos/cp_getfields.m", cod_anuncio=>$cod_anuncio, user=>$user);
return $m->comp("anuncio_inexistente.html") unless $id;

######### RECTIFICACAO #######
my $cod_rectificacao = $infofields->{cod_rectificacao}->{value};
my ($no_anuncio_rectificacao) = $dbh->selectrow_array("select no_anuncio from tconcursos_publicos where id='$cod_rectificacao'") if ($cod_rectificacao);

my ($r_fields, $r_infofields, @dummy) = $m->comp("/_shared/procs/concursos/cp_getfields.m", cod_anuncio=>$no_anuncio_rectificacao) if ($no_anuncio_rectificacao);

my ($rectificacao_de) = $dbh->selectrow_array("select no_anuncio from tconcursos_publicos where cod_rectificacao='$id'") unless ($no_anuncio_rectificacao);
######### ANULACAO #######
my $cod_anulacao = $infofields->{cod_anulacao}->{value};
my ($no_anuncio_anulacao) = $dbh->selectrow_array("select no_anuncio, id from tconcursos_publicos where id='$cod_anulacao'") if ($cod_anulacao);
my ($anulacao_de) = $dbh->selectrow_array("select no_anuncio from tconcursos_publicos where cod_anulacao='$id'") unless ($no_anuncio_anulacao);

my $guest = $m->comp("/_shared/procs/users/login/isguest.m", user=>$user);
</%init>