loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.2, 2002/09/10 20:53:36	version 1.6, 2003/02/11 15:20:06
Line 33 use Apache::Constants qw(:common);	Line 33 use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
use Apache::lontexconvert;	use Apache::lontexconvert;
	use Apache::lonfeedback;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 88 ENDDOCUMENT	Line 89 ENDDOCUMENT
if ($forcestudent) { $allowed=0; }	if ($forcestudent) { $allowed=0; }

if ($allowed) {	if ($allowed) {
$r->print(	$r->print('<p>'.
'<p><a href="'.$r->uri.'?forcestudent=1">Show Public View</a></p>');	&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1">Show Public View</a>'.
	&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 104 ENDDOCUMENT	Line 106 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,1);
$field=~s/\>/\&gt\;/g;
$syllabus{$_}=$field;	$syllabus{$_}=$field;
}	}
$syllabus{'uploaded.lastmodified'}=time;	$syllabus{'uploaded.lastmodified'}=time;