--- loncom/interface/lonsimplepage.pm	2002/09/10 19:01:53	1.1
+++ loncom/interface/lonsimplepage.pm	2003/02/11 15:20:06	1.6
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Simple Page Editor
 #
-# $Id: lonsimplepage.pm,v 1.1 2002/09/10 19:01:53 www Exp $
+# $Id: lonsimplepage.pm,v 1.6 2003/02/11 15:20:06 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@ use Apache::Constants qw(:common);
 use Apache::loncommon;
 use Apache::lonnet;
 use Apache::lontexconvert;
+use Apache::lonfeedback;
 
 sub handler {
     my $r = shift;
@@ -47,7 +48,7 @@ sub handler {
 <title>The LearningOnline Network with CAPA</title>
 </head>
 ENDDOCUMENT
-    my (undef,undef,$marker)=split(/\//,$r->uri);
+    my (undef,undef,undef,undef,$marker)=split(/\//,$r->uri);
 # Is this even in a course?
     unless ($ENV{'request.course.id'}) {
 	$r->print('<body>Not in a course</body>');
@@ -81,15 +82,16 @@ ENDDOCUMENT
 # --------------------------------------- There is such a user, get environment
 
     $r->print(&Apache::loncommon::bodytag
-            ("Course Page ".$syllabus{'aaa_title'},$forcestudent,'','',$dom));
+            ("Course Page",$forcestudent,'','',$dom));
 
     my $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});
 
        if ($forcestudent) { $allowed=0; }
  
        if ($allowed) {
-          $r->print(
-	  '<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');
+          $r->print('<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 +106,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;
@@ -134,13 +135,26 @@ ENDDOCUMENT
               $message
              =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
 	      $message=&Apache::lontexconvert::msgtexconverted($message);
-              $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.
+            unless ($_ eq 'aaa_title') {
+		if (($_ ne 'bbb_content') || ($allowed)) {
+                    $r->print('<h3>'.$syllabusfields{$_}.'</h3>');
+		}
+                 $r->print('<blockquote>'.
                         $message.'</blockquote>');
-              if ($allowed) {
-                 $r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'.
+                 if ($allowed) {
+                $r->print('<br /><textarea cols="80" rows="20" name="'.$_.'">'.
 			   $syllabus{$_}.
            '</textarea><input type="submit" name="storesyl" value="Store" />');
-	      }
+	        }
+	    } else {
+		$r->print('<h1>'.$message.'</h1>');
+                if ($allowed) {
+                 $r->print(
+                '<br />Title<br /><textarea cols="80" rows="2" name="'.$_.'">'.
+			   $syllabus{$_}.
+           '</textarea><input type="submit" name="storesyl" value="Store" />');
+                }
+            }
 	  }
        }
        if ($allowed) {
