--- loncom/interface/lonaboutme.pm 2002/09/13 19:40:48 1.5 +++ 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.5 2002/09/13 19:40:48 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; @@ -148,6 +154,13 @@ ENDDOCUMENT } else { $r->print('No personal information provided.
'); } + if ($ENV{'request.course.id'}) { + if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { + $r->print('