| … | |
… | |
| 1493 | if ($PG_eval_errors) { |
1493 | if ($PG_eval_errors) { |
| 1494 | my @errorLines = split("\n",$PG_eval_errors); |
1494 | my @errorLines = split("\n",$PG_eval_errors); |
| 1495 | $string =~ s/</</g; $string =~ s/>/>/g; |
1495 | $string =~ s/</</g; $string =~ s/>/>/g; |
| 1496 | $evaluated_string = "<PRE>$PAR % ERROR in $0:EV3, PGbasicmacros.pl:". |
1496 | $evaluated_string = "<PRE>$PAR % ERROR in $0:EV3, PGbasicmacros.pl:". |
| 1497 | "$PAR % There is an error occuring in the following code:$BR ". |
1497 | "$PAR % There is an error occuring in the following code:$BR ". |
| 1498 | "$string $BR % $mBR % $errorLines[0]\n % $errorLines[1]$BR ". |
1498 | "$string $BR % $BR % $errorLines[0]\n % $errorLines[1]$BR ". |
| 1499 | "% $BR % $BR </PRE> "; |
1499 | "% $BR % $BR </PRE> "; |
| 1500 | } |
1500 | } |
| 1501 | $string = $evaluated_string; |
1501 | $string = $evaluated_string; |
| 1502 | $string = $envir{'imagegen'}->add($string); |
1502 | $string = $envir{'imagegen'}->add($string); |
| 1503 | $string; |
1503 | $string; |