Return to run.pm CVS log | Up to [LON-CAPA] / loncom / xml |
*** empty log message ***
1: sub evaluate { 2: my ($expression,$safeeval) = @_; 3: return $safeeval->reval($expression); 4: } 5: 6: sub run { 7: my ($code,$safeeval) = @_; 8: $safeeval->reval($code); 9: }