Return to default_xml.lcpm CVS log

Up to [LON-CAPA] / loncom / xml

Annotation of loncom/xml/default_xml.lcpm, revision 1.1

1.1     ! albertel    1: sub evaluate {
        !             2:   ($_)=@_;  
        !             3:   my %oldexpressions=();
        !             4:   while (!$oldexpressions{$_}) {
        !             5:     $oldexpressions{$_}=1;
        !             6:     $_ =~s/((?:\$|\&)(?:[\#|\$]*[A-Za-z][\w]*|\{[A-Za-z][\w]*\}))([\[|\{][\w\'\"]+[\]\}])*?(\([\w\'\"]+\))*?(?=[^\[\{\(]|$)/eval(defined(eval($1.$2))?eval('$1.$2.$3'):'$1.$2.$3')/seg;
        !             7:   }
        !             8: }