albertel Mon Dec 9 17:41:50 2002 EDT
Modified files:
/loncom/interface lontest.pm
Log:
- silly startup warning errors
Index: loncom/interface/lontest.pm
diff -u loncom/interface/lontest.pm:1.8 loncom/interface/lontest.pm:1.9
--- loncom/interface/lontest.pm:1.8 Wed Aug 21 13:18:08 2002
+++ loncom/interface/lontest.pm Mon Dec 9 17:41:50 2002
@@ -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 @@
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 @@
}
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");