--- loncom/interface/lontest.pm 2005/04/07 06:56:23 1.16 +++ loncom/interface/lontest.pm 2008/11/20 15:19:39 1.21 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.16 2005/04/07 06:56:23 albertel Exp $ +# $Id: lontest.pm,v 1.21 2008/11/20 15:19:39 jms Exp $ # # Copyright Michigan State University Board of Trustees # @@ -27,6 +27,7 @@ # # + package Apache::lontest; use strict; @@ -35,11 +36,6 @@ use GDBM_File; use Apache::loncommon; use Apache::lonnet; -# section takes one env var name as input, and returns -# 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. sub section { my ($name) = @_; @@ -84,22 +80,15 @@ 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("