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

Diff for /loncom/interface/lontest.pm between versions 1.12 and 1.13

version 1.12, 2004/11/01 23:03:33 version 1.13, 2005/02/17 08:29:43
Line 52  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;
   
        my $html=&Apache::lonxml::xmlbegin();
      my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");       my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");
      $r->print('<html>'.$bodytag);       $r->print($html.'<head></head>'.$bodytag);
             
      my $envkey;       my $envkey;
     
      $r->print("<hr><h1>Debugging</h1><hr>\n");       $r->print("<hr /><h1>Debugging</h1><hr />\n");
      $r->print("<font face='Courier'>");       $r->print("<font face='Courier'>");
             
      my $i=0;       my $i=0;
Line 74  sub section Line 75  sub section
  if ($prevSection ne $sec) # new section, print header   if ($prevSection ne $sec) # new section, print header
  {   {
      $r->print('<tr><td colspan="2">');       $r->print('<tr><td colspan="2">');
      $r->print("<br><br><h2 style='color: #008800'><u>$sec</u></h2>");       $r->print("<br /><br /><h2 style='color: #008800'><u>$sec</u></h2>");
      $r->print('</td></tr>');       $r->print('</td></tr>');
      $prevSection = $sec;       $prevSection = $sec;
  }   }
Line 102  sub section Line 103  sub section
          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 (sort keys %hash) {
          $r->print("\n<br>".$_.': '.$hash{$_});           $r->print("\n<br />".$_.': '.$hash{$_});
              }               }
              untie %hash;               untie %hash;
          } else {           } else {
Line 113  sub section Line 114  sub section
      &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) {
         $r->print("\n<br>".$_.': '.$parmhash{$_});          $r->print("\n<br />".$_.': '.$parmhash{$_});
              }               }
              untie %parmhash;               untie %parmhash;
          } else {           } else {
Line 122  sub section Line 123  sub section
          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 (sort keys %symbhash) {
        $r->print("\n<br>".$_.': '.$symbhash{$_});         $r->print("\n<br />".$_.': '.$symbhash{$_});
             }              }
             untie %symbhash;              untie %symbhash;
  } else {   } else {
Removed from v.1.12  
changed lines
  Added in v.1.13

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