version 1.16, 2005/04/07 06:56:23
|
version 1.19, 2006/03/19 21:54:41
|
Line 84 sub handler {
|
Line 84 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(&Apache::loncommon::start_page("List Environment",undef, |
my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); |
{'function' => 'admin'})); |
$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'}) { |
|
|
Line 152 sub handler {
|
Line 145 sub handler {
|
} |
} |
|
|
# ------------------------------------------------------------------- End Debug |
# ------------------------------------------------------------------- End Debug |
$r->print('</body></html>'); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|