version 1.16, 2005/04/07 06:56:23
|
version 1.17, 2005/04/07 08:15:41
|
Line 87 sub handler {
|
Line 87 sub handler {
|
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); |
my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); |
$r->print($html.'<head></head>'.$bodytag); |
$r->print($html.'<head></head>'.$bodytag); |
|
|
$r->print("<hr /><h1>Debugging</h1><hr />\n"); |
$r->print("<hr /><h1>Debugging</h1><hr />\n"); |
$r->print("<font face='Courier'>"); |
$r->print("<font face='Courier'>"); |
|
$r->print("<hr /><h2>ENV</h2><hr />\n"); |
my %differences=%ENV; |
|
foreach my $key (sort(keys(%env))) { |
|
if ($env{$key} eq $differences{$key}) { |
|
delete($differences{$key}); |
|
} |
|
} |
|
&print_hash($r,\%differences); |
|
&print_hash($r,\%env); |
|
&print_hash($r,\%ENV); |
&print_hash($r,\%ENV); |
|
$r->print("<hr /><h2>env</h2><hr />\n"); |
|
&print_hash($r,\%env); |
# ------------------------------------------------ If in a course, print hashes |
# ------------------------------------------------ If in a course, print hashes |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
|
|