loncom/interface/lonsimplepage.pm - diff

Return to lonsimplepage.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonsimplepage.pm between versions 1.15 and 1.16

version 1.15, 2004/02/11 00:22:21	version 1.16, 2004/02/13 15:01:29
Line 84 ENDDOCUMENT	Line 84 ENDDOCUMENT

# ------------------------------------------------------------ Get query string	# ------------------------------------------------------------ Get query string
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['forcestudent','register']);	($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']);
# ----------------------------------------------------- Force menu registration	# ----------------------------------------------------- Force menu registration
my $addentries='';	my $addentries='';
if ($ENV{'form.register'}) {	if ($ENV{'form.register'}) {
Line 95 ENDDOCUMENT	Line 95 ENDDOCUMENT
# --------------------------------------------------------------- Force Student	# --------------------------------------------------------------- Force Student
my $forcestudent='';	my $forcestudent='';
if ($ENV{'form.forcestudent'} \|\|$ENV{'form.grade_target'} eq 'tex' ) { $forcestudent='student'; };	if ($ENV{'form.forcestudent'} \|\|$ENV{'form.grade_target'} eq 'tex' ) { $forcestudent='student'; };
	my $forceedit='';
	if ($ENV{'form.forceedit'}) { $forceedit='edit'; }


my %syllabus=&Apache::lonnet::dump('smppage_'.$marker,$dom,$crs);	my %syllabus=&Apache::lonnet::dump('smppage_'.$marker,$dom,$crs);
Line 107 ENDDOCUMENT	Line 109 ENDDOCUMENT
}	}

my $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});	my $allowed=&Apache::lonnet::allowed('mdc',$ENV{'request.course.id'});
	my $privileged=$allowed;
	if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) {
	$forcestudent='student';
	}

if ($forcestudent) { $allowed=0; }	if ($forcestudent) { $allowed=0; }

if ($allowed) {	if ($ENV{'form.grade_target'} ne 'tex') {
if ($ENV{'form.grade_target'} ne 'tex') {	if ($allowed) {
$r->print('<p>'.	$r->print('<p>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1"><font size="+1">Show Student View</font></a>'.	&Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes','Help with filling in text boxes').'<br /><a href="'.$r->uri.'?forcestudent=1"><font size="+1">'.&mt('Show Student View').'</font></a>'.
&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');	&Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
}	} elsif ($privileged) {
	$r->print('<a href="'.$r->uri.'?forceedit=edit"><font size="+1">'.&mt('Edit').'</font></a>');
	}
}	}
if (($ENV{'form.uploaddoc.filename'}) &&	if (($ENV{'form.uploaddoc.filename'}) &&
($ENV{'form.storeupl'}) && ($allowed)) {	($ENV{'form.storeupl'}) && ($allowed)) {
Line 149 ENDDOCUMENT	Line 157 ENDDOCUMENT
if ($allowed && ($ENV{'form.grade_target'} ne 'tex')) {	if ($allowed && ($ENV{'form.grade_target'} ne 'tex')) {
$r->print(	$r->print(
'<form method="post" enctype="multipart/form-data">'.	'<form method="post" enctype="multipart/form-data">'.
	'<input type="hidden" name="forceedit" value="edit" />'.
'<h3>Upload a Photo</h3>'.	'<h3>Upload a Photo</h3>'.
'<input type="file" name="uploaddoc" size="50">'.	'<input type="file" name="uploaddoc" size="50">'.
'<input type="submit" name="storeupl" value="Upload">'.	'<input type="submit" name="storeupl" value="Upload">'.

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

Removed from v.1.15
changed lines
	Added in v.1.16