version 1.45, 2004/02/26 23:39:04
|
version 1.46, 2004/03/31 05:24:00
|
Line 80 sub evaluate {
|
Line 80 sub evaluate {
|
$Apache::lonnet::perlvar{'lonScriptTimeout'}.' seconds'; |
$Apache::lonnet::perlvar{'lonScriptTimeout'}.' seconds'; |
} |
} |
&Apache::lonxml::error('substitution on <pre>'. |
&Apache::lonxml::error('substitution on <pre>'. |
&HTML::Entities::encode($expression). |
&HTML::Entities::encode($expression,'<>&"'). |
'</pre> with <pre>'. |
'</pre> with <pre>'. |
&HTML::Entities::encode($decls). |
&HTML::Entities::encode($decls,'<>&"'). |
'</pre> caused <pre>'. |
'</pre> caused <pre>'. |
&HTML::Entities::encode($error).' '. |
&HTML::Entities::encode($error,'<>&"').' '. |
&HTML::Entities::encode($innererror). |
&HTML::Entities::encode($innererror,'<>&"'). |
'</pre>'); |
'</pre>'); |
} |
} |
return $result |
return $result |
Line 113 sub run {
|
Line 113 sub run {
|
$error = 'Code ran too long. It ran for more than '. |
$error = 'Code ran too long. It ran for more than '. |
$Apache::lonnet::perlvar{'lonScriptTimeout'}.' seconds'; |
$Apache::lonnet::perlvar{'lonScriptTimeout'}.' seconds'; |
} |
} |
my $errormsg='<pre>'.&HTML::Entities::encode($error).' '. |
my $errormsg='<pre>'.&HTML::Entities::encode($error,'<>&"').' '. |
&HTML::Entities::encode($innererror). |
&HTML::Entities::encode($innererror,'<>&"'). |
'</pre> occured while running <pre>'; |
'</pre> occured while running <pre>'; |
$code=&HTML::Entities::encode($code); |
$code=&HTML::Entities::encode($code,'<>&"'); |
if ($innererror=~/line (\d+)/) { |
if ($innererror=~/line (\d+)/) { |
my $linenumber=$1; |
my $linenumber=$1; |
my @code=split("\n",$code); |
my @code=split("\n",$code); |
Line 153 sub dump {
|
Line 153 sub dump {
|
$symname.'{$_} } sort keys %'. |
$symname.'{$_} } sort keys %'. |
$symname.')').")" |
$symname.')').")" |
} |
} |
if ($line ne '') {$dump.=&HTML::Entities::encode($line)."<br />";} |
if ($line ne '') {$dump.=&HTML::Entities::encode($line,'<>&"')."<br />";} |
} |
} |
} |
} |
$dump.=''; |
$dump.=''; |