--- loncom/interface/lontest.pm	2003/03/01 15:13:58	1.10
+++ loncom/interface/lontest.pm	2004/11/01 23:03:33	1.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # A debugging harness.
 #
-# $Id: lontest.pm,v 1.10 2003/03/01 15:13:58 www Exp $
+# $Id: lontest.pm,v 1.12 2004/11/01 23:03:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -128,11 +128,23 @@ sub section
 	 } 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;
  }