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

Diff for /loncom/interface/lontest.pm between versions 1.4 and 1.8

version 1.4, 2002/06/13 17:54:04 version 1.8, 2002/08/21 17:18:08
Line 31  package Apache::lontest; Line 31  package Apache::lontest;
   
 use strict;  use strict;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
   use GDBM_File;
   use Apache::loncommon;
   
 # section takes one env var name as input, and returns  # section takes one env var name as input, and returns
 # what section the given env var is in, which is the part  # what section the given env var is in, which is the part
Line 50  sub section Line 52  sub section
      $r->send_http_header;       $r->send_http_header;
      return OK if $r->header_only;       return OK if $r->header_only;
   
      $r->print('<html><body>');       my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");
        $r->print('<html>'.$bodytag);
        
      my $envkey;       my $envkey;
     
      $->print("<hr><h1>Debugging</h1><hr>\n");       $->print("<hr><h1>Debugging</h1><hr>\n");
Line 86  sub section Line 89  sub section
      }       }
   
      $r->print('</table></font><h1>Total Number of Elements: '.$i.'</h1>');       $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  # ------------------------------------------------------------------- End Debug
      $r->print('</body></html>');               $r->print('</body></html>');        
Removed from v.1.4  
changed lines
  Added in v.1.8

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