loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.10, 2003/02/10 15:19:43	version 1.11, 2003/02/10 16:22:28
Line 90 ENDDOCUMENT	Line 90 ENDDOCUMENT
if ($allowed) {	if ($allowed) {
$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>'.	$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 Public View</a>'.	'<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').</p>');	&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
}	}
if (($ENV{'form.uploaddoc.filename'}) &&	if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.storeupl'}) && ($allowed)) {	($ENV{'form.storeupl'}) && ($allowed)) {
Line 105 ENDDOCUMENT	Line 105 ENDDOCUMENT
foreach (keys %syllabusfields) {	foreach (keys %syllabusfields) {
my $field=$ENV{'form.'.$_};	my $field=$ENV{'form.'.$_};
$field=~s/\s+$//s;	$field=~s/\s+$//s;
$field=~s/\</\&lt\;/g;	$field=&Apache::lonfeedback::clear_out_html($field,
$field=~s/\>/\&gt\;/g;	$ENV{'user.adv'});
$syllabus{$_}=$field;	$syllabus{$_}=$field;
}	}
$syllabus{'uploaded.lastmodified'}=time;	$syllabus{'uploaded.lastmodified'}=time;