loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.17, 2001/05/21 03:28:24
+version 1.20, 2001/11/07 22:29:17
  Line 50  sub evaluate {
  }
  sub run {
-   my ($code,$safeeval) = @_;
+   my ($code,$safeeval,$hideerrors) = @_;
  #  print "inside run\n";
    $@='';
    my (@result)=$safeeval->reval($code);
-   if ($@ ne '') {
+   if ($@ ne '' && !$hideerrors) {
      &Apache::lonxml::error(":$code:caused");
      &Apache::lonxml::error($@);
    }
    if ( $#result < '1') {
      return $result[0];
  Line 66  sub run {
    }
  }
+ sub dump {
+   my ($target,$safeeval)=@_;
+   my $dump='';
+   foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
+     if (($symname!~/^\_/) && ($symname!~/\:$/)) {
+       if ($safeeval->reval('defined($'.$symname.')')) {
+ 	$dump.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n";
+       }
+       if ($safeeval->reval('defined @'.$symname)) {
+ 	$dump.='@'.$symname.'=('.
+ 	  $safeeval->reval('join(",",@'.$symname.')').")\n";
+       }
+       if ($safeeval->reval('defined %'.$symname)) {
+ 	$dump.='%'.$symname.'=(';
+ 	$dump.=$safeeval->reval('join(",",map { $_."=>".$'.
+ 				$symname.'{$_} } sort keys %'.
+ 				$symname.')').")\n";
+       }
+     }
+   }
+   $dump.='';
+   return $dump;
+ }
 ;
  __END__;