loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2005/04/07 08:15:41	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'>");
Line 146 sub handler {	Line 145 sub handler {
}	}

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