loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'}) {