%#<form name='postmsg' action="/mensagens/servicos/colocar/preview.html" method="post">
<input type="hidden" name="ft" value=0>
<input type="hidden" name="msgid" value="<%$msgid%>">

% if ($ms_adderr){
<div class='err' style='padding: 6px; background-color: lightyellow; border-bottom: solid 1px #ccc' class='help' align=center>
%	if ($ms_adderr eq 'empty_cat'){	
			<%"Por favor seleccione uma categoria para classificar a sua mensagem"|l%>
%	}elsif ($ms_adderr eq 'empty_subject'){	
			<%"Por favor preencha o assunto da mensagem"|l%>
%	}elsif ($ms_adderr eq 'empty_msg'){
			<%"Por favor preencha o corpo da mensagem"|l%>
%	}else{
			<%"Ocorreu um erro no envio da mensagem"|l%>. 
			<%"Por favor tente de novo"|l%>.<br>
			<%'Se o problema persistir, contacte-nos para <a class=err href=mailto:assistencia@guianet.pt>assistencia@guianet.pt</a>'|l%>.
%	}
</div>
% }else{
<div style='padding: 6px; background-color: lightyellow; border-bottom: solid 1px #ccc' class='help' align=center>
			<%"Utilize este espaço para compor a sua mensagem"|l%>. 
			<%"Quando terminar clique em verificar"|l%>.
			<%"Poderá em qualquer altura eliminá-la voltando à área de colocação de mensagens"|l%>.<br>
</div>
% }	


<div align=center>
<div align='left' style='padding: 12px; width: 90%'>
		
		<& /mensagens/templates/selected_sectors.html &>

		<div style='height:16px;'></div>

		<%$labels{sub}%>:<br>
		<input type='text' name='assunto' size=48 value="<%$assunto%>"><br>
		
		<div style='height:16px;'></div>
		
		<%$labels{msg}%>:<br>
		<textarea name='mensagem' rows=12 cols=50><%$mensagem%></textarea>

		<br>
		<div align=right>
		<input type='submit' name='verificar' value="<%$labels{butt}%>">
		</div>
	</div>
</div>
<%args>
$ms_adderr=>undef
$assunto=>undef
$mensagem=>undef
$username=>undef
$userid=>undef
$msgid=>undef
$ft=>1
</%args>
<%init>
# save return page (first time only)
if ($ft == 1){
	my $referer = $m->comp("/_shared/procs/utils/getreferer.m", delargs=>{chp=>1});
	
	# do not return to login page
	if ($referer =~ /\/login\// ){
		$referer = $m->comp("/_shared/procs/windows/get_window_behind.m", id=>'mensagens');
	}
	
	$m->comp("/_shared/procs/windows/saveview.m",section=>'mensagens', location => $referer);

}

if ($msgid && !$assunto && !$mensagem){
	# ler mensagem da base de dados
	my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m");
	($msgid) =  $dbh->selectrow_array("select id from tmensagens where tmensagens.id='$msgid'"); # make sure it's still there...
	($assunto, $mensagem) = $dbh->selectrow_array("select rtitulo, rmensagem from tmensagens where tmensagens.id='$msgid'");
}	
my %labels = (	sub => $m->comp("/_shared/procs/utils/localize.m", str=>'assunto'), 
				msg => $m->comp("/_shared/procs/utils/localize.m", str=>'mensagem'), 
				butt => $m->comp("/_shared/procs/utils/localize.m", str=>'verificar')
			);
</%init>
%#--------------------------------------------------------------------------------------
<%method form_start>
%#--------------------------------------------------------------------------------------
<&PARENT:form_start, step=>'preview'&>
%#<form action="/mensagens/servicos/colocar/preview.html" method="post" name="main">
%#<input type='hidden' name='stab' value=3>
</%method>