version 1.85, 2003/03/20 18:03:14
|
version 1.86, 2003/04/04 20:38:36
|
Line 1584 sub handler {
|
Line 1584 sub handler {
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$r->print("\n\n"); |
$r->print("\n\n"); |
# Temp for reverse-engineering purposes. |
|
for (keys %ENV) { |
|
if ($_ =~ /^form\./) { |
|
$r->print($_ . " " . Dumper($ENV{$_}) . "<br />\n"); |
|
} |
|
} |
|
# ----------------------------------------------------- Needs to be in a course |
# ----------------------------------------------------- Needs to be in a course |
|
|
if (($ENV{'request.course.id'}) && |
if (($ENV{'request.course.id'}) && |