loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.302, 2004/02/19 19:29:40
+version 1.303, 2004/02/26 23:39:03
  Line 760  sub init_safespace {
    $safeinit .= ';$external::randomseed='.$rndseed.';';
    &Apache::lonxml::debug("Setting rndseed to $rndseed");
    &Apache::run::run($safeinit,$safeeval);
+   my $subroutine=<<'EVALUATESUB';
+ sub __LC_INTERNAL_EVALUATE__ {
+     my ($__LC__a,$__LC__b,$__LC__c)=@_;
+     my $__LC__prefix;
+     my $__LC__msg;
+     while(1){
+ 	{
+ 	    use strict;
+ 	    if (eval(defined(eval($__LC__a.$__LC__b)))) {
+ 		return $__LC__msg.$__LC__prefix.eval($__LC__a.$__LC__b.$__LC__c);
+ 	    }
+ 	}
+ 	$__LC__prefix.=substr($__LC__a,0,1,"");
+ 	if ($__LC__a!~/^(\$|&|\#)/) { last; }
+     }
+     return $__LC__prefix.$__LC__a.$__LC__b.$__LC__c.$__LC__msg;
+ }
+ EVALUATESUB
+     $safeeval->permit("require");
+     $safeeval->reval($subroutine);
+     $safeeval->deny("require");
  }
  sub default_homework_load {
- Line 1326  sub error {
+ Line 1348  sub error {
          "Error [$declutter]",join('<br />',@_));
        }
      }
-     #FIXME probably shouldn't have me get everything forever.
-     &Apache::lonmsg::user_normal_msg('albertel','msu',"Error in $ENV{'request.filename'}",join('<br />',@_));
-     #&Apache::lonmsg::user_normal_msg('albertel','103',"Error in $ENV{'request.filename'}",$_[0]);
    }
  }