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

[www]

www		Wed Jun 26 10:01:50 2002 EDT

  Modified files:              
    /loncom/interface	lontest.pm 
  Log:
  Also lists hashes if in course.
  
  
Index: loncom/interface/lontest.pm
diff -u loncom/interface/lontest.pm:1.4 loncom/interface/lontest.pm:1.5
--- loncom/interface/lontest.pm:1.4	Thu Jun 13 13:54:04 2002
+++ loncom/interface/lontest.pm	Wed Jun 26 10:01:50 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # A debugging harness.
 #
-# $Id: lontest.pm,v 1.4 2002/06/13 17:54:04 bowersj2 Exp $
+# $Id: lontest.pm,v 1.5 2002/06/26 14:01:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,6 +31,7 @@
 
 use strict;
 use Apache::Constants qw(:common :http);
+use GDBM_File;
 
 # section takes one env var name as input, and returns
 # what section the given env var is in, which is the part
@@ -86,6 +87,33 @@
      }
 
      $r->print('</table></font><h1>Total Number of Elements: '.$i.'</h1>');
+
+# ------------------------------------------------ If in a course, print hashes
+   if ($ENV{'request.course.id'}) {
+
+     my %parmhash;
+     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{$_});
+         }
+         untie %hash;
+         untie %parmhash;
+     }
+
+
+ }
  
 # ------------------------------------------------------------------- End Debug
      $r->print('</body></html>');