loncom/xml/run.pm - diff

Return to run.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.29, 2002/05/23 21:15:34	version 1.30, 2002/05/24 16:48:50
Line 29 use HTML::Entities;	Line 29 use HTML::Entities;

$Apache::run::EVALUATE_STRING=<<'ENDEVALUATE';	$Apache::run::EVALUATE_STRING=<<'ENDEVALUATE';
my %_LONCAPA_INTERNAL_oldexpressions=();	my %_LONCAPA_INTERNAL_oldexpressions=();
my $i=0;
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 ($i++ > 10 ) { last; }	if (scalar(values(%_LONCAPA_INTERNAL_oldexpressions))>10) {last;}
}	}
ENDEVALUATE	ENDEVALUATE