--- loncom/interface/lontest.pm 2002/06/26 14:01:50 1.5 +++ loncom/interface/lontest.pm 2002/08/21 17:18:08 1.8 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.5 2002/06/26 14:01:50 www Exp $ +# $Id: lontest.pm,v 1.8 2002/08/21 17:18:08 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -32,6 +32,7 @@ package Apache::lontest; use strict; use Apache::Constants qw(:common :http); use GDBM_File; +use Apache::loncommon; # section takes one env var name as input, and returns # what section the given env var is in, which is the part @@ -51,8 +52,9 @@ sub section $r->send_http_header; return OK if $r->header_only; - $r->print('
'); - + my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); + $r->print(''.$bodytag); + my $envkey; $->print("