--- loncom/interface/lontest.pm 2003/04/01 20:12:02 1.11 +++ loncom/interface/lontest.pm 2005/02/17 08:50:20 1.14 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # A debugging harness. # -# $Id: lontest.pm,v 1.11 2003/04/01 20:12:02 www Exp $ +# $Id: lontest.pm,v 1.14 2005/02/17 08:50:20 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,16 +48,17 @@ sub section sub handler { my $r = shift; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $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 { @@ -143,7 +144,8 @@ sub section # ------------------------------------------------------------------- End Debug - $r->print(''); + $r->print(''); + return OK; }