[system] / trunk / pg / macros / PGbasicmacros.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/PGbasicmacros.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1482 Revision 1483
1484 $string = ev_substring($string,"\\(","\\)",\&math_ev3); 1484 $string = ev_substring($string,"\\(","\\)",\&math_ev3);
1485 $string = ev_substring($string,"\\[","\\]",\&display_math_ev3); 1485 $string = ev_substring($string,"\\[","\\]",\&display_math_ev3);
1486 $string; 1486 $string;
1487} 1487}
1488 1488
1489sub EV4{
1490 if ($displayMode eq "HTML_dpng") {
1491 my $string = join(" ",@_);
1492 my ($evaluated_string,$PG_eval_errors,$PG_full_errors) = PG_restricted_eval("<<END_OF_EVALUATION_STRING\n$string\nEND_OF_EVALUATION_STRING\n");
1493 if ($PG_eval_errors) {
1494 my @errorLines = split("\n",$PG_eval_errors);
1495 $string =~ s/</&lt;/g; $string =~ s/>/&gt;/g;
1496 $evaluated_string = "<PRE>$PAR % ERROR in $0:EV3, PGbasicmacros.pl:".
1497 "$PAR % There is an error occuring in the following code:$BR ".
1498 "$string $BR % $mBR % $errorLines[0]\n % $errorLines[1]$BR ".
1499 "% $BR % $BR </PRE> ";
1500 }
1501 $string = $evaluated_string;
1502 $string = $envir{'imagegen'}->add($string);
1503 $string;
1504 } else {
1505 EV3(@_);
1506 }
1507}
1508
1509
1489=head2 Formatting macros 1510=head2 Formatting macros
1490 1511
1491 beginproblem() # generates text listing number and the point value of 1512 beginproblem() # generates text listing number and the point value of
1492 # the problem. It will also print the file name containing 1513 # the problem. It will also print the file name containing
1493 # the problem for users listed in the PRINT_FILE_NAMES_FOR PG_environment 1514 # the problem for users listed in the PRINT_FILE_NAMES_FOR PG_environment

Legend:
Removed from v.1482  
changed lines
  Added in v.1483

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9