loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.1, 2000/06/28 13:01:52
+version 1.2, 2000/06/28 19:52:20
  Line 1
-         sub evaluate {
+ package Apache::run;
- 	    my ($expression,$safeeval) = @_;
-             return $safeeval->reval($expression);
-         }
-         sub run {
+ sub evaluate {
- 	    my ($code,$safeeval) = @_;
+   my ($expression,$safeeval) = @_;
-             $safeeval->reval($code);
+   return $safeeval->reval($expression);
-         }
+ }
+ sub run {
+   my ($code,$safeeval) = @_;
+   $safeeval->reval($code);
+ }
+;
+ __END__;