08/01/08 12:48
Trace from DisplayNumberOfEntries: the search expression was <y 200* and ti tt or au story>
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2
Trace from DisplayNumberOfEntries: the search expression was <y 200* and secondaryd 19920101|20021231>
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2
Trace from DisplayNumberOfEntries: the search expression was <y 200* and (ti tt or au story or secondaryd 19920101|20021231)>
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2
Trace from DisplayNumberOfEntries: the search expression was <y 200* and not (ti tt or au story or secondaryd 19920101|20021231)>
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2
Trace from DisplayNumberOfEntries: the search expression was <y 200*>
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2
08/01/08 12:52
Trace from DisplayNumberOfEntries: the search expression was <y 200* and ti tt or au story>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and secondaryd 19920101|20021231>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and not (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200*>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
08/01/08 12:53
08/01/08 12:57
All the 5 searches have been made.
20/01/08 22:34
Trace from DisplayNumberOfEntries: the search expression was <y 200* and ti tt or au story>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and secondaryd 19920101|20021231>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and not (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200*>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
20/01/08 23:10
Trace from DisplayNumberOfEntries: the search expression was <y 200* and ti tt or au story>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and secondaryd 19920101|20021231>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200* and not (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
Trace from DisplayNumberOfEntries: the search expression was <y 200*>.
Trace from DisplayNumberOfEntries: the number of satisfied queries was 1 out of 2.
23/03/08 15:43
CreateTclPage (first substitution):
can't read "subsetOfGroups": no such variable
    while executing
"string compare {} $subsetOfGroups"
    invoked from within
"if [string equal {DisplayNumberOfEntries} $callingProcedure] {
			if {![string equal 0 $output] && $integerWithLink} {
				if {[string compare {} $sub..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 34)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case $integerWithLink DisplayNumberOfEntries"
    (procedure "DisplayNumberOfEntries" line 3)
    invoked from within
"DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no $useStoredValue"
    invoked from within
"set x1 [DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no $useStoredValue]"
    invoked from within
"subst {<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALI..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALIGN=CENTER>
<I>Numerical table example using DisplayNumberOfEntries</I>
<BR>
Last update: [clock format [clock second] -format "%Y, %b %d"]
<BR>
Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
</P>

<!-- [set saveSearchResult 1] -->
<!-- [set useStoredValue 1] (default is 1) -->
<!-- [set numberOfSearches 0] -->
<!-- [set totalNumberOfSearches 5] -->


<TABLE BORDER ALIGN=CENTER WIDTH=60%>
<TR BGCOLOR=#FFBBFF>
<TD ALIGN=CENTER WIDTH=16.6%>
PI
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI + PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI v PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
~(PI v PN)
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
Total
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD ALIGN=CENTER>
[set x1 [DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no $useStoredValue]]
</TD>
<TD ALIGN=CENTER>
[set x2 [DisplayNumberOfEntries "y 200* and [set s2 {secondaryd 19920101|20021231}]" no no $useStoredValue]]
</TD>
<TD ALIGN=CENTER>
[if {![string equal {} $x1] && ![string equal {} $x2]} {
	expr [ExtractNumber $x1] + [ExtractNumber $x2]
} else {
	set xxx {&nbsp;}
}]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and ($s1 or $s2)" no no $useStoredValue]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and not ($s1 or $s2)" no no $useStoredValue]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200*" no no $useStoredValue]
</TD>

</TR>
</TABLE>

</FONT>
</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
23/03/08 15:48
All the 5 searches have been made.
23/03/08 15:53
CreateTclPage (first substitution):
can't read "useStoredValue": no such variable
    while executing
"DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no $useStoredValue"
    invoked from within
"set x1 [DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no $useStoredValue]"
    invoked from within
"subst {<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALI..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALIGN=CENTER>
<I>Numerical table example using DisplayNumberOfEntries</I>
<BR>
Last update: [clock format [clock second] -format "%Y, %b %d"]
<BR>
Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
</P>

<!-- set saveSearchResult 1 -->
<!-- set useStoredValue 1 -->
<!-- [set numberOfSearches 0] -->
<!-- [set totalNumberOfSearches 5] -->


<TABLE BORDER ALIGN=CENTER WIDTH=60%>
<TR BGCOLOR=#FFBBFF>
<TD ALIGN=CENTER WIDTH=16.6%>
PI
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI + PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI v PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
~(PI v PN)
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
Total
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD ALIGN=CENTER>
[set x1 [DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no $useStoredValue]]
</TD>
<TD ALIGN=CENTER>
[set x2 [DisplayNumberOfEntries "y 200* and [set s2 {secondaryd 19920101|20021231}]" no no $useStoredValue]]
</TD>
<TD ALIGN=CENTER>
[if {![string equal {} $x1] && ![string equal {} $x2]} {
	expr [ExtractNumber $x1] + [ExtractNumber $x2]
} else {
	set xxx {&nbsp;}
}]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and ($s1 or $s2)" no no $useStoredValue]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and not ($s1 or $s2)" no no $useStoredValue]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200*" no no $useStoredValue]
</TD>

</TR>
</TABLE>

</FONT>
</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
23/03/08 15:55
All the 5 searches have been made.
11/06/08 19:11
DisplayNumber: all the 5 searches have been made.
12/06/08 20:48
Trace from DisplayNumber: the search expression was <y 200* and ti tt or au story>.
Trace from DisplayNumber: the number of satisfied queries was 1 out of 3.
Trace from DisplayNumber: the search expression was <y 200* and secondaryd 19920101|20021231>.
Trace from DisplayNumber: the number of satisfied queries was 1 out of 3.
Trace from DisplayNumber: the search expression was <y 200* and (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumber: the number of satisfied queries was 1 out of 3.
Trace from DisplayNumber: the search expression was <y 200* and not (ti tt or au story or secondaryd 19920101|20021231)>.
Trace from DisplayNumber: the number of satisfied queries was 1 out of 3.
Trace from DisplayNumber: the search expression was <y 200*>.
Trace from DisplayNumber: the number of satisfied queries was 1 out of 3.
15/06/08 13:10
DisplayNumber: all the 5 searches have been made.
15/06/08 13:46
DisplayNumber: all the 5 searches have been made.
27/06/10 21:48
CreateTclPage (first substitution):
can not find channel named "stdout"
    while executing
"puts [SetFont $output]"
    invoked from within
"if [info exists cgi(query)] {
			set output [subst [set bodyForError]]
			puts [SetFont $output]
		} else {
	# Recent
			puts [join $searchResultList]..."
    invoked from within
"if $header {
		if [info exists cgi(query)] {
			set output [subst [set bodyForError]]
			puts [SetFont $output]
		} else {
	# Recent
			puts [join $se..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 168)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  1 2 brief 1  {^$} 0 {} 1  {#EEEEEE #E3E3E3} $siteList"
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case $subsetOfGroups $integerWithLink DisplayNumberOfEntries"
    (procedure "DisplayNumberOfEntries" line 3)
    invoked from within
"DisplayNumberOfEntries "y 200* and [set s2 {secondaryd 19920101|20021231}]" no no"
    invoked from within
"set x2 [DisplayNumberOfEntries "y 200* and [set s2 {secondaryd 19920101|20021231}]" no no]"
    invoked from within
"subst {<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALI..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALIGN=CENTER>
<I>Numerical table example using DisplayNumberOfEntries</I>
<BR>
Last update: [clock format [clock second] -format "%Y, %b %d"]
<BR>
Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
</P>

<!-- [set totalNumberOfSearches 5] -->

<TABLE BORDER ALIGN=CENTER WIDTH=60%>
<TR BGCOLOR=#FFBBFF>
<TD ALIGN=CENTER WIDTH=16.6%>
PI
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI + PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI v PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
~(PI v PN)
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
Total
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD ALIGN=CENTER>
[set x1 [DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no]]
</TD>
<TD ALIGN=CENTER>
[set x2 [DisplayNumberOfEntries "y 200* and [set s2 {secondaryd 19920101|20021231}]" no no]]
</TD>
<TD ALIGN=CENTER>
[if {![string equal {} $x1] && ![string equal {} $x2]} {
	expr [ExtractNumber $x1] + [ExtractNumber $x2]
} else {
	set xxx {&nbsp;}
}]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and ($s1 or $s2)" no no]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and not ($s1 or $s2)" no no]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200*" no no]
</TD>

</TR>
</TABLE>

</FONT>
</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
27/06/10 21:51
CreateTclPage (first substitution):
missing operand at _@_
in expression "6 + _@_"
    (parsing expression "6 + ")
    invoked from within
"expr [ExtractNumber $x1] + [ExtractNumber $x2]"
    invoked from within
"if {![string equal {} $x1] && ![string equal {} $x2]} {
	expr [ExtractNumber $x1] + [ExtractNumber $x2]
} else {
	set xxx {&nbsp;}
}"
    invoked from within
"subst {<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALI..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALIGN=CENTER>
<I>Numerical table example using DisplayNumberOfEntries</I>
<BR>
Last update: [clock format [clock second] -format "%Y, %b %d"]
<BR>
Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
</P>

<!-- [set totalNumberOfSearches 5] -->

<TABLE BORDER ALIGN=CENTER WIDTH=60%>
<TR BGCOLOR=#FFBBFF>
<TD ALIGN=CENTER WIDTH=16.6%>
PI
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI + PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI v PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
~(PI v PN)
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
Total
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD ALIGN=CENTER>
[set x1 [DisplayNumberOfEntries "y 200* and [set s1 {ti tt or au story}]" no no]]
</TD>
<TD ALIGN=CENTER>
[set x2 [DisplayNumberOfEntries "y 200* and [set s2 {secondaryd 19920101|20021231}]" no no]]
</TD>
<TD ALIGN=CENTER>
[if {![string equal {} $x1] && ![string equal {} $x2]} {
	expr [ExtractNumber $x1] + [ExtractNumber $x2]
} else {
	set xxx {&nbsp;}
}]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and ($s1 or $s2)" no no]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and not ($s1 or $s2)" no no]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200*" no no]
</TD>

</TR>
</TABLE>

</FONT>
</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
10/07/10 21:38
CreateTclPage (first substitution):
can not find channel named "stdout"
    while executing
"puts --$searchResultList--"
    invoked from within
"if [string equal yes $cgi(fusion)] {
# Make fusion of repeated entries
# >>> puts $searchResultList	;# may return an error message
		set searchResultL..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  [list $function1 {} {}] 2 brief 1  {^$} 0 {} 1  {#EEEEEE #E3E3E3} $siteList"
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case $subsetOfGroups $integerWithLink DisplayNumberOfEntries"
    (procedure "DisplayNumberOfEntries" line 3)
    invoked from within
"DisplayNumberOfEntries "y 200* and firstg DSR and [set s1 {ti tt or au story}]" no no 1 {AMZ DGI DPI DSR OBT}"
    invoked from within
"set x1 [DisplayNumberOfEntries "y 200* and firstg DSR and [set s1 {ti tt or au story}]" no no 1 {AMZ DGI DPI DSR OBT}]"
    invoked from within
"subst {<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALI..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
<HEAD><TITLE>Numerical table example using DisplayNumberOfEntries</TITLE></HEAD>
<BODY BGCOLOR=#F8F8D2>
<FONT FACE=Arial SIZE=2>

<P ALIGN=CENTER>
<I>Numerical table example using DisplayNumberOfEntries</I>
<BR>
Last update: [clock format [clock second] -format "%Y, %b %d"]
<BR>
Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
</P>

<!-- [set totalNumberOfSearches 5] -->

<TABLE BORDER ALIGN=CENTER WIDTH=60%>
<TR BGCOLOR=#FFBBFF>
<TD ALIGN=CENTER WIDTH=16.6%>
PI
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI + PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
PI v PN
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
~(PI v PN)
</TD>
<TD ALIGN=CENTER WIDTH=16.6%>
Total
</TD>
</TR>
<TR BGCOLOR=#EEEEEE>
<TD ALIGN=CENTER>
[set x1 [DisplayNumberOfEntries "y 200* and firstg DSR and [set s1 {ti tt or au story}]" no no 1 {AMZ DGI DPI DSR OBT}]]
</TD>
<TD ALIGN=CENTER>
[set x2 [DisplayNumberOfEntries "y 200* and [set s2 {secondaryd 19920101|20021231}]" no no]]
</TD>
<TD ALIGN=CENTER>
[if {![string equal {} $x1] && ![string equal {} $x2]} {
	expr [ExtractNumber $x1] + [ExtractNumber $x2]
} else {
	set xxx {&nbsp;}
}]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and ($s1 or $s2)" no no]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200* and not ($s1 or $s2)" no no]
</TD>
<TD ALIGN=CENTER>
[DisplayNumberOfEntries "y 200*" no no]
</TD>

</TR>
</TABLE>

</FONT>
</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
12/07/10 23:13
CreateTclPage (first substitution):
wrong # args: should be "set varName ?newValue?"
    while executing
"set entryEvaluationFunctions #!#list $function1 $function1 $operation#@#"
    invoked from within
"subst {<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

		..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return #!#ConstantFunction $x#@#}}
					set function2 {x {return #!#ConstantFunction $x#@#}}
					set operation {{x y} {return #!#expr $x + $y#@#}}
					set entryEvaluationFunctions #!#list $function1 $function1 $operation#@#
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
12/07/10 23:14
CreateTclPage (first substitution):
can't read "maximumNumberOfEntries": no such variable
    while executing
"list list GetMetadataRepositories $currentRep 3 $cgi(query) $cgi(accent) $cgi(case)  1 metadatalastupdate repArray {}  pages $maximumNumberOfEntries $..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions"
    invoked from within
"subst {<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

		..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [ConstantFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [expr $x + $y]}}
					set entryEvaluationFunctions [list $function1 $function1 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
13/07/10 12:24
CreateTclPage (first substitution):
wrong # args: should be "set varName ?newValue?"
    while executing
"set secondaryMark #!#SetFieldValue $serverAddressWithIP $x secondarymark#@#"
    (procedure "QualisFunction" line 3)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item2"
    ("foreach" body line 3)
    invoked from within
"foreach item $searchResultList {
			set item2 [lindex $item 3]
			set sum1 [expr $sum1 + [apply $function1 $item2]]
			set sum2 [expr $sum2 + [apply $..."
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			set secondaryMark #!#SetFieldValue $serverAddressWithIP $x secondarymark#@..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			set secondaryMark #!#SetFieldValue $serverAddressWithIP $x secondarymark#@#
			return 1
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [expr $x + $y]}}
					set entryEvaluationFunctions [list $function1 $function1 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
13/07/10 12:31
CreateTclPage (first substitution):
can't read "mark": no such variable
    while executing
"return markTable($mark)"
    (procedure "QualisFunction" line 18)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item2"
    ("foreach" body line 3)
    invoked from within
"foreach item $searchResultList {
			set item2 [lindex $item 3]
			set sum1 [expr $sum1 + [apply $function1 $item2]]
			set sum2 [expr $sum2 + [apply $..."
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			set secondaryMark [SetFieldValue $serverAddressWithIP $x secondarymark]
			foreach item $secondaryMark {
				regsub {_.*} $item {} mark
				break
			}
			return markTable($mark)
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [expr $x + $y]}}
					set entryEvaluationFunctions [list $function1 $function1 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
13/07/10 12:31
CreateTclPage (first substitution):
can't read "mark": no such variable
    while executing
"return $markTable($mark)"
    (procedure "QualisFunction" line 18)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item2"
    ("foreach" body line 3)
    invoked from within
"foreach item $searchResultList {
			set item2 [lindex $item 3]
			set sum1 [expr $sum1 + [apply $function1 $item2]]
			set sum2 [expr $sum2 + [apply $..."
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			set secondaryMark [SetFieldValue $serverAddressWithIP $x secondarymark]
			foreach item $secondaryMark {
				regsub {_.*} $item {} mark
				break
			}
			return $markTable($mark)
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [expr $x + $y]}}
					set entryEvaluationFunctions [list $function1 $function1 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
13/07/10 12:56
CreateTclPage (first substitution):
invalid bareword "B2"
in expression "0 > B2";
should be "$B2" or "{B2}" or "B2(...)" or ...
    (parsing expression "0 > B2")
    invoked from within
"expr $x > $y"
    (procedure "Max" line 2)
    invoked from within
"Max $max $mark"
    (procedure "QualisFunction" line 17)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item2"
    ("foreach" body line 3)
    invoked from within
"foreach item $searchResultList {
			set item2 [lindex $item 3]
			set sum1 [expr $sum1 + [apply $function1 $item2]]
			set sum2 [expr $sum2 + [apply $..."
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			SetFieldValue $serverAddressWithIP $x secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $mark]
			}
			return $markTable($max)
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [expr $x / $y.]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
13/07/10 13:21
CreateTclPage (first substitution):
domain error: argument not in valid range
    while executing
"expr $x / $y."
    (lambda term "{x y} {return [format %4.1f [expr $x / $y.]]}" line 1)
    invoked from within
"apply $operation $sum1 $sum2"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			SetFieldValue $serverAddressWithIP $x secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
13/07/10 13:25
CreateTclPage (first substitution):
domain error: argument not in valid range
    while executing
"expr $x / $y."
    (lambda term "{x y} {return [format %4.1f [expr $x / $y.]]}" line 1)
    invoked from within
"apply $operation $sum1 $sum2"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue $site ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
13/07/10 13:26
CreateTclPage (first substitution):
StartCommunication: communication doesn't start: expected integer but got "800}"
    invoked from within
"StartCommunication $serverName $urlibPort $async"
    (procedure "SetFieldValue" line 5)
    invoked from within
"SetFieldValue $site ${rep-i} secondarymark"
    (procedure "QualisFunction" line 14)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item"
    ("foreach" body line 2)
    invoked from within
"foreach item $searchResultList {
			set sum1 [expr $sum1 + [apply $function1 $item]]
			set sum2 [expr $sum2 + [apply $function2 $item]]
		}"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue $site ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
13/07/10 13:28
CreateTclPage (first substitution):
invalid bareword "secondarymark"
in expression "secondarymark";
should be "$secondarymark" or "{secondarymark}" or "secondarymark(...)" or ...
    (parsing expression "secondarymark")
    invoked from within
"if $async {
#		set s [socket -async $host $port]
		if [catch {socket -async $host $port} s] {
# couldn't open socket: invalid argument
			return -code..."
    (procedure "StartCommunication" line 9)
    invoked from within
"StartCommunication $serverName $urlibPort $async"
    (procedure "SetFieldValue" line 5)
    invoked from within
"SetFieldValue #!#join $site#@# ${rep-i} secondarymark"
    (procedure "QualisFunction" line 14)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item"
    ("foreach" body line 2)
    invoked from within
"foreach item $searchResultList {
			set sum1 [expr $sum1 + [apply $function1 $item]]
			set sum2 [expr $sum2 + [apply $function2 $item]]
		}"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue #!#join $site#@# ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and site banon} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
13/07/10 13:32
CreateTclPage (first substitution):
domain error: argument not in valid range
    while executing
"expr $x / $y."
    (lambda term "{x y} {return [format %4.1f [expr $x / $y.]]}" line 1)
    invoked from within
"apply $operation $sum1 $sum2"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue [join $site] ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
13/07/10 16:54
CreateTclPage (first substitution):
can't read "markTable(A)": no such element in array
    while executing
"Max $max $markTable($mark)"
    (procedure "QualisFunction" line 18)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item"
    ("foreach" body line 2)
    invoked from within
"foreach item $searchResultList {
			set sum1 [expr $sum1 + [apply $function1 $item]]
			set sum2 [expr $sum2 + [apply $function2 $item]]
		}"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue [join $site] ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and firstgr cpt} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <secondarym * and firstgr cpt and y 2010>.
Trace from DisplayNumber: the number of satisfied queries was 2 out of 3.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
13/07/10 16:59
CreateTclPage (first substitution):
StartCommunication: communication doesn't start: couldn't open socket: connection timed out
    invoked from within
"StartCommunication $serverName $urlibPort $async"
    (procedure "SetFieldValue" line 5)
    invoked from within
"SetFieldValue [join $site] ${rep-i} secondarymark"
    (procedure "QualisFunction" line 14)
    invoked from within
"QualisFunction $x"
    (lambda term "x {return [QualisFunction $x]}" line 1)
    invoked from within
"apply $function1 $item"
    ("foreach" body line 2)
    invoked from within
"foreach item $searchResultList {
			set sum1 [expr $sum1 + [apply $function1 $item]]
			set sum2 [expr $sum2 + [apply $function2 $item]]
		}"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and firstgr cpt and y 2010} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	10
				A2	9
				B5	8
				B4	7
				B3	6
				B2	5
				B1	4
				C	3
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue [join $site] ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and firstgr cpt and y 2010} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
13/07/10 20:48
CreateTclPage (first substitution):
invalid command name "apply"
    while executing
"apply $function1 $item"
    ("foreach" body line 2)
    invoked from within
"foreach item $searchResultList {
			set sum1 [expr $sum1 + [apply $function1 $item]]
			set sum2 [expr $sum2 + [apply $function2 $item]]
		}"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and firstgr cpt and y 2010 and site plutao*} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	7
				A2	6
				B5	5
				B4	4
				B3	3
				B2	..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	7
				A2	6
				B5	5
				B4	4
				B3	3
				B2	2
				B1	1
				C	0
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue [join $site] ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and firstgr cpt and y 2010 and site plutao*} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
13/07/10 20:57
CreateTclPage (first substitution):
invalid command name "apply"
    while executing
"apply $function1 $item"
    ("foreach" body line 2)
    invoked from within
"foreach item $searchResultList {
			set sum1 [expr $sum1 + [apply $function1 $item]]
			set sum2 [expr $sum2 + [apply $function2 $item]]
		}"
    invoked from within
"if ![string equal 0 $entryEvaluationFunctions] {
		set function1 [lindex $entryEvaluationFunctions 0]
		set function2 [lindex $entryEvaluationFunction..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
	if $header {
		if [info exists cgi(query)] {..."
    (procedure "CreateOutput" line 170)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 27)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case {} 0 DisplayEntryEvaluation $entryEvaluationFunctions"
    (procedure "DisplayEntryEvaluation" line 3)
    invoked from within
"DisplayEntryEvaluation {secondarym * and firstgr cpt and y 2010} $entryEvaluationFunctions"
    invoked from within
"subst {<!--
	[
		set siteList {{plutao.dpi.inpe.br 800}}
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	7
	..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		set siteList {{plutao.dpi.inpe.br 800}}
		proc QualisFunction {x} {
			global serverAddressWithIP
			array set markTable {
				A1	7
				A2	6
				B5	5
				B4	4
				B3	3
				B2	2
				B1	1
				C	0
			}
			foreach {site key stamp rep-i} $x {break}
			SetFieldValue [join $site] ${rep-i} secondarymark
			set max 0
			foreach item $secondarymark {
				regsub {_.*} $item {} mark
				set max [Max $max $markTable($mark)]
			}
			return $max
		}
	]
-->

<HTML>
	<HEAD><TITLE>Numerical table example using DisplayEntryEvaluation</TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Numerical table example using DisplayEntryEvaluation</I>
				<BR>
				Last update: [clock format [clock second] -format "%Y, %b %d"]
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<!--
				[
					set totalNumberOfSearches 1
					set function1 {x {return [QualisFunction $x]}}
					set function2 {x {return [ConstantFunction $x]}}
					set operation {{x y} {return [format %4.1f [expr $x / $y.]]}}
					set entryEvaluationFunctions [list $function1 $function2 $operation]
				]
			-->

			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Impact Factor
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[DisplayEntryEvaluation {secondarym * and firstgr cpt and y 2010} $entryEvaluationFunctions]
					</TD>
				</TR>
			</TABLE>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 1 searches have been made.
DisplayNumber: all the 1 searches have been made.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
list must have an even number of elements
    while executing
"array set searchResultArray $searchResultList"
    invoked from within
"interp eval slave {array set searchResultArray $searchResultList}	"
    invoked from within
"if [file exists $dirName/searchResult.tcl] {
		interp eval slave [list source $dirName/searchResult.tcl]	;# set searchResultList
		interp eval slave {..."
    (procedure "CreateTclPage" line 255)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
list must have an even number of elements
    while executing
"array set searchResultArray $searchResultList"
    invoked from within
"interp eval slave {array set searchResultArray $searchResultList}	"
    invoked from within
"if [file exists $dirName/searchResult.tcl] {
		interp eval slave [list source $dirName/searchResult.tcl]	;# set searchResultList
		interp eval slave {..."
    (procedure "CreateTclPage" line 255)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
list must have an even number of elements
    while executing
"array set searchResultArray $searchResultList"
    invoked from within
"interp eval slave {array set searchResultArray $searchResultList}	"
    invoked from within
"if [file exists $dirName/searchResult.tcl] {
		interp eval slave [list source $dirName/searchResult.tcl]	;# set searchResultList
		interp eval slave {..."
    (procedure "CreateTclPage" line 255)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
list must have an even number of elements
    while executing
"array set searchResultArray $searchResultList"
    invoked from within
"interp eval slave {array set searchResultArray $searchResultList}	"
    invoked from within
"if [file exists $dirName/searchResult.tcl] {
		interp eval slave [list source $dirName/searchResult.tcl]	;# set searchResultList
		interp eval slave {..."
    (procedure "CreateTclPage" line 255)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
list must have an even number of elements
    while executing
"array set searchResultArray $searchResultList"
    invoked from within
"interp eval slave {array set searchResultArray $searchResultList}	"
    invoked from within
"if [file exists $dirName/searchResult.tcl] {
		interp eval slave [list source $dirName/searchResult.tcl]	;# set searchResultList
		interp eval slave {..."
    (procedure "CreateTclPage" line 255)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
DisplayNumber: all the 5 searches have been made.
14/07/10 17:27
CreateTclPage (first substitution):
invalid command name "Mean"
    while executing
"Mean $dataList"
    (procedure "Qualis" line 27)
    invoked from within
"Qualis {secondarym * and y 2010 and firstgr CEA} $siteList"
    invoked from within
"subst {<!--
	[
		set siteList {{plutao.dpi.inpe.br 800} {mtc-m19.sid.inpe.br 800}}
		proc Qualis {query siteList} {
			array set markTable {
				A1	7
..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		set siteList {{plutao.dpi.inpe.br 800} {mtc-m19.sid.inpe.br 800}}
		proc Qualis {query siteList} {
			array set markTable {
				A1	7
				A2	6
				B5	5
				B4	4
				B3	3
				B2	2
				B1	1
				C	0
			}
			set codedPassword {}
			set format 1	;# {site rep-i} {site rep-i} ...
			set searchResult [FindMetadataRepositories $query 0 $siteList $codedPassword no no $format]
			set searchResult [lsort -unique $searchResult]
			set dataList {}
			foreach item $searchResult {
				foreach {site rep-i} $item {break}
				SetFieldValue $site ${rep-i} secondarymark
				set max 0
				foreach item2 $secondarymark {
					regsub {_.*} $item2 {} mark
					set max [Max $max $markTable($mark)]
				}
				lappend dataList $max
			}
			set mean [format %4.1f [Mean $dataList]]
			set standarDeviation [string trim [format %4.1f [expr sqrt([Variance $dataList])]]]
			return $mean&#177\;$standarDeviation
		}
	]
-->

<HTML>
	<HEAD><TITLE>Tabela de fatores de impacto por coordenadorias </TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Tabela de fatores de impacto por coordenadorias </I>
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CEA
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CPT
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CST
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CTE
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						OBT
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[Qualis {secondarym * and y 2010 and firstgr CEA} $siteList]
					</TD>
					<TD ALIGN=CENTER>
						[Qualis {secondarym * and y 2010 and firstgr CPT} $siteList]
					</TD>
					<TD ALIGN=CENTER>
						[Qualis {secondarym * and y 2010 and firstgr CST} $siteList]
					</TD>
					<TD ALIGN=CENTER>
						[Qualis {secondarym * and y 2010 and firstgr CTE} $siteList]
					</TD>
					<TD ALIGN=CENTER>
						[Qualis {secondarym * and y 2010 and firstgr OBT} $siteList]
					</TD>
				</TR>
			</TABLE>

			<P ALIGN=CENTER>
				Os valores possíveis de fatores de impacto se estendem de 0 a 7.
				<BR>
				Os valores foram obtidos com base na melhor classificão do Qualis da CAPES de cada revista.
				<BR>
				Tabela gerada automaticamente pelo UR<I>Lib</I>Service.
			</P>
		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 5 searches have been made.
25/10/10 16:27
25/10/10 16:27
CreateTclPage (first substitution):
syntax error in expression "int(29 * 100 / (29 + 34)": missing close parenthesis at end of function call
    while executing
"expr int($number1 * 100 / ($number1 + $number2)"
    (procedure "Qualis" line 36)
    invoked from within
"Qualis {secondarym * and y 2010 and firstgr CEA} $siteList"
    invoked from within
"foreach {qualisCEA porcentagemQualisCEA} [Qualis {secondarym * and y 2010 and firstgr CEA} $siteList] {break}"
    invoked from within
"subst {<!--
	[
		set siteList {{plutao.dpi.inpe.br 800} {mtc-m19.sid.inpe.br 800}}
		proc Qualis {query1 siteList} {
			array set markTable {
				A1	7..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<!--
	[
		set siteList {{plutao.dpi.inpe.br 800} {mtc-m19.sid.inpe.br 800}}
		proc Qualis {query1 siteList} {
			array set markTable {
				A1	7
				A2	6
				B5	5
				B4	4
				B3	3
				B2	2
				B1	1
				C	0
			}
			set codedPassword {}
			set format 1	;# {site rep-i} {site rep-i} ...
			set searchResult1 [FindMetadataRepositories $query1 0 $siteList $codedPassword no no $format]
			set searchResult1 [lsort -unique $searchResult1]
			set query2 "not $query1 and ref Journal"
			set searchResult2 [FindMetadataRepositories $query2 0 $siteList $codedPassword no no $format]
			set searchResult2 [lsort -unique $searchResult2]
			set number1 [llength $searchResult1]
			set number2 [llength $searchResult2]
			set dataList {}
			foreach item $searchResult1 {
				foreach {site rep-i} $item {break}
				SetFieldValue $site ${rep-i} secondarymark
				set max 0
				foreach item2 $secondarymark {
					regsub {_.*} $item2 {} mark
					set max [Max $max $markTable($mark)]
				}
				lappend dataList $max
			}
			set mean [format %4.1f [Mean $dataList]]
			set standarDeviation [expr sqrt([Variance $dataList])]
			set degrees [expr $number1 - 1]
			set student_t [expr sqrt([::math::statistics::Inverse-cdf-toms322 1 $degrees 0.95])]
			return [list $mean&#177\;[string trim [format %4.1f [expr $student_t * $standarDeviation / sqrt($number1)]]] [expr int($number1 * 100 / ($number1 + $number2)]]
		}		
		foreach {qualisCEA porcentagemQualisCEA} [Qualis {secondarym * and y 2010 and firstgr CEA} $siteList] {break}
		foreach {qualisCPT porcentagemQualisCPT} [Qualis {secondarym * and y 2010 and firstgr CPT} $siteList] {break}
		foreach {qualisCST porcentagemQualisCST} [Qualis {secondarym * and y 2010 and firstgr CST} $siteList] {break}
		foreach {qualisCTE porcentagemQualisCTE} [Qualis {secondarym * and y 2010 and firstgr CTE} $siteList] {break}
		foreach {qualisOBT porcentagemQualisOBT} [Qualis {secondarym * and y 2010 and firstgr OBT} $siteList] {break}
	]
	
-->

<HTML>
	<HEAD><TITLE>Tabela de fatores de impacto por coordenadorias </TITLE></HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>Tabela de fatores de impacto por coordenadorias </I>
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>
	
			<TABLE BORDER ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=16.6%>
						&nbsp;
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CEA
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CPT
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CST
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						CTE
					</TD>
					<TD ALIGN=CENTER WIDTH=16.6%>
						OBT
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER WIDTH=16.6%>
						Qualis
					</TD>
					<TD ALIGN=CENTER>
						$qualisCEA
					</TD>
					<TD ALIGN=CENTER>
						$qualisCPT
					</TD>
					<TD ALIGN=CENTER>
						$qualisCST
					</TD>
					<TD ALIGN=CENTER>
						$qualisCTE
					</TD>
					<TD ALIGN=CENTER>
						$qualisOBT
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER WIDTH=16.6%>
						x
					</TD>
					<TD ALIGN=CENTER>
						$porcentagemQualisCEA
					</TD>
					<TD ALIGN=CENTER>
						$porcentagemQualisCPT
					</TD>
					<TD ALIGN=CENTER>
						$porcentagemQualisCST
					</TD>
					<TD ALIGN=CENTER>
						$porcentagemQualisCTE
					</TD>
					<TD ALIGN=CENTER>
						$porcentagemQualisOBT
					</TD>
				</TR>
			</TABLE>

			<P ALIGN=CENTER>
				Os valores possíveis de fatores de impacto se estendem de 0 a 7.
				<BR>
				O fator de impacto é a média das melhores classificacões do Qualis da CAPES das revistas
				divulgando artigos com autoria INPE no ano de 2010.
				<BR>
				Os intervalos correspondem a um coeficiente de confiança de 95% (caso a distribuição fosse considerada normal).
				<BR>
				Tabela gerada automaticamente pelo UR<I>Lib</I>Service.
			</P>
		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 2 searches have been made.
DisplayNumber: all the 2 searches have been made.
DisplayNumber: all the 2 searches have been made.
DisplayNumber: all the 2 searches have been made.
DisplayNumber: all the 2 searches have been made.
DisplayNumber: all the 2 searches have been made.
DisplayNumber: all the 4 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
05/01/11 12:48
05/01/11 12:48
CreateTclPage (first substitution):
syntax error in expression "100 - 56%": premature end of expression
    while executing
"expr 100 - $x3"
    invoked from within
"if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}"
    invoked from within
"subst {<HTML>
	<HEAD>
		<TITLE>
			Tabela mostrando por coordenadorias a percentagem de registros oriundos da plataforma Lattes em 2010
		</TITLE>
	</..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
	<HEAD>
		<TITLE>
			Tabela mostrando por coordenadorias a percentagem de registros oriundos da plataforma Lattes em 2010
		</TITLE>
	</HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>
					Tabela mostrando por coordenadorias a percentagem de registros oriundos da plataforma Lattes em 2010
				</I>
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>

			<P ALIGN=CENTER>
				Esta tabela foi gerada automaticamente pelo <I>URL</I>ibService
			</P>

<!-- [set totalNumberOfSearches 32] -->
<!-- [set commonSearchExpressionForLattes {ref journal or ref conference or ref book and y 2010 and not secondaryt NTC and not secondaryt PUD and not secondaryt MAN and not type RPQ and not conferencen Dynamics Days South America 2010 and not conferencen worcap 10 and lab lattes}] -->
<!-- [set commonSearchExpressionForNotLattes {ref journal or ref conference or ref book and y 2010 and not secondaryt NTC and not secondaryt PUD and not secondaryt MAN and not type RPQ and not conferencen Dynamics Days South America 2010 and not conferencen worcap 10 and not lab lattes}] -->

			<TABLE BORDER CELLPADDING=4 ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=40>
						Coordenadorias
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						Lattes
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						SID
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						% Lattes
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						% SID
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CBE] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CCR] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CEA] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CGI] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name COF] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CPA] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CPT] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CRC] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CST] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CTE] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name DIR] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name ETE] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name GB] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
				</TR>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name LIT] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name OBT] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name TEC] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set x2 [ExtractNumber $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
			</TABLE>
			
			<P ALIGN=CENTER>
				Os dados apresentados nesta tabela se referem à artigos em revista, artigos em evento e capítulos de livro.
				<BR>
				Dos artigos em evento foram excluidos os artigos do Dynamics Days South America 2010 e do WORCAP 10.
			</P>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
DisplayNumber: all the 32 searches have been made.
01/06/13 13:12
DisplayNumber: all the 32 searches have been made.
01/07/16 16:21
01/07/16 16:21
CreateTclPage (first substitution):
CreateOutput: unexpected searchResult value: archiveaddress mtc-m16c.sid.inpe.br contenttype.metadata(BibINPE) Metadata ibi {rep sid.inpe.br/mtc-m18@80/2010/06.22.18.13.06} ibi.archiveservice {rep sid.inpe.br/mtc-m18@80/2008/03.17.15.17} ibi.metadata(BibINPE) {rep sid.inpe.br/mtc-m18@80/2010/06.22.18.13.06} ibi.platformsoftware {rep dpi.inpe.br/banon/1998/08.02.08.56} state.metadata(BibINPE) Original timestamp.metadata(BibINPE) 2015-05-19T13:36:07Z url.metadata(BibINPE) http://mtc-m16c.sid.inpe.br/col/sid.inpe.br/mtc-m18@80/2010/06.22.18.13.06/doc/metadata.cgi?choice=fullBibINPE urlkey 1467400910-1930769890260631
the query was: list GetMetadataRepositories sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 3 {ref journal or ref conference or ref book and y 2010 and not secondaryt NTC and not secondaryt PUD and not secondaryt MAN and not type RPQ and not conferencen Dynamics Days South America 2010 and not conferencen worcap 10 and lab lattes and firstg *COF-INPE*} no no 1 metadatalastupdate repArray {} pages 3 {}
    while executing
"error "CreateOutput: unexpected searchResult value: $searchResult\nthe query was: $query""
    invoked from within
"if [regexp {^\d+$} $n] {
# n is integer
						incr numberOfEntries2 $n
					} else {
# n is not integer
						error "CreateOutput: unexpected searchRe..."
    invoked from within
"if ![string equal {} $n] {
					if [regexp {^\d+$} $n] {
# n is integer
						incr numberOfEntries2 $n
					} else {
# n is not integer
						error "C..."
    ("foreach" body line 5)
    invoked from within
"foreach searchResult $searchResultList {
# puts $searchResult
				set n 0
				catch {foreach {1 2 3 4 5 n} $searchResult {break}}	;# searchResult may ..."
    invoked from within
"if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] {
# the search expression has a syntax error
		if $header {
			if [info exists cgi(query)]..."
    (procedure "CreateOutput" line 218)
    invoked from within
"CreateOutput $language $languageRep1 $languageRep2 $query {} Search {}  $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1  {^$} 0 ..."
    invoked from within
"if [info exists searchResultArray($itemName)] {
#		Load $dirName/searchResult/$fileName output
		set output $searchResultArray($itemName)
#		set log "..."
    (procedure "DisplayNumber" line 30)
    invoked from within
"DisplayNumber $searchExpression2 $accent $case $subsetOfGroups $integerWithLink DisplayNumberOfEntries"
    (procedure "DisplayNumberOfEntries" line 14)
    invoked from within
"DisplayNumberOfEntries $searchExpression"
    invoked from within
"set x1 [DisplayNumberOfEntries $searchExpression]"
    invoked from within
"subst {<HTML>
	<HEAD>
		<TITLE>
			Tabela mostrando por coordenadorias a percentagem de registros oriundos da plataforma Lattes em 2010
		</TITLE>
	</..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
<HTML>
	<HEAD>
		<TITLE>
			Tabela mostrando por coordenadorias a percentagem de registros oriundos da plataforma Lattes em 2010
		</TITLE>
	</HEAD>
	<BODY BGCOLOR=#F8F8D2>
		<FONT FACE=Arial SIZE=2>

			<P ALIGN=CENTER>
				<I>
					Tabela mostrando por coordenadorias a percentagem de registros oriundos da plataforma Lattes em 2010
				</I>
				<BR>
				Última atualização: [clock format [clock second] -format "%d/%m/%y %H:%M"]
			</P>

			<P ALIGN=CENTER>
				Esta tabela foi gerada automaticamente pelo <I>URL</I>ibService
			</P>

<!-- [set totalNumberOfSearches 32] -->
<!-- [set totalLattes 0] -->
<!-- [set totalSID 0] -->
<!-- [set commonSearchExpressionForLattes {ref journal or ref conference or ref book and y 2010 and not secondaryt NTC and not secondaryt PUD and not secondaryt MAN and not type RPQ and not conferencen Dynamics Days South America 2010 and not conferencen worcap 10 and lab lattes}] -->
<!-- [set commonSearchExpressionForNotLattes {ref journal or ref conference or ref book and y 2010 and not secondaryt NTC and not secondaryt PUD and not secondaryt MAN and not type RPQ and not conferencen Dynamics Days South America 2010 and not conferencen worcap 10 and not lab lattes}] -->

			<TABLE BORDER CELLPADDING=4 ALIGN=CENTER WIDTH=60%>
				<TR BGCOLOR=#FFBBFF>
					<TD ALIGN=CENTER WIDTH=40>
						Coordenadorias
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						Lattes
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						SID
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						% Lattes
					</TD>
					<TD ALIGN=CENTER WIDTH=40>
						% SID
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CBE] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CCR] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CEA] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CGI] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name COF] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CPA] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CPT] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CRC] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CST] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name CTE] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name DIR] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name ETE] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name GB] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name LIT] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name OBT] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						[set name TEC] 
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x1 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<!-- [set searchExpression "$commonSearchExpressionForNotLattes and firstg *$name-INPE*"] -->
					<TD ALIGN=CENTER>
						[set x2 [DisplayNumberOfEntries $searchExpression]]
					</TD>
					<TD ALIGN=CENTER>
						[
							set x1 [ExtractNumber $x1]
							set totalLattes [expr $totalLattes + $x1]
							set x2 [ExtractNumber $x2]
							set totalSID [expr $totalSID + $x2]
							set total [expr $x1 + $x2]
							if {$total == 0} {
								set x3 -
							} else {
								set x3 [expr $x1 * 100 / $total]%
							}
						]
					</TD>
					<TD ALIGN=CENTER>
						[
							if {$total == 0} {
								set x4 -
							} else {
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
							}
						]
					</TD>
				</TR>
				<TR BGCOLOR=#EEEEEE>
					<TD ALIGN=CENTER>
						total 
					</TD>
					<TD ALIGN=CENTER>
						$totalLattes
					</TD>
					<TD ALIGN=CENTER>
						$totalSID
					</TD>
					<TD ALIGN=CENTER>
						[
								set x3 [expr $totalLattes * 100 / ($totalLattes + $totalSID)]%
						]
					</TD>
					<TD ALIGN=CENTER>
						[
								regsub {%} $x3 {} x3
								set x4 [expr 100 - $x3]%
						]
					</TD>
				</TR>
			</TABLE>
			
			<P ALIGN=CENTER>
				Os dados apresentados nesta tabela se referem à artigos em revista, artigos em evento e capítulos de livro.
				<BR>
				Dos artigos em evento foram excluidos os artigos do Dynamics Days South America 2010 e do WORCAP 10.
			</P>

		</FONT>
	</BODY>
</HTML>
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword"
28/08/16 09:26
DisplayNumber: all the 32 searches have been made.