--- loncom/interface/lontest.pm	2002/12/09 22:41:50	1.9
+++ 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.9 2002/12/09 22:41:50 albertel 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('<html>'.$bodytag);
+     $r->print($html.'<head></head>'.$bodytag);
      
      my $envkey;
  
-     $r->print("<hr><h1>Debugging</h1><hr>\n");
+     $r->print("<hr /><h1>Debugging</h1><hr />\n");
      $r->print("<font face='Courier'>");
      
      my $i=0;
@@ -74,7 +75,7 @@ sub section
 	 if ($prevSection ne $sec) # new section, print header
 	 {
 	     $r->print('<tr><td colspan="2">');
-	     $r->print("<br><br><h2 style='color: #008800'><u>$sec</u></h2>");
+	     $r->print("<br /><br /><h2 style='color: #008800'><u>$sec</u></h2>");
 	     $r->print('</td></tr>');
 	     $prevSection = $sec;
 	 }
@@ -94,31 +95,57 @@ sub section
    if ($ENV{'request.course.id'}) {
 
      my %parmhash;
+     my %symbhash;
      my %hash;
 
      my $fn=$ENV{'request.course.fn'};
 
-     if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&
-		(tie(%parmhash,'GDBM_File',
-		     $ENV{'request.course.fn'}.'_parms.db',
-		     &GDBM_READER(),0640))) {
-     $r->print('<h2>Big Hash</h2>');
-         foreach (sort keys %hash) {
-	     $r->print("\n<br>".$_.': '.$hash{$_});
-         }
-     $r->print('<h2>Parm Hash</h2>');
-         foreach (sort keys %parmhash) {
-	     $r->print("\n<br>".$_.': '.$parmhash{$_});
+         if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
+             $r->print('<h2>Big Hash</h2>');
+             foreach (sort keys %hash) {
+	         $r->print("\n<br />".$_.': '.$hash{$_});
+             }
+             untie %hash;
+         } else {
+             $r->print('<h2>Count not tie big hash</h2>');
          }
-         untie %hash;
-         untie %parmhash;
-     }
-
-
+         if (tie(%parmhash,'GDBM_File',
+		     $ENV{'request.course.fn'}.'_parms.db',
+		     &GDBM_READER(),0640)) {
+             $r->print('<h2>Parm Hash</h2>');
+             foreach (sort keys %parmhash) {
+	        $r->print("\n<br />".$_.': '.$parmhash{$_});
+             }
+             untie %parmhash;
+         } else {
+            $r->print('<h2>Could not tie parmhash</h2>');
+	 }
+         if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) {
+            $r->print('<h2>Symb Hash</h2>');
+            foreach (sort keys %symbhash) {
+	       $r->print("\n<br />".$_.': '.$symbhash{$_});
+            }
+            untie %symbhash;
+	 } else {
+            $r->print('<h2>Could not tie symbhash</h2>');
+	 }
+         if (-e $fn.'.state') {
+	     $r->print('<h2>State</h2>');
+	     my @conditions=();
+	     {
+		 my $fh=Apache::File->new($fn.'.state');
+		 @conditions=<$fh>;
+	     }
+	     foreach (@conditions) {
+                 $r->print('<tt>'.$_.'</tt><br />');
+	     }
+       }
  }
+
  
 # ------------------------------------------------------------------- End Debug
-     $r->print('</body></html>');        
+     $r->print('</body></html>');    
+     return OK;
  }
 
 
