# FILE: src-board-subs-5 #------------------------------------------------------------------------------- # This script is copyright (c) 1998 by DiscusWare, LLC, all rights reserved. # Its use is subject to the license agreement that can be found at the following # URL: http://www.chem.hope.edu/discus/license #------------------------------------------------------------------------------- #---SEPARATOR---# #REQ:extract_colorsonly sub preview_admin_message { local ($message_source, $message_formatted, $username, $referer, $action, $mtitle) = @_; &header; print "
\n"; print "A preview of your message appears below. If you used any "; print "formatting tags in your message, please check to see that your "; print "formatting is displayed correctly in the preview.
\n"; print "
$message_formatted"; print " |
\n"; print "
"; print " |