[LON-CAPA-cvs] cvs: loncom /interface lontest.pm

[www]

www		Tue Apr  1 15:12:02 2003 EDT

  Modified files:              
    /loncom/interface	lontest.pm 
  Log:
  List the user's condition state.
  
  
Index: loncom/interface/lontest.pm
diff -u loncom/interface/lontest.pm:1.10 loncom/interface/lontest.pm:1.11
--- loncom/interface/lontest.pm:1.10	Sat Mar  1 10:13:58 2003
+++ loncom/interface/lontest.pm	Tue Apr  1 15:12:02 2003
@@ -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 @@
 	 } 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 />');
+	     }
+       }
  }