loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2002/08/21 17:18:08	version 1.9, 2002/12/09 22:41:50
Line 57 sub section	Line 57 sub section

my $envkey;	my $envkey;

$->print("<hr><h1>Debugging</h1><hr>\n");	$r->print("<hr><h1>Debugging</h1><hr>\n");
$->print("<font face='Courier'>");	$r->print("<font face='Courier'>");

my $i=0;	my $i=0;
my $interval = 20; # change this to change how many keys/table	my $interval = 20; # change this to change how many keys/table
Line 80 sub section	Line 80 sub section
}	}

my $envVal = $ENV{$envkey};	my $envVal = $ENV{$envkey};
$envVal =~ s/(.{50})/\1\<wbr\>/g;	$envVal =~ s/(.{50})/$1\<wbr\>/g;
$envkey =~ s/(.{30})/\1\<wbr\>/g;	$envkey =~ s/(.{30})/$1\<wbr\>/g;

$r->print("<tr><td valign='top'><b>$envkey</b></td>");	$r->print("<tr><td valign='top'><b>$envkey</b></td>");
$r->print("<td valign='top'>$envVal</td></tr>\n");	$r->print("<td valign='top'>$envVal</td></tr>\n");