loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.4, 2002/06/13 17:54:04
+version 1.5, 2002/06/26 14:01:50
  Line 31  package Apache::lontest;
  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
- Line 86  sub section
+ Line 87  sub section
       }
       $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>');