version 1.85, 2003/03/20 18:03:14
|
version 1.87, 2003/04/18 15:24:53
|
Line 285 sub plink {
|
Line 285 sub plink {
|
|
|
sub startpage { |
sub startpage { |
my ($r,$id,$udom,$csec,$uname)=@_; |
my ($r,$id,$udom,$csec,$uname)=@_; |
$r->content_type('text/html'); |
|
$r->send_http_header; |
|
|
|
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
my $bodytag=&Apache::loncommon::bodytag('Set Course Parameters','', |
'onUnload="pclose()"'); |
'onUnload="pclose()"'); |
Line 1583 sub handler {
|
Line 1581 sub handler {
|
|
|
$r->content_type('text/html'); |
$r->content_type('text/html'); |
$r->send_http_header; |
$r->send_http_header; |
$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'}) && |