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.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;
}	}