version 1.25, 2004/07/27 23:35:34
|
version 1.26, 2004/07/28 18:53:38
|
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') { |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
Line 80 ENDDOCUMENT
|
Line 78 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=''; |