--- loncom/interface/lontest.pm 2003/04/01 20:12:02 1.11
+++ 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.11 2003/04/01 20:12:02 www 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 {
@@ -143,7 +144,8 @@ sub section
# ------------------------------------------------------------------- End Debug
- $r->print('