[BACK]Return to lontest.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lontest.pm between versions 1.15 and 1.16

version 1.15, 2005/04/05 20:43:27 version 1.16, 2005/04/07 06:56:23
Line 39  use Apache::lonnet; Line 39  use Apache::lonnet;
 # what section the given env var is in, which is the part  # what section the given env var is in, which is the part
 # of the env var before the first period.  # of the env var before the first period.
 # Returns the section, or blank string for 'no section',  # Returns the section, or blank string for 'no section',
 # which is normal for the standard ENV vars like REQUEST_URI.  # which is normal for the standard env vars like REQUEST_URI.
 sub section  sub section
 {  {
     my ($name) = @_;      my ($name) = @_;
Line 101  sub handler { Line 101  sub handler {
     &print_hash($r,\%env);      &print_hash($r,\%env);
     &print_hash($r,\%ENV);      &print_hash($r,\%ENV);
 # ------------------------------------------------ If in a course, print hashes  # ------------------------------------------------ If in a course, print hashes
     if ($ENV{'request.course.id'}) {      if ($env{'request.course.id'}) {
   
  my %parmhash;   my %parmhash;
  my %symbhash;   my %symbhash;
  my %hash;   my %hash;
   
  my $fn=$ENV{'request.course.fn'};   my $fn=$env{'request.course.fn'};
   
  if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {   if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) {
     $r->print('<h2>Big Hash</h2>');      $r->print('<h2>Big Hash</h2>');
Line 119  sub handler { Line 119  sub handler {
     $r->print('<h2>Count not tie big hash</h2>');      $r->print('<h2>Count not tie big hash</h2>');
  }   }
  if (tie(%parmhash,'GDBM_File',   if (tie(%parmhash,'GDBM_File',
  $ENV{'request.course.fn'}.'_parms.db',   $env{'request.course.fn'}.'_parms.db',
  &GDBM_READER(),0640)) {   &GDBM_READER(),0640)) {
     $r->print('<h2>Parm Hash</h2>');      $r->print('<h2>Parm Hash</h2>');
     foreach (sort keys %parmhash) {      foreach (sort keys %parmhash) {
Removed from v.1.15  
changed lines
  Added in v.1.16

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>