--- loncom/interface/lonbulletin.pm	2002/09/10 20:53:36	1.2
+++ loncom/interface/lonbulletin.pm	2003/02/10 20:03:13	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network
-# Simple Page Editor
+# Bulletin Board Handler
 #
-# $Id: lonbulletin.pm,v 1.2 2002/09/10 20:53:36 www Exp $
+# $Id: lonbulletin.pm,v 1.6 2003/02/10 20:03:13 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,8 @@ use Apache::Constants qw(:common);
 use Apache::loncommon;
 use Apache::lonnet;
 use Apache::lontexconvert;
+use Apache::lonxml;
+use Apache::lonfeedback;
 
 sub handler {
     my $r = shift;
@@ -89,7 +91,9 @@ ENDDOCUMENT
  
        if ($allowed) {
           $r->print(
-	  '<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');
+	  '<p>'.
+&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1">Show Public View</a>'.
+ &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
       }
       if (($ENV{'form.uploaddoc.filename'}) &&
           ($ENV{'form.storeupl'}) && ($allowed)) {
@@ -104,8 +108,7 @@ ENDDOCUMENT
 	   foreach (keys %syllabusfields) {
                my $field=$ENV{'form.'.$_};
                $field=~s/\s+$//s;
-               $field=~s/\</\&lt\;/g;
-               $field=~s/\>/\&gt\;/g;
+               $field=&Apache::lonfeedback::clear_out_html($field,1);
 	       $syllabus{$_}=$field;
            }
            $syllabus{'uploaded.lastmodified'}=time;
@@ -141,7 +144,7 @@ ENDDOCUMENT
                  $r->print('<blockquote>'.
                         $message.'</blockquote>');
                  if ($allowed) {
-                $r->print('<br /><textarea cols="80" rows="20" name="'.$_.'">'.
+                $r->print('<br /><textarea cols="80" rows="10" name="'.$_.'">'.
 			   $syllabus{$_}.
            '</textarea><input type="submit" name="storesyl" value="Store" />');
 	        }