--- loncom/interface/lontest.pm 2005/04/07 06:56:23 1.16 +++ loncom/interface/lontest.pm 2006/03/15 19:41:26 1.18 @@ -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.18 2006/03/15 19:41:26 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -86,20 +86,14 @@ sub handler { my $html=&Apache::lonxml::xmlbegin(); my $bodytag=&Apache::loncommon::bodytag("List Environment","admin"); - $r->print($html.''.$bodytag); - + $r->print($html.&Apache::loncommon::head().$bodytag); + $r->print("

Debugging

\n"); $r->print(""); - - my %differences=%ENV; - foreach my $key (sort(keys(%env))) { - if ($env{$key} eq $differences{$key}) { - delete($differences{$key}); - } - } - &print_hash($r,\%differences); - &print_hash($r,\%env); + $r->print("

ENV

\n"); &print_hash($r,\%ENV); + $r->print("

env

\n"); + &print_hash($r,\%env); # ------------------------------------------------ If in a course, print hashes if ($env{'request.course.id'}) { @@ -152,7 +146,7 @@ sub handler { } # ------------------------------------------------------------------- End Debug - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }