loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.43, 2004/01/29 18:46:25	version 1.44, 2004/02/26 22:08:54
Line 31 $Apache::run::EVALUATE_STRING=<<'ENDEVAL	Line 31 $Apache::run::EVALUATE_STRING=<<'ENDEVAL
my %_LONCAPA_INTERNAL_oldexpressions=();	my %_LONCAPA_INTERNAL_oldexpressions=();
while (!$_LONCAPA_INTERNAL_oldexpressions{$_}) {	while (!$_LONCAPA_INTERNAL_oldexpressions{$_}) {
$_LONCAPA_INTERNAL_oldexpressions{$_}=1;	$_LONCAPA_INTERNAL_oldexpressions{$_}=1;
$_ =~s/((?:\$\|\&)(?:[\#\|\$][A-Za-z][\w]\|\{[A-Za-z][\w]\}))([\[\{][^\$\&\]\}]+[\]\}])?($[^\$\&$]+\))*?(?=[^\[\{\(]\|$)/eval(defined(eval($1.$2))?eval('$1.$2.$3'):'$1.$2.$3')/seg;	$_ =~s/((?:\$\|\&)(?:(?:\#\$\|\#)?[A-Za-z][\w]\|\{[A-Za-z][\w]\}))([\[\{][^\$\&\]\}]+[\]\}])?($[^\$\&$]+\))?(?=[^\[\{\(]\|$)/eval(defined(eval($1.$2))?eval('$1.$2.$3'):'$1.$2.$3')/seg;
if (scalar(values(%_LONCAPA_INTERNAL_oldexpressions))>10) {last;}	if (scalar(values(%_LONCAPA_INTERNAL_oldexpressions))>10) {last;}
}	}
ENDEVALUATE	ENDEVALUATE