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

Diff for /loncom/interface/lontest.pm between versions 1.9 and 1.10

version 1.9, 2002/12/09 22:41:50 version 1.10, 2003/03/01 15:13:58
Line 94  sub section Line 94  sub section
    if ($ENV{'request.course.id'}) {     if ($ENV{'request.course.id'}) {
   
      my %parmhash;       my %parmhash;
        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)) {
  (tie(%parmhash,'GDBM_File',               $r->print('<h2>Big Hash</h2>');
      $ENV{'request.course.fn'}.'_parms.db',               foreach (sort keys %hash) {
      &GDBM_READER(),0640))) {           $r->print("\n<br>".$_.': '.$hash{$_});
      $r->print('<h2>Big Hash</h2>');               }
          foreach (sort keys %hash) {               untie %hash;
      $r->print("\n<br>".$_.': '.$hash{$_});           } else {
          }               $r->print('<h2>Count not tie big hash</h2>');
      $r->print('<h2>Parm Hash</h2>');  
          foreach (sort keys %parmhash) {  
      $r->print("\n<br>".$_.': '.$parmhash{$_});  
          }           }
          untie %hash;           if (tie(%parmhash,'GDBM_File',
          untie %parmhash;       $ENV{'request.course.fn'}.'_parms.db',
      }       &GDBM_READER(),0640)) {
                $r->print('<h2>Parm Hash</h2>');
                foreach (sort keys %parmhash) {
           $r->print("\n<br>".$_.': '.$parmhash{$_});
                }
                untie %parmhash;
            } else {
               $r->print('<h2>Could not tie parmhash</h2>');
    }
            if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) {
               $r->print('<h2>Symb Hash</h2>');
               foreach (sort keys %symbhash) {
          $r->print("\n<br>".$_.': '.$symbhash{$_});
               }
               untie %symbhash;
    } else {
               $r->print('<h2>Could not tie symbhash</h2>');
    }
  }   }
   
     
 # ------------------------------------------------------------------- End Debug  # ------------------------------------------------------------------- End Debug
      $r->print('</body></html>');               $r->print('</body></html>');        
Removed from v.1.9  
changed lines
  Added in v.1.10

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