loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.6, 2000/09/19 18:05:21
+version 1.7, 2000/10/02 22:20:18
  Line 6  sub evaluate {
  # gerd's old method interpolates unset vars
  # $safeeval->reval('return qq('.$expression.');');
    unless (defined $expression) { return ''; }
+   my $result = '';
+   $@='';
    $safeeval->reval('$_=\''.$expression.'\';');
-   $safeeval->reval('{'.$decls.'$_=~s/(\$\{?[A-Za-z]\w*\}?)/(defined(eval($1))?eval($1):$1)/ge;}');
+   if ($@ eq '') {
-   $safeeval->reval('return $_;');
+     $safeeval->reval('{'.$decls.'$_=~s/(\$\{?[A-Za-z]\w*\}?)/(defined(eval($1))?eval($1):$1)/ge;}');
+     if ($@ eq '') {
+       $result = $safeeval->reval('return $_;');
+     } else {
+       &Apache::lonxml::error("substituion on:$expression:with:$decls:caused");
+     }
+   } else {
+     &Apache::lonxml::error("defining:$expression:caused");
+   }
+   if ($@ ne '') {&Apache::lonxml::error($@);}
+   return $result
  }
  sub run {
    my ($code,$safeeval) = @_;
  #  print "inside run\n";
-   $safeeval->reval($code);
+   $@='';
+   my $result=$safeeval->reval($code);
+   if ($@ ne '') {
+     &Apache::lonxml::error(":$code:caused");
+     &Apache::lonxml::error($@);
+   }
+   return $result;
  }
 ;