loncom/interface/lontest.pm - diff

Return to lontest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2002/08/20 21:29:34	version 1.9, 2002/12/09 22:41:50
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 $bodytag=&Apache::loncommon::bodytag("admin","List Environment");	my $bodytag=&Apache::loncommon::bodytag("List Environment","admin");
$r->print('<html>'.$bodytag);	$r->print('<html>'.$bodytag);

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");