% if (!$erro){ <%perl> my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m"); my ($first, $last, $email) = $dbh->selectrow_array("select rfirst, rlast, remail from twebusers where twebusers.username='$username'"); my $sender = "$first $last"; my $rdata = localtime(time); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); my $data = ($year+1900) . "-" . ($mon +1) . "-" . $mday; my $hora = $hour . ":" . sprintf("%0.2d",$min) . ":" . sprintf("%0.2d",$sec); my $datestr = $m->comp("/_shared/procs/utils/getdatestr.m", data=>$data, hora=>$hora, painel=>$painel); my $dspmensagem = $mensagem; $dspmensagem =~ s/\n/
\n/g; $mensagem = $m->comp("/_shared/procs/utils/encodeforform.m",str=>$mensagem); # css my $style = ($painel) ? "painel":"mensagens"; %#
<%"A sua mensagem será publicada desta forma"|l%>.
<%"Para confirmar, clique enviar"|l%>. <%"Para modificar, clique alterar"|l%>.
<& /mensagens/templates/mensagem.html, rtitulo => $assunto, sender=>$sender, email=>$email, datestr=>$datestr, rmensagem=>$dspmensagem, ms_sector=>$ms_sector &>
% return;
<%$assunto%>
<% $sender %> (<%$email%>)
<%$datestr%> GMT

<% $dspmensagem %>



% }else{ % $m->comp("/mensagens/servicos/colocar/default.html", ft=>0, ms_adderr=>$erro, username=>$username, assunto=>$assunto, mensagem=>$mensagem) % } <%args> $msgid=>undef $username=>undef $assunto=>undef $mensagem=>undef $ms_sector => undef $painel=>0 <%init> my $erro = $m->comp("/mensagens/servicos/colocar/check_post.m",assunto=>$assunto, mensagem=>$mensagem, categoria => $ms_sector); my %labels = ( alt => $m->comp("/_shared/procs/utils/localize.m", str=>'alterar'), send => $m->comp("/_shared/procs/utils/localize.m", str=>'enviar')); %#-------------------------------------------------------------------------------------- <%method form_start> %#-------------------------------------------------------------------------------------- <&PARENT:form_start, step=>'preview'&> %# %#