--- loncom/interface/lontest.pm	2002/08/21 17:18:08	1.8
+++ loncom/interface/lontest.pm	2002/12/09 22:41:50	1.9
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # A debugging harness.
 #
-# $Id: lontest.pm,v 1.8 2002/08/21 17:18:08 www Exp $
+# $Id: lontest.pm,v 1.9 2002/12/09 22:41:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -57,8 +57,8 @@ sub section
      
      my $envkey;
  
-     $->print("<hr><h1>Debugging</h1><hr>\n");
-     $->print("<font face='Courier'>");
+     $r->print("<hr><h1>Debugging</h1><hr>\n");
+     $r->print("<font face='Courier'>");
      
      my $i=0;
      my $interval = 20; # change this to change how many keys/table
@@ -80,8 +80,8 @@ sub section
 	 }
 
 	 my $envVal = $ENV{$envkey};
-	 $envVal =~ s/(.{50})/\1\<wbr\>/g;
-	 $envkey =~ s/(.{30})/\1\<wbr\>/g;
+	 $envVal =~ s/(.{50})/$1\<wbr\>/g;
+	 $envkey =~ s/(.{30})/$1\<wbr\>/g;
 	 
 	 $r->print("<tr><td valign='top'><b>$envkey</b></td>");
          $r->print("<td valign='top'>$envVal</td></tr>\n");