loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonaboutme.pm between versions 1.3 and 1.8

version 1.3, 2002/08/27 21:05:04	version 1.8, 2002/12/27 16:33:36
Line 69 ENDDOCUMENT	Line 69 ENDDOCUMENT
my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);	my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
$r->print(&Apache::loncommon::bodytag	$r->print(&Apache::loncommon::bodytag
("Personal Information",$forcestudent,'','',$cdom));	("Personal Information",$forcestudent,'','',$cdom));
$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1><h3>'.	$r->print('<h1>'.&Apache::loncommon::plainname($cnum,$cdom).'</h1>');
$Apache::lonnet::domaindescription{$cdom}.'</h3>');	if ($courseenv{'nickname'}) {
	$r->print(
	'<h2>"'.$courseenv{'nickname'}.
	'"</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 %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);
my $allowed=0;	my $allowed=0;

Line 81 ENDDOCUMENT	Line 88 ENDDOCUMENT
if ($forcestudent) { $allowed=0; }	if ($forcestudent) { $allowed=0; }

if ($allowed) {	if ($allowed) {
$r->print(	$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 Student View</a></p>');	'<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');
}	}
if (($ENV{'form.uploaddoc.filename'}) &&	if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.storeupl'}) && ($allowed)) {	($ENV{'form.storeupl'}) && ($allowed)) {
Line 99 ENDDOCUMENT	Line 106 ENDDOCUMENT
$field=~s/\s+$//s;	$field=~s/\s+$//s;
$field=~s/\</\&lt\;/g;	$field=~s/\</\&lt\;/g;
$field=~s/\>/\&gt\;/g;	$field=~s/\>/\&gt\;/g;
if ($field) {	$syllabus{$_}=$field;
$syllabus{$_}=$field;
} else {
delete $syllabus{$_};
}
}	}
$syllabus{'uploaded.lastmodified'}=time;	$syllabus{'uploaded.lastmodified'}=time;
&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);	&Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
Line 111 ENDDOCUMENT	Line 114 ENDDOCUMENT

# ---------------------------------------------------------------- Get syllabus	# ---------------------------------------------------------------- Get syllabus
if (($syllabus{'uploaded.lastmodified'}) \|\| ($allowed)) {	if (($syllabus{'uploaded.lastmodified'}) \|\| ($allowed)) {
$r->print('Last updated:'.	my $lastmod=$syllabus{'uploaded.lastmodified'};
localtime($syllabus{'uploaded.lastmodified'}));	$lastmod=($lastmod?localtime($lastmod):'never');
	$r->print('Last updated: '.$lastmod);
if ($syllabus{'uploaded.photourl'}) {	if ($syllabus{'uploaded.photourl'}) {
$r->print('<img src="'.	$r->print('<img src="'.
&Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}).	&Apache::lonnet::tokenwrapper($syllabus{'uploaded.photourl'}).
Line 149 ENDDOCUMENT	Line 153 ENDDOCUMENT
} else {	} else {
$r->print('<p>No personal information provided.</p>');	$r->print('<p>No personal information provided.</p>');
}	}
	if ($ENV{'request.course.id'}) {
	if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
	&Apache::lonmsg::disfacetoface($r,$cnum,$cdom);
	}
	}
$r->print('</body></html>');	$r->print('</body></html>');
return OK;	return OK;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.8