--- loncom/interface/lonaboutme.pm 2002/08/27 12:48:46 1.1
+++ loncom/interface/lonaboutme.pm 2003/02/10 20:03:13 1.12
@@ -1,7 +1,7 @@
# The LearningOnline Network
-# About a Person
+# "About Me" Personal Information
#
-# $Id: lonaboutme.pm,v 1.1 2002/08/27 12:48:46 www Exp $
+# $Id: lonaboutme.pm,v 1.12 2003/02/10 20:03:13 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -32,6 +32,8 @@ use strict;
use Apache::Constants qw(:common);
use Apache::loncommon;
use Apache::lonnet;
+use Apache::lontexconvert;
+use Apache::lonfeedback;
sub handler {
my $r = shift;
@@ -39,7 +41,6 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
-
# ------------------------------------------------------------ Print the screen
$r->print(< '.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).
+ ' 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.'.&Apache::loncommon::plainname($cnum,$cdom).'
');
+ if ($courseenv{'nickname'}) {
+ $r->print(
+ '"'.$courseenv{'nickname'}.
+ '"
');
+ }
+ $r->print(''.$Apache::lonnet::domaindescription{$cdom}.'
'.
+ '
Show Public View'. + &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'
'); + } + if (($ENV{'form.uploaddoc.filename'}) && + ($ENV{'form.storeupl'}) && ($allowed)) { + if ($ENV{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/) { + $syllabus{'uploaded.photourl'}= + &Apache::lonnet::userfileupload('uploaddoc'); + } + $syllabus{'uploaded.lastmodified'}=time; + &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); + } + if (($allowed) && ($ENV{'form.storesyl'})) { + foreach (keys %syllabusfields) { + my $field=$ENV{'form.'.$_}; + $field=~s/\s+$//s; + $field=&Apache::lonfeedback::clear_out_html($field, + $ENV{'user.adv'}); + $syllabus{$_}=$field; + } + $syllabus{'uploaded.lastmodified'}=time; + &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum); + } + +# ---------------------------------------------------------------- Get syllabus + if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) { + my $lastmod=$syllabus{'uploaded.lastmodified'}; + $lastmod=($lastmod?localtime($lastmod):'never'); + $r->print('Last updated: '.$lastmod); + if ($syllabus{'uploaded.photourl'}) { + $r->print('No personal information provided.
'); + } if ($ENV{'request.course.id'}) { - $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}); + if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) { + $r->print('