version 1.25, 2004/07/27 23:35:34
|
version 1.28, 2005/02/17 08:29:42
|
Line 43 sub handler {
|
Line 43 sub handler {
|
return OK if $r->header_only; |
return OK if $r->header_only; |
my $target=$ENV{'form.grade_target'}; |
my $target=$ENV{'form.grade_target'}; |
|
|
|
|
# &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['previous']); |
|
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
$html |
<head> |
<head> |
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
ENDDOCUMENT |
ENDDOCUMENT |
Line 80 ENDDOCUMENT
|
Line 79 ENDDOCUMENT
|
|
|
# ------------------------------------------------------------ Get Query String |
# ------------------------------------------------------------ Get Query String |
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register']); |
($ENV{'QUERY_STRING'},['forcestudent','forceedit','register','origpage']); |
# ----------------------------------------------------- Force menu registration |
# ----------------------------------------------------- Force menu registration |
my $addentries=''; |
my $addentries=''; |
if ($ENV{'form.register'}) { |
if ($ENV{'form.register'}) { |
$addentries=' onLoad="'.&Apache::lonmenu::loadevents(). |
$addentries=' onLoad="'.&Apache::lonmenu::loadevents(); |
'" onUnload="'.&Apache::lonmenu::unloadevents().'"'; |
if ($ENV{'form.origpage'}) { |
|
$addentries .= "document.location='#newpost';"; |
|
} |
|
$addentries .= '" onUnload="'.&Apache::lonmenu::unloadevents().'"'; |
$r->print(&Apache::lonmenu::registerurl(1)); |
$r->print(&Apache::lonmenu::registerurl(1)); |
|
} elsif ($ENV{'form.origpage'}) { |
|
$addentries = "onLoad=\"document.location='#newpost';\""; |
} |
} |
# --------------------------------------------------------------- Force Student |
# --------------------------------------------------------------- Force Student |
my $forcestudent=''; |
my $forcestudent=''; |
Line 109 ENDDOCUMENT
|
Line 113 ENDDOCUMENT
|
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { |
if (($syllabus{'uploaded.lastmodified'}) && (!$forceedit)) { |
$forcestudent='student'; |
$forcestudent='student'; |
} |
} |
|
if ($target ne 'tex') { $r->print('<table><tr><td>'); } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
if ($forcestudent or $target eq 'tex') { $allowed=0; } |
|
|
if ($allowed) { |
if ($allowed) { |
Line 213 ENDDOCUMENT
|
Line 217 ENDDOCUMENT
|
} else { |
} else { |
$r->print('<p>'.&mt('No page information provided.').'</p>'); |
$r->print('<p>'.&mt('No page information provided.').'</p>'); |
} |
} |
|
if ($target ne 'tex') { $r->print('</td></tr></table>'); } |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::lonfeedback::list_discussion |
$r->print(&Apache::lonfeedback::list_discussion |
('board','OPEN','bulletin___'.$marker.'___'. |
('board','OPEN','bulletin___'.$marker.'___'. |