--- loncom/interface/lonaboutme.pm	2002/08/27 21:05:04	1.3
+++ 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.3 2002/08/27 21:05:04 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,15 @@ 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);
     my $allowed=0;
 
@@ -81,8 +89,9 @@ ENDDOCUMENT
        if ($forcestudent) { $allowed=0; }
  
        if ($allowed) {
-          $r->print(
-	  '<p><a href="'.$r->uri.'?forcestudent=1">Show Student View</a></p>');
+          $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>'.
+&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)) {
@@ -97,13 +106,9 @@ ENDDOCUMENT
 	   foreach (keys %syllabusfields) {
                my $field=$ENV{'form.'.$_};
                $field=~s/\s+$//s;
-               $field=~s/\</\&lt\;/g;
-               $field=~s/\>/\&gt\;/g;
-	       if ($field) {
-		   $syllabus{$_}=$field;
-               } else {
-                   delete $syllabus{$_};
-               }
+               $field=&Apache::lonfeedback::clear_out_html($field,
+                                                           $ENV{'user.adv'});
+	       $syllabus{$_}=$field;
            }
            $syllabus{'uploaded.lastmodified'}=time;
            &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
@@ -111,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'}).
@@ -149,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;
 }