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.18, 2006/03/15 19:41:26
Line 86 sub handler {	Line 86 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.&Apache::loncommon::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 146 sub handler {
}	}

# ------------------------------------------------------------------- End Debug	# ------------------------------------------------------------------- End Debug
$r->print('</body></html>');	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}