--- loncom/interface/lontest.pm 2002/06/13 17:54:04 1.4 +++ loncom/interface/lontest.pm 2002/08/20 21:29:34 1.7 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.4 2002/06/13 17:54:04 bowersj2 Exp $ +# $Id: lontest.pm,v 1.7 2002/08/20 21:29:34 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -31,6 +31,8 @@ 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 @@ -50,8 +52,9 @@ sub section $r->send_http_header; return OK if $r->header_only; - $r->print('
'); - + my $bodytag=&Apache::loncommon::bodytag("admin","List Environment"); + $r->print(''.$bodytag); + my $envkey; $->print("