--- loncom/interface/lontest.pm 2004/11/01 23:03:33 1.12 +++ loncom/interface/lontest.pm 2005/02/17 08:29:43 1.13 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.12 2004/11/01 23:03:33 albertel Exp $ +# $Id: lontest.pm,v 1.13 2005/02/17 08:29:43 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -52,12 +52,13 @@ sub section $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(''.$bodytag); + $r->print($html.''.$bodytag); my $envkey; - $r->print("

Debugging

\n"); + $r->print("

Debugging

\n"); $r->print(""); my $i=0; @@ -74,7 +75,7 @@ sub section if ($prevSection ne $sec) # new section, print header { $r->print(''); - $r->print("

$sec

"); + $r->print("

$sec

"); $r->print(''); $prevSection = $sec; } @@ -102,7 +103,7 @@ sub section if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { $r->print('

Big Hash

'); foreach (sort keys %hash) { - $r->print("\n
".$_.': '.$hash{$_}); + $r->print("\n
".$_.': '.$hash{$_}); } untie %hash; } else { @@ -113,7 +114,7 @@ sub section &GDBM_READER(),0640)) { $r->print('

Parm Hash

'); foreach (sort keys %parmhash) { - $r->print("\n
".$_.': '.$parmhash{$_}); + $r->print("\n
".$_.': '.$parmhash{$_}); } untie %parmhash; } else { @@ -122,7 +123,7 @@ sub section if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) { $r->print('

Symb Hash

'); foreach (sort keys %symbhash) { - $r->print("\n
".$_.': '.$symbhash{$_}); + $r->print("\n
".$_.': '.$symbhash{$_}); } untie %symbhash; } else {