--- loncom/interface/lonaboutme.pm	2002/08/28 14:11:27	1.4
+++ loncom/interface/lonaboutme.pm	2003/02/10 20:03:13	1.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "About Me" Personal Information
 #
-# $Id: lonaboutme.pm,v 1.4 2002/08/28 14:11:27 www Exp $
+# $Id: lonaboutme.pm,v 1.12 2003/02/10 20:03:13 www 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;
@@ -69,8 +70,13 @@ ENDDOCUMENT
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     $r->print(&Apache::loncommon::bodytag
                            ("Personal Information",$forcestudent,'','',$cdom));
-    $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1><h3>'.
-              $Apache::lonnet::domaindescription{$cdom}.'</h3>'.
+    $r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
+    if ($courseenv{'nickname'}) {
+       $r->print(
+         '<h2>&quot;'.$courseenv{'nickname'}.
+         '&quot;</h2>');
+    }
+    $r->print('<h3>'.$Apache::lonnet::domaindescription{$cdom}.'</h3>'.
     '<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).
     '</p>');
     my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);
@@ -84,7 +90,8 @@ ENDDOCUMENT
  
        if ($allowed) {
           $r->print('<p><b>Privacy Note:</b> The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publically.</p>'.
-	  '<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');
+&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'</p><p><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)) {
@@ -99,8 +106,8 @@ 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,
+                                                           $ENV{'user.adv'});
 	       $syllabus{$_}=$field;
            }
            $syllabus{'uploaded.lastmodified'}=time;
@@ -109,8 +116,9 @@ ENDDOCUMENT
 
 # ---------------------------------------------------------------- Get syllabus
     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
-       $r->print('Last updated:'.
-                     localtime($syllabus{'uploaded.lastmodified'}));
+       my $lastmod=$syllabus{'uploaded.lastmodified'};
+       $lastmod=($lastmod?localtime($lastmod):'never');
+       $r->print('Last updated: '.$lastmod);
        if ($syllabus{'uploaded.photourl'}) {
 	   $r->print('<img src="'.
              &Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}).
@@ -147,6 +155,13 @@ ENDDOCUMENT
     } else {
        $r->print('<p>No personal information provided.</p>');
     }
+    if ($ENV{'request.course.id'}) {
+	if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
+            $r->print('<hr /><h3>User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course</h3>Shared by course faculty and staff<br />');
+	    &Apache::lonmsg::disfacetoface($r,$cnum,$cdom);
+            $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
+        }
+    }
     $r->print('</body></html>');
     return OK;
 }