--- loncom/interface/lonaboutme.pm 2002/08/28 14:11:27 1.4 +++ loncom/interface/lonaboutme.pm 2003/02/10 16:22:28 1.11 @@ -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.11 2003/02/10 16:22:28 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -69,8 +69,13 @@ ENDDOCUMENT my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum); $r->print(&Apache::loncommon::bodytag ("Personal Information",$forcestudent,'','',$cdom)); - $r->print('
'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom). '
'); my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum); @@ -84,7 +89,8 @@ ENDDOCUMENT if ($allowed) { $r->print('Privacy Note: 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.
'. - ''); + 'Show Public View'. + &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'
'); } if (($ENV{'form.uploaddoc.filename'}) && ($ENV{'form.storeupl'}) && ($allowed)) { @@ -99,8 +105,8 @@ ENDDOCUMENT foreach (keys %syllabusfields) { my $field=$ENV{'form.'.$_}; $field=~s/\s+$//s; - $field=~s/\\<\;/g; - $field=~s/\>/\>\;/g; + $field=&Apache::lonfeedback::clear_out_html($field, + $ENV{'user.adv'}); $syllabus{$_}=$field; } $syllabus{'uploaded.lastmodified'}=time; @@ -109,8 +115,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('