{ServeLocalCollection (5):} {catched error from mtc-m21c.sid.inpe.br} {too many nested evaluations (infinite loop?)} {    while executing} {"regsub {^#} $fieldName {} fieldName2"} {    invoked from within} \"if\ \[regexp\ \{\\.\}\ \$fieldName\]\ \{ {# ex: mark.theta*} {						set #Flag 0	;# the field name doesn't begin with #} {						set fieldList $fieldName} \t\t\t\t\t\}\ else\ \{ ...\" {    invoked from within} \"if\ \[regexp\ \{\\*\}\ \$pattern\]\ \{ {					set pattern2 [SetNoMatch $pattern $accent $case 0 $intervalRepresentationFlag]} {# puts --$pattern2} {					set string $pa..."} {    ("foreach" body line 9)} {    invoked from within} \"foreach\ pattern\ \[CreateIntervalRepresentation\ \$word\]\ \{ {# puts [list $pattern $fieldName]} {# => 50 mark.theta*} {# => shown visibility} {# => ** *} {# return} ...\" {    ("foreach" body line 17)} {    invoked from within} \"foreach\ word\ \[eval\ concat\ \$words\]\ \{ \t\t\tif\ \$listOfWordsFlag\ \{ \t\t\t\tif\ \[info\ exists\ wordArray(\$fieldName)\]\ \{ \t\t\t\t\tif\ \{\[lsearch\ \$wordArray(\$fieldName)\ \$wo...\" {    invoked from within} \"if\ \[regexp\ \{\ and\ |\ or\ \}\ \$string\]\ \{ {# puts $string} #\t\tif\ !\[string\ equal\ \[llength\ \$string\]\ \[llength\ \[join\ \$string\]\]\]\ \{ #\ syntax\ error\ example:\ \{af\ inpe\ ...\" {    (procedure "Search" line 63)} {    invoked from within} {"Search {visibility, shown} yes yes repArray {} {}"} {    ("eval" body line 1)} {    invoked from within} {"eval $virtualRepList"} {    invoked from within} \"if\ \[regexp\ \{^not\ \}\ \$virtualRepList\]\ \{ {# and not} {		if $listOfWordsFlag {return}} {		} {		set list2 [lindex $virtualRepList 1]} {		foreach element $searchResu..."} {    (procedure "and" line 8)} {    invoked from within} {"and [list Search [list visibility, shown] yes yes repArray {} {}]"} {    ("eval" body line 1)} {    invoked from within} {"eval $statement"} {    ("foreach" body line 23)} {    invoked from within} \"foreach\ statement\ \[lreplace\ \[split\ \$string\ %\]\ 0\ 0\]\ \{ {# puts $statement} {#			if [regsub {^(and |or )not } $statement {\1[not [Search [list } statement] ..."} {    invoked from within} {"if [regexp {^related:(.*?):(.*?):(.*?):(.*?):(.*?):(.*?):} $string m metadataRep-i language selectedFieldNameList numberOfCombinations importantWordLi..."} {    (procedure "dpi.inpe.br/banon/1999/04.21.17.06::MountSearch" line 24)} {    invoked from within} {"${searchRepository}::MountSearch $searchExpression $accent $case"} {    (procedure "Select" line 13)} {    invoked from within} {"Select readergroup [list repository, $repName]"} {    (procedure "ComputeRedirectToMetadata" line 3)} {    invoked from within} {"ComputeRedirectToMetadata $rep $clientIPAddress"} {    (procedure "AddLanguageURL" line 43)} {    invoked from within} {"AddLanguageURL $ibi $translationRepList $metadataFlag $filePath $verbList $referenceType $site $size translation $clientIPAddress $metadataFieldNameLi..."} {    (procedure "GetURLPropertyList" line 640)} {    invoked from within} \"GetURLPropertyList\ \{clientinformation.ipaddress\ 3.128.199.210\ parsedibiurl.ibi\ 8JMKD3MGP3W34R/42TAH9B\ parsedibiurl.metadatafieldnamelist\ \{mirrorreposi...\" {    ("eval" body line 1)} {    invoked from within} {"eval $cmd"}