version 1.387, 2005/11/10 21:28:21
|
version 1.388, 2005/11/10 21:38:27
|
Line 1456 sub debug {
|
Line 1456 sub debug {
|
if ($Apache::lonxml::debug eq "1") { |
if ($Apache::lonxml::debug eq "1") { |
$|=1; |
$|=1; |
my $request=$Apache::lonxml::request; |
my $request=$Apache::lonxml::request; |
if (!$request) { $request=Apache->request; } |
if (!$request) { |
|
eval { $request=Apache->request; }; |
|
} |
|
if (!$request) { |
|
eval { $request=Apache2::RequestUtil->request; }; |
|
} |
$request->print('<font size="-2"><pre>DEBUG:'.&HTML::Entities::encode($_[0],'<>&"')."</pre></font>\n"); |
$request->print('<font size="-2"><pre>DEBUG:'.&HTML::Entities::encode($_[0],'<>&"')."</pre></font>\n"); |
#&Apache::lonnet::logthis($_[0]); |
#&Apache::lonnet::logthis($_[0]); |
} |
} |