%#
% if ($ms_adderr){
% 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%>.
<%'Se o problema persistir, contacte-nos para assistencia@guianet.pt'|l%>. % }
% }else{
<%"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%>.
% }
<& /mensagens/templates/selected_sectors.html &>
<%$labels{sub}%>:

<%$labels{msg}%>:

<%args> $ms_adderr=>undef $assunto=>undef $mensagem=>undef $username=>undef $userid=>undef $msgid=>undef $ft=>1 <%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') ); %#-------------------------------------------------------------------------------------- <%method form_start> %#-------------------------------------------------------------------------------------- <&PARENT:form_start, step=>'preview'&> %# %#