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

Diff for /loncom/interface/lontest.pm between versions 1.22 and 1.23

version 1.22, 2008/11/24 17:18:01 version 1.23, 2014/12/15 00:59:40
Line 100  sub handler { Line 100  sub handler {
   
  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>');
     foreach (sort keys %hash) {      foreach my $key (sort(keys(%hash))) {
  $r->print("\n<br />".$_.': '.$hash{$_});   $r->print("\n<br />".$key.': '.$hash{$key});
     }      }
     untie %hash;      untie %hash;
  } else {   } else {
Line 111  sub handler { Line 111  sub handler {
  $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 my $param (sort(keys(%parmhash))) {
         $r->print("\n<br />".$_.': '.$parmhash{$_});          $r->print("\n<br />".$param.': '.$parmhash{$param});
     }      }
     untie %parmhash;      untie %parmhash;
  } else {   } else {
Line 120  sub handler { Line 120  sub handler {
  }   }
  if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) {   if (tie(%symbhash,'GDBM_File',"$fn\_symb.db",&GDBM_READER(),0640)) {
             $r->print('<h2>Symb Hash</h2>');              $r->print('<h2>Symb Hash</h2>');
             foreach (sort keys %symbhash) {              foreach my $symb (sort(keys(%symbhash))) {
  $r->print("\n<br />".$_.': '.$symbhash{$_});   $r->print("\n<br />".$symb.': '.$symbhash{$symb});
             }              }
             untie %symbhash;              untie %symbhash;
  } else {   } else {
Line 134  sub handler { Line 134  sub handler {
  my $fh=Apache::File->new($fn.'.state');   my $fh=Apache::File->new($fn.'.state');
  @conditions=<$fh>;   @conditions=<$fh>;
     }      }
     foreach (@conditions) {      foreach my $cond (@conditions) {
  $r->print('<tt>'.$_.'</tt><br />');   $r->print('<tt>'.$cond.'</tt><br />');
     }      }
  }   }
     }      }
Removed from v.1.22  
changed lines
  Added in v.1.23

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