--- loncom/interface/lontest.pm 2002/06/26 14:01:50 1.5 +++ loncom/interface/lontest.pm 2002/12/09 22:41:50 1.9 @@ -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.9 2002/12/09 22:41:50 albertel 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,12 +52,13 @@ 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("

Debugging


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

Debugging


\n"); + $r->print(""); my $i=0; my $interval = 20; # change this to change how many keys/table @@ -78,8 +80,8 @@ sub section } my $envVal = $ENV{$envkey}; - $envVal =~ s/(.{50})/\1\/g; - $envkey =~ s/(.{30})/\1\/g; + $envVal =~ s/(.{50})/$1\/g; + $envkey =~ s/(.{30})/$1\/g; $r->print("$envkey"); $r->print("$envVal\n"); @@ -96,10 +98,10 @@ sub section my $fn=$ENV{'request.course.fn'}; - if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) && + if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) && (tie(%parmhash,'GDBM_File', $ENV{'request.course.fn'}.'_parms.db', - &GDBM_READER,0640))) { + &GDBM_READER(),0640))) { $r->print('

Big Hash

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