--- loncom/interface/lontest.pm	2003/03/01 15:13:58	1.10
+++ loncom/interface/lontest.pm	2003/04/01 20:12:02	1.11
@@ -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.11 2003/04/01 20:12:02 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -128,6 +128,17 @@ 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 />');
+	     }
+       }
  }