--- loncom/interface/lontest.pm 2005/04/05 20:43:27 1.15 +++ loncom/interface/lontest.pm 2006/03/19 21:54:41 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.15 2005/04/05 20:43:27 albertel Exp $ +# $Id: lontest.pm,v 1.19 2006/03/19 21:54:41 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,7 +39,7 @@ use Apache::lonnet; # what section the given env var is in, which is the part # of the env var before the first period. # Returns the section, or blank string for 'no section', -# which is normal for the standard ENV vars like REQUEST_URI. +# which is normal for the standard env vars like REQUEST_URI. sub section { my ($name) = @_; @@ -84,30 +84,23 @@ sub handler { $r->send_http_header; return OK if $r->header_only; - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); - $r->print($html.'
'.$bodytag); - + $r->print(&Apache::loncommon::start_page("List Environment",undef, + {'function' => 'admin'})); + $r->print("