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">'. |