preview posts

[ndwebbie.git] / ND / Web / Forum.pm

diff --git a/ND/Web/Forum.pm b/ND/Web/Forum.pm
index 8eca745423053ee6332f147d8c9df52f00a5cc7e..be9a10f7c5fddf550fd22cd1ae316074633e26b6 100644 (file)
--- a/ND/Web/Forum.pm
+++ b/ND/Web/Forum.pm
@@ -54,7 +54,12 @@ ORDER BY fp.time ASC
                $post->{message} = parseMarkup($post->{message});
                push @posts,$post;
        }
+
+       if (defined param('cmd') && param('cmd') eq 'Preview'){
+               push @posts,{message => parseMarkup(escapeHTML(param('message'))), unread => 1, username => 'PREVIEW', Time => 'Not submitted yet', NewPosts => $old ? 1 : 0};
+       }
        $template->param(Posts => \@posts);
+       $template->param(Message => param('message'));
 
        markThreadAsRead($thread->{id});