28/11/08 13:34
DisplayNumber: all the 18 searches have been made.
28/11/08 13:40
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 54 searches have been made.
DisplayNumber: all the 72 searches have been made.
DisplayNumber: all the 90 searches have been made.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
28/11/08 13:43
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
28/11/08 13:44
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
28/11/08 13:47
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 54 searches have been made.
DisplayNumber: all the 72 searches have been made.
Trace from DisplayNumber: the search expression was <secondarytype, MAN or secondarytype, NTC or secondarytype, PUD and year, 2008>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 12.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
28/11/08 13:49
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
28/11/08 13:51
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
28/11/08 13:59
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
28/11/08 14:01
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
28/11/08 14:06
08/12/08 18:48
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 54 searches have been made.
08/12/08 18:52
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 54 searches have been made.
08/12/08 19:02
DisplayNumber: all the 18 searches have been made.
08/12/08 19:07
DisplayNumber: all the 18 searches have been made.
08/12/08 19:13
14/12/08 15:20
DisplayNumber: all the 18 searches have been made.
14/12/08 15:23
Trace from DisplayNumber: the search expression was <repository, */2008/* and year, 2002>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 12.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
14/12/08 15:24
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 36 searches have been made.
14/12/08 15:27
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 54 searches have been made.
14/12/08 16:16
DisplayNumber: all the 18 searches have been made.
14/12/08 20:18
DisplayNumber: all the 18 searches have been made.
14/12/08 20:21
DisplayNumber: all the 18 searches have been made.
14/12/08 20:41
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
14/12/08 20:43
CreateTclPage (first substitution):
can't read "referenceTypeTable2(AR and hostcollection, *)": no such element in array
    while executing
"set searchExpression "$referenceTypeTable2($referenceType and hostcollection, *)""
    ("foreach" body line 2)
    invoked from within
"foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType and hostcollection, *)"
set number [DisplayNumber..."
    invoked from within
"if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]..."
    invoked from within
"subst set\ fileContentList\ \{\n\{\}\n\{\n%\ This\ file\ is\ interpreted\ by\ tcl\ so\ each\ LaTeX\ back\ slash\ must\ be\ duplicated\n%\\\\documentcl..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
{}
{
% This file is interpreted by tcl so each LaTeX back slash must be duplicated
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}
\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}

\\repositorio{$thisRepository} %% repositório onde está depositado o documento

\\RequirePackage{comment}

\\begin{comment}

[

set siteList {
hermes2.dpi.inpe.br:1905
marte.dpi.inpe.br:80
mtc-m05.sid.inpe.br:80
mtc-m16.sid.inpe.br:80
{mtc-m15.sid.inpe.br 800}
{ismm.dpi.inpe.br 800}
{mtc-m18.sid.inpe.br 800}
{md-m09.sid.inpe.br 800}
mtc-m12.sid.inpe.br:80
mtc-m17.sid.inpe.br:80
{plutao.dpi.inpe.br 800}
bibdigital.sid.inpe.br:80
}

proc CreateDataSet {args} {
set i 0
set data {}
foreach input [lindex $args 0] {
set line {}
foreach list $args {
lappend line [lindex $list $i]
}
lappend data $line
incr i
}
return [join $data \n]
}

# CreateSequence creates a list of bar group position along the x axis
proc CreateSequence {numberOfItems firstSequenceItem increment} {
set sequenceItem $firstSequenceItem
for {set i 1} {$i <= $numberOfItems} {incr i} {
lappend sequence $sequenceItem
set sequenceItem [expr $sequenceItem + $increment]
}
return $sequence
}

proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
set firstSequenceItem [expr 2 * $barWidth]
set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
set maxTable(1) 1; set dticksTable(1) 0.2
set maxTable(2) 2; set dticksTable(2) 0.4
set maxTable(3) 3; set dticksTable(3) 0.5
set maxTable(4) 4; set dticksTable(4) 1
set maxTable(5) 5; set dticksTable(5) 1
set maxTable(6) 6; set dticksTable(6) 1
set maxTable(7) 8; set dticksTable(7) 2
set maxTable(8) 8; set dticksTable(8) 2
set maxTable(9) 10; set dticksTable(9) 2
set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
return [list $firstSequenceItem $xmax $ymax $dyticks]
}

set currentYear 2008
set ingestYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set publicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set vivaPublicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}

set referenceTypeTable(AR) {Artigo em revista}
set referenceTypeTable(AE) {Artigo em evento}
set referenceTypeTable(CL) {Cap\'itulo de Livro}
set referenceTypeTable(eP) {ePrint}
set referenceTypeTable(L) {Livro}
set referenceTypeTable(MA) {Material Audiovisual}
set referenceTypeTable(MNP) {MAN NTC PUD}
set referenceTypeTable(R) {Relat\'orio}
set referenceTypeTable(TD) {Tese e disserta\c{c}\~ao}

set referenceTypeList {AR L MNP CL AE TD R eP MA}	;# specifies the display order

set referenceTypeTable2(AR) {referencetype, Journal Article}
set referenceTypeTable2(AE) {referencetype, Conference Proceedings}
set referenceTypeTable2(CL) {referencetype, Book Section}
set referenceTypeTable2(eP) {referencetype, Electronic Source}
set referenceTypeTable2(L) {secondarytype, l* and referencetype, book and not referencetype, section}
set referenceTypeTable2(MA) {referencetype, Audiovisual Material}
set referenceTypeTable2(MNP) {secondarytype, MAN or secondarytype, NTC or secondarytype, PUD}
set referenceTypeTable2(R) {referencetype, Report}
set referenceTypeTable2(TD) {referencetype, Thesis}

set totalNumberOfSearches 0

# set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear referenceType currentYearReferenceType thesisVivaPublicationYear}
set figureToBeUpdatedList {referenceType currentYearReferenceType thesisVivaPublicationYear}

if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2]
set numberOfRecordsPerIngestYear 0
set numberOfFullTextPerIngestYear 0
foreach ingestYear $ingestYearList {
set searchExpression "repository */$ingestYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerIngestYearList $number
incr numberOfRecordsPerIngestYear $number
set searchExpression "repository */$ingestYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerIngestYearList $number
incr numberOfFullTextPerIngestYear $number
}
}

if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfRecordsPerPublicationYear 0
set numberOfFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "repository */$currentYear/* and year, $publicationYear and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerPublicationYearList $number
incr numberOfRecordsPerPublicationYear $number
set searchExpression "repository */$currentYear/* and year, $publicationYear and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerPublicationYearList $number
incr numberOfFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerPublicationYear 0
set numberOfThesisFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "year, $publicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerPublicationYearList $number
incr numberOfThesisRecordsPerPublicationYear $number
set searchExpression "year, $publicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerPublicationYearList $number
incr numberOfThesisFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerReferenceType 0
set numberOfFullTextPerReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType and hostcollection, *)"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerReferenceTypeList $number
incr numberOfRecordsPerReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerReferenceTypeList $number
incr numberOfFullTextPerReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerCurrentYearReferenceType 0
set numberOfFullTextPerCurrentYearReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerCurrentYearReferenceTypeList $number
incr numberOfRecordsPerCurrentYearReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerCurrentYearReferenceTypeList $number
incr numberOfFullTextPerCurrentYearReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerVivaPublicationYear 0
set numberOfThesisFullTextPerVivaPublicationYear 0
foreach vivaPublicationYear $vivaPublicationYearList {
set searchExpression "date, $vivaPublicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerVivaPublicationYearList $number
incr numberOfThesisRecordsPerVivaPublicationYear $number
set searchExpression "year, $vivaPublicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerVivaPublicationYearList $number
incr numberOfThesisFullTextPerVivaPublicationYear $number
}
}

set hei 0.2
set dxticks 1.2
set barWidth 0.40

set barRed1 130; set barGreen1 130; set barBlue1 230
set barRed2 30; set barGreen2 30; set barBlue2 130

]

\\end{comment}

\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex

\\begin{document}

\\input{./document}

\\begin{flushleft}
\\renewcommand{\\baselinestretch}{0.9}
\\footnotesize
\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
(última data de atualização: [clock format [clock seconds] -format "%d/%m/%Y às %H:%M"]).
\\end{flushleft}

\\end{document}
}

[
set dynamicList {}

# Figure 1
if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
lappend dynamicList {ingestYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $ingestYearList $numberOfRecordsPerIngestYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $ingestYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerIngestYearList $numberOfFullTextPerIngestYearList
]
lappend dynamicList {ingestYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"ingestYearBar.dat\"
xtitle \"Anos de inser\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $ingestYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerIngestYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerIngestYear\"
end key
"
}

# Figure 2
if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
lappend dynamicList {publicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfFullTextPerPublicationYearList
]
lappend dynamicList {publicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"publicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerPublicationYear\"
end key
"
}

# Figure 3
if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
lappend dynamicList {thesisPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfThesisRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerPublicationYearList $numberOfThesisFullTextPerPublicationYearList
]
lappend dynamicList {thesisPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisPublicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfThesisRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
end key
"
}

# Figure 4
if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
lappend dynamicList {referenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
]
lappend dynamicList {referenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"referenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerReferenceType\"
end key
"
}

# Figure 5
if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
lappend dynamicList {currentYearReferenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerCurrentYearReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerCurrentYearReferenceTypeList $numberOfFullTextPerCurrentYearReferenceTypeList
]
lappend dynamicList {currentYearReferenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"currentYearReferenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerCurrentYearReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerCurrentYearReferenceType\"
end key
"
}

# Figure 6
if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
lappend dynamicList {thesisVivaPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $vivaPublicationYearList $numberOfThesisRecordsPerVivaPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $vivaPublicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerVivaPublicationYearList $numberOfThesisFullTextPerVivaPublicationYearList
]
lappend dynamicList {thesisVivaPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisVivaPublicationYearBar.dat\"
xtitle \"Anos de defesa ou publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
end key
"
}

set dynamicList
]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
14/12/08 20:44
CreateTclPage (first substitution):
can't read "referenceTypeTable2(AR and hostcollection, *)": no such element in array
    while executing
"set searchExpression "$referenceTypeTable2($referenceType and hostcollection, *)""
    ("foreach" body line 2)
    invoked from within
"foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType and hostcollection, *)"
set number [DisplayNumber..."
    invoked from within
"if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]..."
    invoked from within
"subst set\ fileContentList\ \{\n\{\}\n\{\n%\ This\ file\ is\ interpreted\ by\ tcl\ so\ each\ LaTeX\ back\ slash\ must\ be\ duplicated\n%\\\\documentcl..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
{}
{
% This file is interpreted by tcl so each LaTeX back slash must be duplicated
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}
\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}

\\repositorio{$thisRepository} %% repositório onde está depositado o documento

\\RequirePackage{comment}

\\begin{comment}

[

set siteList {
hermes2.dpi.inpe.br:1905
marte.dpi.inpe.br:80
mtc-m05.sid.inpe.br:80
mtc-m16.sid.inpe.br:80
{mtc-m15.sid.inpe.br 800}
{ismm.dpi.inpe.br 800}
{mtc-m18.sid.inpe.br 800}
{md-m09.sid.inpe.br 800}
mtc-m12.sid.inpe.br:80
mtc-m17.sid.inpe.br:80
{plutao.dpi.inpe.br 800}
bibdigital.sid.inpe.br:80
}

proc CreateDataSet {args} {
set i 0
set data {}
foreach input [lindex $args 0] {
set line {}
foreach list $args {
lappend line [lindex $list $i]
}
lappend data $line
incr i
}
return [join $data \n]
}

# CreateSequence creates a list of bar group position along the x axis
proc CreateSequence {numberOfItems firstSequenceItem increment} {
set sequenceItem $firstSequenceItem
for {set i 1} {$i <= $numberOfItems} {incr i} {
lappend sequence $sequenceItem
set sequenceItem [expr $sequenceItem + $increment]
}
return $sequence
}

proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
set firstSequenceItem [expr 2 * $barWidth]
set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
set maxTable(1) 1; set dticksTable(1) 0.2
set maxTable(2) 2; set dticksTable(2) 0.4
set maxTable(3) 3; set dticksTable(3) 0.5
set maxTable(4) 4; set dticksTable(4) 1
set maxTable(5) 5; set dticksTable(5) 1
set maxTable(6) 6; set dticksTable(6) 1
set maxTable(7) 8; set dticksTable(7) 2
set maxTable(8) 8; set dticksTable(8) 2
set maxTable(9) 10; set dticksTable(9) 2
set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
return [list $firstSequenceItem $xmax $ymax $dyticks]
}

set currentYear 2008
set ingestYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set publicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set vivaPublicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}

set referenceTypeTable(AR) {Artigo em revista}
set referenceTypeTable(AE) {Artigo em evento}
set referenceTypeTable(CL) {Cap\'itulo de Livro}
set referenceTypeTable(eP) {ePrint}
set referenceTypeTable(L) {Livro}
set referenceTypeTable(MA) {Material Audiovisual}
set referenceTypeTable(MNP) {MAN NTC PUD}
set referenceTypeTable(R) {Relat\'orio}
set referenceTypeTable(TD) {Tese e disserta\c{c}\~ao}

set referenceTypeList {AR L MNP CL AE TD R eP MA}	;# specifies the display order

set referenceTypeTable2(AR) {referencetype, Journal Article}
set referenceTypeTable2(AE) {referencetype, Conference Proceedings}
set referenceTypeTable2(CL) {referencetype, Book Section}
set referenceTypeTable2(eP) {referencetype, Electronic Source}
set referenceTypeTable2(L) {secondarytype, l* and referencetype, book and not referencetype, section}
set referenceTypeTable2(MA) {referencetype, Audiovisual Material}
set referenceTypeTable2(MNP) {secondarytype, MAN or secondarytype, NTC or secondarytype, PUD}
set referenceTypeTable2(R) {referencetype, Report}
set referenceTypeTable2(TD) {referencetype, Thesis}

set totalNumberOfSearches 0

# set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear referenceType currentYearReferenceType thesisVivaPublicationYear}
set figureToBeUpdatedList {referenceType currentYearReferenceType thesisVivaPublicationYear}

if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2]
set numberOfRecordsPerIngestYear 0
set numberOfFullTextPerIngestYear 0
foreach ingestYear $ingestYearList {
set searchExpression "repository */$ingestYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerIngestYearList $number
incr numberOfRecordsPerIngestYear $number
set searchExpression "repository */$ingestYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerIngestYearList $number
incr numberOfFullTextPerIngestYear $number
}
}

if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfRecordsPerPublicationYear 0
set numberOfFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "repository */$currentYear/* and year, $publicationYear and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerPublicationYearList $number
incr numberOfRecordsPerPublicationYear $number
set searchExpression "repository */$currentYear/* and year, $publicationYear and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerPublicationYearList $number
incr numberOfFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerPublicationYear 0
set numberOfThesisFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "year, $publicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerPublicationYearList $number
incr numberOfThesisRecordsPerPublicationYear $number
set searchExpression "year, $publicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerPublicationYearList $number
incr numberOfThesisFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerReferenceType 0
set numberOfFullTextPerReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType and hostcollection, *)"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerReferenceTypeList $number
incr numberOfRecordsPerReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerReferenceTypeList $number
incr numberOfFullTextPerReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerCurrentYearReferenceType 0
set numberOfFullTextPerCurrentYearReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerCurrentYearReferenceTypeList $number
incr numberOfRecordsPerCurrentYearReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerCurrentYearReferenceTypeList $number
incr numberOfFullTextPerCurrentYearReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerVivaPublicationYear 0
set numberOfThesisFullTextPerVivaPublicationYear 0
foreach vivaPublicationYear $vivaPublicationYearList {
set searchExpression "date, $vivaPublicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerVivaPublicationYearList $number
incr numberOfThesisRecordsPerVivaPublicationYear $number
set searchExpression "year, $vivaPublicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerVivaPublicationYearList $number
incr numberOfThesisFullTextPerVivaPublicationYear $number
}
}

set hei 0.2
set dxticks 1.2
set barWidth 0.40

set barRed1 130; set barGreen1 130; set barBlue1 230
set barRed2 30; set barGreen2 30; set barBlue2 130

]

\\end{comment}

\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex

\\begin{document}

\\input{./document}

\\begin{flushleft}
\\renewcommand{\\baselinestretch}{0.9}
\\footnotesize
\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
(última data de atualização: [clock format [clock seconds] -format "%d/%m/%Y às %H:%M"]).
\\end{flushleft}

\\end{document}
}

[
set dynamicList {}

# Figure 1
if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
lappend dynamicList {ingestYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $ingestYearList $numberOfRecordsPerIngestYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $ingestYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerIngestYearList $numberOfFullTextPerIngestYearList
]
lappend dynamicList {ingestYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"ingestYearBar.dat\"
xtitle \"Anos de inser\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $ingestYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerIngestYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerIngestYear\"
end key
"
}

# Figure 2
if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
lappend dynamicList {publicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfFullTextPerPublicationYearList
]
lappend dynamicList {publicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"publicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerPublicationYear\"
end key
"
}

# Figure 3
if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
lappend dynamicList {thesisPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfThesisRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerPublicationYearList $numberOfThesisFullTextPerPublicationYearList
]
lappend dynamicList {thesisPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisPublicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfThesisRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
end key
"
}

# Figure 4
if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
lappend dynamicList {referenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
]
lappend dynamicList {referenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"referenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerReferenceType\"
end key
"
}

# Figure 5
if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
lappend dynamicList {currentYearReferenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerCurrentYearReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerCurrentYearReferenceTypeList $numberOfFullTextPerCurrentYearReferenceTypeList
]
lappend dynamicList {currentYearReferenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"currentYearReferenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerCurrentYearReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerCurrentYearReferenceType\"
end key
"
}

# Figure 6
if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
lappend dynamicList {thesisVivaPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $vivaPublicationYearList $numberOfThesisRecordsPerVivaPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $vivaPublicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerVivaPublicationYearList $numberOfThesisFullTextPerVivaPublicationYearList
]
lappend dynamicList {thesisVivaPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisVivaPublicationYearBar.dat\"
xtitle \"Anos de defesa ou publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
end key
"
}

set dynamicList
]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
14/12/08 20:46
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
DisplayNumber: all the 54 searches have been made.
14/12/08 21:10
CreateTclPage (first substitution):
invalid command name "!set"
    while executing
"!set dxticks 1.2"
    invoked from within
"subst set\ fileContentList\ \{\n\{\}\n\{\n%\ This\ file\ is\ interpreted\ by\ tcl\ so\ each\ LaTeX\ back\ slash\ must\ be\ duplicated\n%\\\\documentcl..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
{}
{
% This file is interpreted by tcl so each LaTeX back slash must be duplicated
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}
\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}

\\repositorio{$thisRepository} %% repositório onde está depositado o documento

\\RequirePackage{comment}

\\begin{comment}

[

set siteList {
hermes2.dpi.inpe.br:1905
marte.dpi.inpe.br:80
mtc-m05.sid.inpe.br:80
mtc-m16.sid.inpe.br:80
{mtc-m15.sid.inpe.br 800}
{ismm.dpi.inpe.br 800}
{mtc-m18.sid.inpe.br 800}
{md-m09.sid.inpe.br 800}
mtc-m12.sid.inpe.br:80
mtc-m17.sid.inpe.br:80
{plutao.dpi.inpe.br 800}
bibdigital.sid.inpe.br:80
}

proc CreateDataSet {args} {
set i 0
set data {}
foreach input [lindex $args 0] {
set line {}
foreach list $args {
lappend line [lindex $list $i]
}
lappend data $line
incr i
}
return [join $data \n]
}

# CreateSequence creates a list of bar group position along the x axis
proc CreateSequence {numberOfItems firstSequenceItem increment} {
set sequenceItem $firstSequenceItem
for {set i 1} {$i <= $numberOfItems} {incr i} {
lappend sequence $sequenceItem
set sequenceItem [expr $sequenceItem + $increment]
}
return $sequence
}

proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
set firstSequenceItem [expr 2 * $barWidth]
set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
set maxTable(1) 1; set dticksTable(1) 0.2
set maxTable(2) 2; set dticksTable(2) 0.4
set maxTable(3) 3; set dticksTable(3) 0.5
set maxTable(4) 4; set dticksTable(4) 1
set maxTable(5) 5; set dticksTable(5) 1
set maxTable(6) 6; set dticksTable(6) 1
set maxTable(7) 8; set dticksTable(7) 2
set maxTable(8) 8; set dticksTable(8) 2
set maxTable(9) 10; set dticksTable(9) 2
set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
return [list $firstSequenceItem $xmax $ymax $dyticks]
}

set currentYear 2008
set ingestYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set publicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set vivaPublicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}

set referenceTypeTable(AR) {Artigo em revista}
set referenceTypeTable(AE) {Artigo em evento}
set referenceTypeTable(CL) {Cap\'itulo de Livro}
set referenceTypeTable(eP) {ePrint}
set referenceTypeTable(L) {Livro}
set referenceTypeTable(MA) {Material Audiovisual}
set referenceTypeTable(MNP) {MAN NTC PUD}
set referenceTypeTable(R) {Relat\'orio}
set referenceTypeTable(RJ) {Recorte de jornal}
set referenceTypeTable(TD) {Tese e disserta\c{c}\~ao}

set referenceTypeList {AR L MNP CL AE TD R eP MA RJ}	;# specifies the display order

set referenceTypeTable2(AR) {referencetype, Journal Article}
set referenceTypeTable2(AE) {referencetype, Conference Proceedings}
set referenceTypeTable2(CL) {referencetype, Book Section}
set referenceTypeTable2(eP) {referencetype, Electronic Source}
set referenceTypeTable2(L) {secondarytype, l* and referencetype, book and not referencetype, section}
set referenceTypeTable2(MA) {referencetype, Audiovisual Material}
set referenceTypeTable2(MNP) {secondarytype, MAN or secondarytype, NTC or secondarytype, PUD}
set referenceTypeTable2(R) {referencetype, Report}
set referenceTypeTable2(RJ) {referencetype, Newspaper}
set referenceTypeTable2(TD) {referencetype, Thesis}

set totalNumberOfSearches 0

# set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear referenceType currentYearReferenceType thesisVivaPublicationYear}
set figureToBeUpdatedList {referenceType}

if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2]
set numberOfRecordsPerIngestYear 0
set numberOfFullTextPerIngestYear 0
foreach ingestYear $ingestYearList {
set searchExpression "repository */$ingestYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerIngestYearList $number
incr numberOfRecordsPerIngestYear $number
set searchExpression "repository */$ingestYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerIngestYearList $number
incr numberOfFullTextPerIngestYear $number
}
}

if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfRecordsPerPublicationYear 0
set numberOfFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "repository */$currentYear/* and year, $publicationYear and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerPublicationYearList $number
incr numberOfRecordsPerPublicationYear $number
set searchExpression "repository */$currentYear/* and year, $publicationYear and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerPublicationYearList $number
incr numberOfFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerPublicationYear 0
set numberOfThesisFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "year, $publicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerPublicationYearList $number
incr numberOfThesisRecordsPerPublicationYear $number
set searchExpression "year, $publicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerPublicationYearList $number
incr numberOfThesisFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerReferenceType 0
set numberOfFullTextPerReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerReferenceTypeList $number
incr numberOfRecordsPerReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerReferenceTypeList $number
incr numberOfFullTextPerReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerCurrentYearReferenceType 0
set numberOfFullTextPerCurrentYearReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerCurrentYearReferenceTypeList $number
incr numberOfRecordsPerCurrentYearReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerCurrentYearReferenceTypeList $number
incr numberOfFullTextPerCurrentYearReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerVivaPublicationYear 0
set numberOfThesisFullTextPerVivaPublicationYear 0
foreach vivaPublicationYear $vivaPublicationYearList {
set searchExpression "date, $vivaPublicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerVivaPublicationYearList $number
incr numberOfThesisRecordsPerVivaPublicationYear $number
set searchExpression "year, $vivaPublicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerVivaPublicationYearList $number
incr numberOfThesisFullTextPerVivaPublicationYear $number
}
}

set hei 0.2
!set dxticks 1.2
set dxticks 1.08
set barWidth 0.40

set barRed1 130; set barGreen1 130; set barBlue1 230
set barRed2 30; set barGreen2 30; set barBlue2 130

]

\\end{comment}

\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex

\\begin{document}

\\input{./document}

\\begin{flushleft}
\\renewcommand{\\baselinestretch}{0.9}
\\footnotesize
\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
(última data de atualização: [clock format [clock seconds] -format "%d/%m/%Y às %H:%M"]).
\\end{flushleft}

\\end{document}
}

[
set dynamicList {}

# Figure 1
if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
lappend dynamicList {ingestYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $ingestYearList $numberOfRecordsPerIngestYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $ingestYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerIngestYearList $numberOfFullTextPerIngestYearList
]
lappend dynamicList {ingestYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"ingestYearBar.dat\"
xtitle \"Anos de inser\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $ingestYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerIngestYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerIngestYear\"
end key
"
}

# Figure 2
if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
lappend dynamicList {publicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfFullTextPerPublicationYearList
]
lappend dynamicList {publicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"publicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerPublicationYear\"
end key
"
}

# Figure 3
if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
lappend dynamicList {thesisPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfThesisRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerPublicationYearList $numberOfThesisFullTextPerPublicationYearList
]
lappend dynamicList {thesisPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisPublicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfThesisRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
end key
"
}

# Figure 4
if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
lappend dynamicList {referenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
]
lappend dynamicList {referenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"referenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerReferenceType\"
end key
"
}

# Figure 5
if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
lappend dynamicList {currentYearReferenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerCurrentYearReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerCurrentYearReferenceTypeList $numberOfFullTextPerCurrentYearReferenceTypeList
]
lappend dynamicList {currentYearReferenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"currentYearReferenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerCurrentYearReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerCurrentYearReferenceType\"
end key
"
}

# Figure 6
if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
lappend dynamicList {thesisVivaPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $vivaPublicationYearList $numberOfThesisRecordsPerVivaPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $vivaPublicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerVivaPublicationYearList $numberOfThesisFullTextPerVivaPublicationYearList
]
lappend dynamicList {thesisVivaPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisVivaPublicationYearBar.dat\"
xtitle \"Anos de defesa ou publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
end key
"
}

set dynamicList
]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
14/12/08 21:11
CreateTclPage (first substitution):
invalid command name "!set"
    while executing
"!set dxticks 1.2"
    invoked from within
"subst set\ fileContentList\ \{\n\{\}\n\{\n%\ This\ file\ is\ interpreted\ by\ tcl\ so\ each\ LaTeX\ back\ slash\ must\ be\ duplicated\n%\\\\documentcl..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
{}
{
% This file is interpreted by tcl so each LaTeX back slash must be duplicated
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}
\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}

\\repositorio{$thisRepository} %% repositório onde está depositado o documento

\\RequirePackage{comment}

\\begin{comment}

[

set siteList {
hermes2.dpi.inpe.br:1905
marte.dpi.inpe.br:80
mtc-m05.sid.inpe.br:80
mtc-m16.sid.inpe.br:80
{mtc-m15.sid.inpe.br 800}
{ismm.dpi.inpe.br 800}
{mtc-m18.sid.inpe.br 800}
{md-m09.sid.inpe.br 800}
mtc-m12.sid.inpe.br:80
mtc-m17.sid.inpe.br:80
{plutao.dpi.inpe.br 800}
bibdigital.sid.inpe.br:80
}

proc CreateDataSet {args} {
set i 0
set data {}
foreach input [lindex $args 0] {
set line {}
foreach list $args {
lappend line [lindex $list $i]
}
lappend data $line
incr i
}
return [join $data \n]
}

# CreateSequence creates a list of bar group position along the x axis
proc CreateSequence {numberOfItems firstSequenceItem increment} {
set sequenceItem $firstSequenceItem
for {set i 1} {$i <= $numberOfItems} {incr i} {
lappend sequence $sequenceItem
set sequenceItem [expr $sequenceItem + $increment]
}
return $sequence
}

proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
set firstSequenceItem [expr 2 * $barWidth]
set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
set maxTable(1) 1; set dticksTable(1) 0.2
set maxTable(2) 2; set dticksTable(2) 0.4
set maxTable(3) 3; set dticksTable(3) 0.5
set maxTable(4) 4; set dticksTable(4) 1
set maxTable(5) 5; set dticksTable(5) 1
set maxTable(6) 6; set dticksTable(6) 1
set maxTable(7) 8; set dticksTable(7) 2
set maxTable(8) 8; set dticksTable(8) 2
set maxTable(9) 10; set dticksTable(9) 2
set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
return [list $firstSequenceItem $xmax $ymax $dyticks]
}

set currentYear 2008
set ingestYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set publicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
set vivaPublicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}

set referenceTypeTable(AR) {Artigo em revista}
set referenceTypeTable(AE) {Artigo em evento}
set referenceTypeTable(CL) {Cap\'itulo de Livro}
set referenceTypeTable(eP) {ePrint}
set referenceTypeTable(L) {Livro}
set referenceTypeTable(MA) {Material Audiovisual}
set referenceTypeTable(MNP) {MAN NTC PUD}
set referenceTypeTable(R) {Relat\'orio}
set referenceTypeTable(RJ) {Recorte de jornal}
set referenceTypeTable(TD) {Tese e disserta\c{c}\~ao}

set referenceTypeList {AR L MNP CL AE TD R eP MA RJ}	;# specifies the display order

set referenceTypeTable2(AR) {referencetype, Journal Article}
set referenceTypeTable2(AE) {referencetype, Conference Proceedings}
set referenceTypeTable2(CL) {referencetype, Book Section}
set referenceTypeTable2(eP) {referencetype, Electronic Source}
set referenceTypeTable2(L) {secondarytype, l* and referencetype, book and not referencetype, section}
set referenceTypeTable2(MA) {referencetype, Audiovisual Material}
set referenceTypeTable2(MNP) {secondarytype, MAN or secondarytype, NTC or secondarytype, PUD}
set referenceTypeTable2(R) {referencetype, Report}
set referenceTypeTable2(RJ) {referencetype, Newspaper}
set referenceTypeTable2(TD) {referencetype, Thesis}

set totalNumberOfSearches 0

# set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear referenceType currentYearReferenceType thesisVivaPublicationYear}
set figureToBeUpdatedList {referenceType}

if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2]
set numberOfRecordsPerIngestYear 0
set numberOfFullTextPerIngestYear 0
foreach ingestYear $ingestYearList {
set searchExpression "repository */$ingestYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerIngestYearList $number
incr numberOfRecordsPerIngestYear $number
set searchExpression "repository */$ingestYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerIngestYearList $number
incr numberOfFullTextPerIngestYear $number
}
}

if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfRecordsPerPublicationYear 0
set numberOfFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "repository */$currentYear/* and year, $publicationYear and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerPublicationYearList $number
incr numberOfRecordsPerPublicationYear $number
set searchExpression "repository */$currentYear/* and year, $publicationYear and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerPublicationYearList $number
incr numberOfFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerPublicationYear 0
set numberOfThesisFullTextPerPublicationYear 0
foreach publicationYear $publicationYearList {
set searchExpression "year, $publicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerPublicationYearList $number
incr numberOfThesisRecordsPerPublicationYear $number
set searchExpression "year, $publicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerPublicationYearList $number
incr numberOfThesisFullTextPerPublicationYear $number
}
}

if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerReferenceType 0
set numberOfFullTextPerReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerReferenceTypeList $number
incr numberOfRecordsPerReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerReferenceTypeList $number
incr numberOfFullTextPerReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
set numberOfRecordsPerCurrentYearReferenceType 0
set numberOfFullTextPerCurrentYearReferenceType 0
foreach referenceType $referenceTypeList {
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfRecordsPerCurrentYearReferenceTypeList $number
incr numberOfRecordsPerCurrentYearReferenceType $number
set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and size, * and hostcollection, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfFullTextPerCurrentYearReferenceTypeList $number
incr numberOfFullTextPerCurrentYearReferenceType $number
}
}

if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
set numberOfThesisRecordsPerVivaPublicationYear 0
set numberOfThesisFullTextPerVivaPublicationYear 0
foreach vivaPublicationYear $vivaPublicationYearList {
set searchExpression "date, $vivaPublicationYear and referencetype, Thesis"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisRecordsPerVivaPublicationYearList $number
incr numberOfThesisRecordsPerVivaPublicationYear $number
set searchExpression "year, $vivaPublicationYear and referencetype, Thesis and size, *"
set number [DisplayNumberOfEntries2 $searchExpression]
lappend numberOfThesisFullTextPerVivaPublicationYearList $number
incr numberOfThesisFullTextPerVivaPublicationYear $number
}
}

set hei 0.2
!set dxticks 1.2
set dxticks 1.08
set barWidth 0.40

set barRed1 130; set barGreen1 130; set barBlue1 230
set barRed2 30; set barGreen2 30; set barBlue2 130

]

\\end{comment}

\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex

\\begin{document}

\\input{./document}

\\begin{flushleft}
\\renewcommand{\\baselinestretch}{0.9}
\\footnotesize
\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
(última data de atualização: [clock format [clock seconds] -format "%d/%m/%Y às %H:%M"]).
\\end{flushleft}

\\end{document}
}

[
set dynamicList {}

# Figure 1
if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
lappend dynamicList {ingestYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $ingestYearList $numberOfRecordsPerIngestYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $ingestYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerIngestYearList $numberOfFullTextPerIngestYearList
]
lappend dynamicList {ingestYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"ingestYearBar.dat\"
xtitle \"Anos de inser\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $ingestYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerIngestYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerIngestYear\"
end key
"
}

# Figure 2
if {[lsearch $figureToBeUpdatedList publicationYear] != -1} {
lappend dynamicList {publicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfFullTextPerPublicationYearList
]
lappend dynamicList {publicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"publicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerPublicationYear\"
end key
"
}

# Figure 3
if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} {
lappend dynamicList {thesisPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfThesisRecordsPerPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerPublicationYearList $numberOfThesisFullTextPerPublicationYearList
]
lappend dynamicList {thesisPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 6.0	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisPublicationYearBar.dat\"
xtitle \"Anos de publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfThesisRecordsPerPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
end key
"
}

# Figure 4
if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
lappend dynamicList {referenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
]
lappend dynamicList {referenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"referenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerReferenceType\"
end key
"
}

# Figure 5
if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
lappend dynamicList {currentYearReferenceTypeBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerCurrentYearReferenceTypeList] {break}
set graphymove 2
set graphxsize 15.4
set graphysize 5.6
CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerCurrentYearReferenceTypeList $numberOfFullTextPerCurrentYearReferenceTypeList
]
lappend dynamicList {currentYearReferenceTypeBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"currentYearReferenceTypeBar.dat\"
xtitle \"Tipos de refer\\^encia\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $referenceTypeList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute -1.84+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"$referenceType\""
}
join $lineList \n
]
end key

begin key
justify bc
absolute -0.6+(pagewidth()/2) 0
hei $hei
nobox
[
set lineList {}
foreach referenceType $referenceTypeList {
lappend lineList "text \"- $referenceTypeTable($referenceType)\""
}
join $lineList \n
]
end key

begin key
justify bc
!absolute 1.7+(pagewidth()/2) 0
absolute 2.2+(pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerCurrentYearReferenceType\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerCurrentYearReferenceType\"
end key
"
}

# Figure 6
if {[lsearch $figureToBeUpdatedList thesisVivaPublicationYear] != -1} {
lappend dynamicList {thesisVivaPublicationYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $vivaPublicationYearList $numberOfThesisRecordsPerVivaPublicationYearList] {break}
set graphymove 0.3
set graphxsize 15.4
set graphysize 5.8
CreateDataSet [CreateSequence [llength $vivaPublicationYearList] $firstSequenceItem $dxticks] $numberOfThesisRecordsPerVivaPublicationYearList $numberOfThesisFullTextPerVivaPublicationYearList
]
lappend dynamicList {thesisVivaPublicationYearBar.gle}
lappend dynamicList \
"
! size 15.4 7.4	! size of the paper
size $graphxsize [expr $graphysize * 0.92 + $graphymove]

set font ss lwidth 0.01
set alabeldist .8

barRed1 = $barRed1
barGreen1 = $barGreen1
barBlue1 = $barBlue1
barRed2 = $barRed2
barGreen2 = $barGreen2
barBlue2 = $barBlue2

include \"./color.gle\"
! include \"barstyles.gle\"
include \"./library.gle\"

amove 0 $graphymove
begin graph
size $graphxsize $graphysize
center
data   \"thesisVivaPublicationYearBar.dat\"
xtitle \"Anos de defesa ou publica\\c{c}\\~ao\"
ytitle \"N\\'umero de itens\"
xaxis dticks $dxticks dsubticks $dxticks min 0 max $xmax
xnames $publicationYearList
xticks off
yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
x2axis off
y2axis off
xlabels hei $hei
ylabels hei $hei
bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
end graph

begin key
justify bc
absolute (pagewidth()/2) 0
hei $hei
nobox
boxcolor clear
fill rgb255($barRed1,$barGreen1,$barBlue1) text \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
end key
"
}

set dynamicList
]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path"
14/12/08 21:13
DisplayNumber: all the 20 searches have been made.
14/12/08 21:18
DisplayNumber: all the 20 searches have been made.
14/12/08 21:23
DisplayNumber: all the 20 searches have been made.
14/12/08 21:25
DisplayNumber: all the 18 searches have been made.
14/12/08 21:31
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 36 searches have been made.
14/12/08 21:34
DisplayNumber: all the 18 searches have been made.
15/12/08 12:13
15/12/08 12:15
15/12/08 12:19
15/12/08 12:25
15/12/08 12:26
15/12/08 12:33
15/12/08 12:35
15/12/08 12:37
15/12/08 12:39
15/12/08 12:40
15/12/08 13:51
15/12/08 13:54
15/12/08 14:21
03/11/09 17:32
CreateTclPage (first substitution):
can't read "maxTable(10)": no such element in array
    while executing
"expr int($maxTable($numberOfUnits) * $factor)"
    (procedure "ComputeAxisParameters" line 16)
    invoked from within
"ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList"
    invoked from within
"if {[lsearch $figureToBeUpdatedList year_numberOfPublications] != -1} {
			lappend dynamicList {publicationYearBar.dat}
			lappend dynamicList \
			[
..."
    invoked from within
"subst set\ fileContentList\ \{\n\t\{\}\n\t\{\n\t\t%\ This\ file\ is\ interpreted\ by\ tcl\ so\ each\ LaTeX\ back\ slash\ must\ be\ duplicated\n\t\t%\\..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
	{}
	{
		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}
		\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}
		
		\\repositorio{$thisRepository} %% repositório onde está depositado o documento
		
		\\RequirePackage{comment}
		
		\\begin{comment}
		
		[
		
			set siteList {
				hermes2.dpi.inpe.br:1905
				marte.dpi.inpe.br:80
				mtc-m05.sid.inpe.br:80
				mtc-m16.sid.inpe.br:80
				{mtc-m15.sid.inpe.br 800}
				{ismm.dpi.inpe.br 800}
				{mtc-m18.sid.inpe.br 800}
				{mtc-m19.sid.inpe.br 800}
				{md-m09.sid.inpe.br 800}
				mtc-m12.sid.inpe.br:80
				mtc-m17.sid.inpe.br:80
				{plutao.dpi.inpe.br 800}
				bibdigital.sid.inpe.br:80
			}
			
			proc CreateDataSet {args} {
				set i 0
				set data {}
				foreach input [lindex $args 0] {
					set line {}
					foreach list $args {
						lappend line [lindex $list $i]
					}
					lappend data $line
					incr i
				}
				return [join $data \n]
			}
			
# CreateSequence creates a list of bar group position along the x axis
			proc CreateSequence {numberOfItems firstSequenceItem increment} {
				set sequenceItem $firstSequenceItem
				for {set i 1} {$i <= $numberOfItems} {incr i} {
					lappend sequence $sequenceItem
					set sequenceItem [expr $sequenceItem + $increment]
				}
				return $sequence
			}
			
			proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
				set firstSequenceItem [expr 2 * $barWidth]
				set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
				set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
				set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
				set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
				set maxTable(1) 1; set dticksTable(1) 0.2
				set maxTable(2) 2; set dticksTable(2) 0.4
				set maxTable(3) 3; set dticksTable(3) 0.5
				set maxTable(4) 4; set dticksTable(4) 1
				set maxTable(5) 5; set dticksTable(5) 1
				set maxTable(6) 6; set dticksTable(6) 1
				set maxTable(7) 8; set dticksTable(7) 2
				set maxTable(8) 8; set dticksTable(8) 2
				set maxTable(9) 10; set dticksTable(9) 2
				set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
				set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}
			
			set publicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
			
			set totalNumberOfSearches 0
			
### figureToBeUpdatedList ###			
 			set figureToBeUpdatedList {year_numberOfPublications}
#			set figureToBeUpdatedList {}
			
			if {[lsearch $figureToBeUpdatedList year_numberOfPublications] != -1} {
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfFullTextPerPublicationYear 0
				foreach publicationYear $publicationYearList {
					set searchExpression "ref journal and ar met and y 1994|2009"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y 1994|2009 and dis websci"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfFullTextPerPublicationYearList $number
					incr numberOfFullTextPerPublicationYear $number
				}
			}
			
			
			set hei 0.2
# 			set dxticks 1.2 ;# 9 bars
			set dxticks 1.08	;# 10 bars
			set barWidth 0.40
			
			set barRed1 130; set barGreen1 130; set barBlue1 230
			set barRed2 30; set barGreen2 30; set barBlue2 130
			
		]
		
		\\end{comment}
		
		\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex
		
		\\begin{document}
		
		\\input{./document}
		
		\\begin{flushleft}
		\\renewcommand{\\baselinestretch}{0.9}
		\\footnotesize
		\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
		(última data de atualização: [clock format [clock seconds] -format "%d/%m/%Y às %H:%M"]).
		\\end{flushleft}
		
		\\end{document}
	}

	[
		set dynamicList {}

# Figure year_numberOfPublications
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications] != -1} {
			lappend dynamicList {publicationYearBar.dat}
			lappend dynamicList \
			[
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfFullTextPerPublicationYearList
			]
			lappend dynamicList {publicationYearBar.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]
				
				set font ss lwidth 0.01
				set alabeldist .8
				
				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"publicationYearBar.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de itens\"
				xaxis min 0 max $xmax
				xnames $publicationYearList
				xticks off
				yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph
				
				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerPublicationYear\"
				end key
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
03/11/09 17:34
CreateTclPage (first substitution):
can't read "maxTable(10)": no such element in array
    while executing
"expr int($maxTable($numberOfUnits) * $factor)"
    (procedure "ComputeAxisParameters" line 16)
    invoked from within
"ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList"
    invoked from within
"if {[lsearch $figureToBeUpdatedList year_numberOfPublications] != -1} {
			lappend dynamicList {publicationYearBar.dat}
			lappend dynamicList \
			[
..."
    invoked from within
"subst set\ fileContentList\ \{\n\t\{\}\n\t\{\n\t\t%\ This\ file\ is\ interpreted\ by\ tcl\ so\ each\ LaTeX\ back\ slash\ must\ be\ duplicated\n\t\t%\\..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
	{}
	{
		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}
		\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}
		
		\\repositorio{$thisRepository} %% repositório onde está depositado o documento
		
		\\RequirePackage{comment}
		
		\\begin{comment}
		
		[
		
			set siteList {
				hermes2.dpi.inpe.br:1905
				marte.dpi.inpe.br:80
				mtc-m05.sid.inpe.br:80
				mtc-m16.sid.inpe.br:80
				{mtc-m15.sid.inpe.br 800}
				{ismm.dpi.inpe.br 800}
				{mtc-m18.sid.inpe.br 800}
				{mtc-m19.sid.inpe.br 800}
				{md-m09.sid.inpe.br 800}
				mtc-m12.sid.inpe.br:80
				mtc-m17.sid.inpe.br:80
				{plutao.dpi.inpe.br 800}
				bibdigital.sid.inpe.br:80
			}
			
			proc CreateDataSet {args} {
				set i 0
				set data {}
				foreach input [lindex $args 0] {
					set line {}
					foreach list $args {
						lappend line [lindex $list $i]
					}
					lappend data $line
					incr i
				}
				return [join $data \n]
			}
			
# CreateSequence creates a list of bar group position along the x axis
			proc CreateSequence {numberOfItems firstSequenceItem increment} {
				set sequenceItem $firstSequenceItem
				for {set i 1} {$i <= $numberOfItems} {incr i} {
					lappend sequence $sequenceItem
					set sequenceItem [expr $sequenceItem + $increment]
				}
				return $sequence
			}
			
			proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
				set firstSequenceItem [expr 2 * $barWidth]
				set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
				set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
				set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
				set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
				set maxTable(1) 1; set dticksTable(1) 0.2
				set maxTable(2) 2; set dticksTable(2) 0.4
				set maxTable(3) 3; set dticksTable(3) 0.5
				set maxTable(4) 4; set dticksTable(4) 1
				set maxTable(5) 5; set dticksTable(5) 1
				set maxTable(6) 6; set dticksTable(6) 1
				set maxTable(7) 8; set dticksTable(7) 2
				set maxTable(8) 8; set dticksTable(8) 2
				set maxTable(9) 10; set dticksTable(9) 2
				set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
				set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}
			
			set publicationYearList {2000 2001 2002 2003 2004 2005 2006 2007 2008}
			
			set totalNumberOfSearches 0
			
### figureToBeUpdatedList ###			
 			set figureToBeUpdatedList {year_numberOfPublications}
#			set figureToBeUpdatedList {}
			
			if {[lsearch $figureToBeUpdatedList year_numberOfPublications] != -1} {
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfFullTextPerPublicationYear 0
				foreach publicationYear $publicationYearList {
					set searchExpression "ref journal and ar met and y 1994|2009"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y 1994|2009 and dis websci"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfFullTextPerPublicationYearList $number
					incr numberOfFullTextPerPublicationYear $number
				}
			}
			
			
			set hei 0.2
# 			set dxticks 1.2 ;# 9 bars
			set dxticks 1.08	;# 10 bars
			set barWidth 0.40
			
			set barRed1 130; set barGreen1 130; set barBlue1 230
			set barRed2 30; set barGreen2 30; set barBlue2 130
			
		]
		
		\\end{comment}
		
		\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex
		
		\\begin{document}
		
		\\input{./document}
		
		\\begin{flushleft}
		\\renewcommand{\\baselinestretch}{0.9}
		\\footnotesize
		\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
		(última data de atualização: [clock format [clock seconds] -format "%d/%m/%Y às %H:%M"]).
		\\end{flushleft}
		
		\\end{document}
	}

	[
		set dynamicList {}

# Figure year_numberOfPublications
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications] != -1} {
			lappend dynamicList {publicationYearBar.dat}
			lappend dynamicList \
			[
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfFullTextPerPublicationYearList
			]
			lappend dynamicList {publicationYearBar.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]
				
				set font ss lwidth 0.01
				set alabeldist .8
				
				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"publicationYearBar.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de itens\"
				xaxis min 0 max $xmax
				xnames $publicationYearList
				xticks off
				yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph
				
				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Registro - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerPublicationYear\"
				end key
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1994|2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2000>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2000 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2001>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2001 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2002>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2002 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2003>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2003 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2004>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2004 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2005>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2005 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2006>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2006 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2007>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2007 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2008>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2008 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
04/11/09 00:57
CreateTclPage (first substitution):
can't read "publicationYearList": no such variable
    while executing
"llength $publicationYearList"
    invoked from within
"if {[lsearch $figureToBeUpdatedList year_numberOfPublications1] != -1} {
			lappend dynamicList {year_numberOfPublications1.dat}
			lappend dynamicLis..."
    invoked from within
"subst set\ fileContentList\ \{\n\t\{\}\n\t\{\n\t\t%\ This\ file\ is\ interpreted\ by\ tcl\ so\ each\ LaTeX\ back\ slash\ must\ be\ duplicated\n\t\t%\\..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
	{}
	{
		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}
		\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{../../../../../iconet.com.br/banon/2008/03.25.01.19/doc/tdiinpe}
		
		\\repositorio{$thisRepository} %% repositório onde está depositado o documento
		
		\\RequirePackage{comment}
		
		\\begin{comment}
		
		[
		
			set siteList {
				marte.dpi.inpe.br:80
				mtc-m05.sid.inpe.br:80
				mtc-m16.sid.inpe.br:80
				{mtc-m15.sid.inpe.br 800}
				{mtc-m18.sid.inpe.br 800}
				{mtc-m19.sid.inpe.br 800}
				{md-m09.sid.inpe.br 800}
				mtc-m12.sid.inpe.br:80
				mtc-m17.sid.inpe.br:80
				{plutao.dpi.inpe.br 800}
				bibdigital.sid.inpe.br:80
			}
			
			proc CreateDataSet {args} {
				set i 0
				set data {}
				foreach input [lindex $args 0] {
					set line {}
					foreach list $args {
						lappend line [lindex $list $i]
					}
					lappend data $line
					incr i
				}
				return [join $data \n]
			}
			
# CreateSequence creates a list of bar group position along the x axis
			proc CreateSequence {numberOfItems firstSequenceItem increment} {
				set sequenceItem $firstSequenceItem
				for {set i 1} {$i <= $numberOfItems} {incr i} {
					lappend sequence $sequenceItem
					set sequenceItem [expr $sequenceItem + $increment]
				}
				return $sequence
			}
			
			proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
				set firstSequenceItem [expr 2 * $barWidth]
				set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
				set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
				set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
				set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
				set maxTable(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 3; set dticksTable(2) 0.5
				set maxTable(3) 3; set dticksTable(3) 0.5
				set maxTable(4) 4; set dticksTable(4) 1
				set maxTable(5) 5; set dticksTable(5) 1
				set maxTable(6) 6; set dticksTable(6) 1
				set maxTable(7) 8; set dticksTable(7) 2
				set maxTable(8) 8; set dticksTable(8) 2
				set maxTable(9) 10; set dticksTable(9) 2
				set maxTable(10) 12; set dticksTable(10) 2

				set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
				set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}
			
			set publicationYearList1 {1994 1995 1996 1997 1998 1999 2000 2001}
			set publicationYearList2 {2002 2003 2004 2005 2006 2007 2008 2009}
			
			set totalNumberOfSearches 0
			
### figureToBeUpdatedList ###			
 			set figureToBeUpdatedList {year_numberOfPublications1 year_numberOfPublications2}
#			set figureToBeUpdatedList {}
			
			set hei 0.2
# 			set dxticks 1.2 ;# 9 bars
			set dxticks 1.08	;# 10 bars
			set barWidth 0.40
			
			set barRed1 130; set barGreen1 130; set barBlue1 230
			set barRed2 30; set barGreen2 30; set barBlue2 130
			
		]
		
		\\end{comment}
		
		\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex
		
		\\begin{document}
		
		\\input{./document}
		
		\\begin{flushleft}
		\\renewcommand{\\baselinestretch}{0.9}
		\\footnotesize
		\\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\
		(última data de atualização: [clock format [clock seconds] -format "%d/%m/%Y às %H:%M"]).
		\\end{flushleft}
		
		\\end{document}
	}

	[
		set dynamicList {}

# Figure year_numberOfPublications1
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications1] != -1} {
			lappend dynamicList {year_numberOfPublications1.dat}
			lappend dynamicList \
			[
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList1] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfRecordsPerPublicationYear2 0
				foreach publicationYear $publicationYearList1 {
					set searchExpression "ref journal and ar met and y $publicationYear"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y $publicationYear and dis websci"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList2 $number
					incr numberOfRecordsPerPublicationYear2 $number
				}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList1 $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfRecordsPerPublicationYearList2
			]
			lappend dynamicList {year_numberOfPublications1.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]
				
				set font ss lwidth 0.01
				set alabeldist .8
				
				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"year_numberOfPublications1.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de publica\\c{c}\\~oes\"
				xaxis min 0 max $xmax
				xnames $publicationYearList
				xticks off
				yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph
				
				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Publica\\c{c}\\~ao em revista - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Publica\\c{c}\\~ao em revista indexada - Total: $numberOfRecordsPerPublicationYear2\"
				end key
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 16 searches have been made.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2009>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2007>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2009 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 16 searches have been made.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2004>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2005 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 16 searches have been made.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1999 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 2002 and dis websci>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
CreateTclPage: not all the queries have been satisfied
    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.
Trace from DisplayNumber: the search expression was <ref journal and ar met and y 1997>.
Trace from DisplayNumber: the number of satisfied queries was 10 out of 11.
CreateTclPage: not all the queries have been satisfied
    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 16 searches have been made.
DisplayNumber: all the 32 searches have been made.
01/05/10 18:58
CreateTclPage (first substitution):
wrong # args: should be "ReturnDocumentInformation thisRepository siteList fieldNameList"
    while executing
"ReturnDocumentInformation $thisRepository $siteList"
    invoked from within
"foreach {title author keywords identifier secondarytype} [ReturnDocumentInformation $thisRepository $siteList] {break}"
    invoked from within
"subst set\ fileContentList\ \{\n\t\{\}\n\t\{\n%%%%%%%%%\ Auditoria\ interna\ sobre\ o\ repositório\ da\ Memória\ Científica\ do\ INPE\n\n\t\t%\ Thi..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
	{}
	{
%%%%%%%%% Auditoria interna sobre o repositório da Memória Científica do INPE

		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
		\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}


%		\\RequirePackage{multirow}
%		\\RequirePackage{dcolumn}
		\\RequirePackage{csquotes}

		[foreach {title author keywords identifier secondarytype} [ReturnDocumentInformation $thisRepository $siteList] {break}]

%		\\hypersetup{%
%			pdftitle={$title},
%			pdfauthor={$author},
%			pdfkeywords={$keywords}
%		}


%		\\hypersetup{pdfstartpage=9,pdfpagemode=None,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/}
		\\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/}

%		\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex
%% ENTRAR OS DADOS ENTRE CHAVES NAS LINHAS APROPRIADAS ABAIXO

% CAPA
%		\\titulo{Auditoria interna sobre o repositório da Memória Científica do INPE}
		\\titulo{$title}
		\\title{Internal audit on INPE Scientific Memory repository} %% no idioma secundario
		
%		\\author{Gerald Jean Francis Banon} %% coloque o nome do(s) autor(es), exemplo: Marcus André Fuckner
		\\author{$author} %% coloque o nome do(s) autor(es), exemplo: Marcus André Fuckner
		\\descriccao{Auditoria interna.}
		\\repositorio{$thisRepository} %% repositório onde está depositado o documento
		\\tipoDaPublicacao{$secondarytype} %% tipo da publicação (NTC, RPQ, PRP, MAN, PUD, TDI, TAE e PRE)
		\\IBI{$identifier} %% IBI (exemplo: J8LNKAN8PW/36CT2G2)
		\\date{2010} %% data da publicação
		
% VERSO DA CAPA
		\\input{./versoDaCapa}
		
% FICHA
		\\cutterFICHAC{F951a}
		\\autorUltimoNomeFICHAC{Banon, Gerald Jean Francis} %% exemplo: Fuckner, Marcus André
		\\autorAbreviadoFICHAC {} %% Não usado - deixar vazio
		\\tituloFICHAC{Auditoria interna sobre o repositório da Memória Científica do INPE}
		\\instituicaosigla{INPE} %% não mudar
		\\instituicaocidade{São José dos Campos} %% não mudar
		\\paginasFICHAC{40} %% número total de páginas
%		\\serieinpe{INPE--/} %% número gerado pelo SID
		\\palavraschaveFICHAC{1.~Auditoria. 2.~Memória científica. 3.~Repositório digital. 4.~Arquivo digital. 5.~Biblioteca digital. I.~\\mbox{Título}.} %% recomenda-se pelo menos 5 palavras-chaves - \mbox{} é para evitar hifenização
		\\numeroCDUFICHAC{528.711.7}
		
		
%% ENTRAR OS DADOS ENTRE CHAVES NAS LINHAS APROPRIADAS ABAIXO - FIM

		\\RequirePackage{comment}

		\\begin{comment}

		[

			set siteList {
				marte.dpi.inpe.br:80
				mtc-m05.sid.inpe.br:80
				mtc-m16.sid.inpe.br:80
				{mtc-m15.sid.inpe.br 800}
				{mtc-m18.sid.inpe.br 800}
				{mtc-m19.sid.inpe.br 800}
				{md-m09.sid.inpe.br 800}
				mtc-m12.sid.inpe.br:80
				mtc-m17.sid.inpe.br:80
				{plutao.dpi.inpe.br 800}
				bibdigital.sid.inpe.br:80
			}

			proc CreateDataSet {args} {
				set i 0
				set data {}
				foreach input [lindex $args 0] {
					set line {}
					foreach list $args {
						lappend line [lindex $list $i]
					}
					lappend data $line
					incr i
				}
				return [join $data \n]
			}

# CreateSequence creates a list of bar group position along the x axis
			proc CreateSequence {numberOfItems firstSequenceItem increment} {
				set sequenceItem $firstSequenceItem
				for {set i 1} {$i <= $numberOfItems} {incr i} {
					lappend sequence $sequenceItem
					set sequenceItem [expr $sequenceItem + $increment]
				}
				return $sequence
			}

			proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
				set firstSequenceItem [expr 2 * $barWidth]
				set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
				set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
				set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
				set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
				set maxTable(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 3; set dticksTable(2) 0.5
				set maxTable(3) 3; set dticksTable(3) 0.5
				set maxTable(4) 4; set dticksTable(4) 1
				set maxTable(5) 5; set dticksTable(5) 1
				set maxTable(6) 6; set dticksTable(6) 1
				set maxTable(7) 8; set dticksTable(7) 2
				set maxTable(8) 8; set dticksTable(8) 2
				set maxTable(9) 10; set dticksTable(9) 2
				set maxTable(10) 12; set dticksTable(10) 2

				set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
				set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}

			set publicationYearList1 {1994 1995 1996 1997 1998 1999 2000 2001}
			set publicationYearList2 {2002 2003 2004 2005 2006 2007 2008 2009}

			set totalNumberOfSearches 0

### figureToBeUpdatedList ###
 			set figureToBeUpdatedList {year_numberOfPublications1 year_numberOfPublications2}
# 			set figureToBeUpdatedList {year_numberOfPublications2}
			set figureToBeUpdatedList {}

			set hei 0.2
# 			set dxticks 1.2 ;# 9 bars
			set dxticks 1.08	;# 10 bars
			set barWidth 0.40

			set barRed1 130; set barGreen1 130; set barBlue1 230
			set barRed2 30; set barGreen2 30; set barBlue2 130

		]

		\\end{comment}

		\\begin{document}

		\\input{./document}

		\\end{document}
	}

	[
		set dynamicList {}

# Figure year_numberOfPublications1
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications1] != -1} {
			lappend dynamicList {year_numberOfPublications1.dat}
			lappend dynamicList \
			[
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList1] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfRecordsPerPublicationYear2 0
				set numberOfRecordsPerPublicationYearList {}
				set numberOfRecordsPerPublicationYearList2 {}
				foreach publicationYear $publicationYearList1 {
					set searchExpression "ref journal and ar met and y $publicationYear"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y $publicationYear and {dis websci or dis scielo}"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList2 $number
					incr numberOfRecordsPerPublicationYear2 $number
				}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList1 $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList1] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfRecordsPerPublicationYearList2
			]
			lappend dynamicList {year_numberOfPublications1.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]

				set font ss lwidth 0.01
				set alabeldist .8

				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2

				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"

				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"year_numberOfPublications1.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de publica\\c{c}\\~oes\"
				xaxis min 0 max $xmax
				xnames $publicationYearList1
				xticks off
				! yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				yaxis dticks 50 dsubticks 50 min 0 max 150
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph

				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Publica\\c{c}\\~ao em revista - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Publica\\c{c}\\~ao em revista indexada - Total: $numberOfRecordsPerPublicationYear2\"
				end key
			"
		}

# Figure year_numberOfPublications2
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications2] != -1} {
			lappend dynamicList {year_numberOfPublications2.dat}
			lappend dynamicList \
			[
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList2] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfRecordsPerPublicationYear2 0
				set numberOfRecordsPerPublicationYearList {}
				set numberOfRecordsPerPublicationYearList2 {}
				foreach publicationYear $publicationYearList2 {
					set searchExpression "ref journal and ar met and y $publicationYear"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y $publicationYear and {dis websci or dis scielo}"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList2 $number
					incr numberOfRecordsPerPublicationYear2 $number
				}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList2 $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList2] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfRecordsPerPublicationYearList2
			]
			lappend dynamicList {year_numberOfPublications2.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]

				set font ss lwidth 0.01
				set alabeldist .8

				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2

				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"

				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"year_numberOfPublications2.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de publica\\c{c}\\~oes\"
				xaxis min 0 max $xmax
				xnames $publicationYearList2
				xticks off
				! yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				yaxis dticks 50 dsubticks 50 min 0 max 150
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph

				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Publica\\c{c}\\~ao em revista - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Publica\\c{c}\\~ao em revista indexada - Total: $numberOfRecordsPerPublicationYear2\"
				end key
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
01/05/10 19:02
CreateTclPage (first substitution):
extra characters after close-brace
    while executing
"set author #!#FormatAuthorList #!#FormatAuthorName $author {} familynamelast#@# {;}#@#
		]

%		\\hypersetup{%
%			pdftitle={$title},
%			pdfauthor={$a..."
    invoked from within
"subst set\ fileContentList\ \{\n\t\{\}\n\t\{\n%%%%%%%%%\ Auditoria\ interna\ sobre\ o\ repositório\ da\ Memória\ Científica\ do\ INPE\n\n\t\t%\ Thi..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
	{}
	{
%%%%%%%%% Auditoria interna sobre o repositório da Memória Científica do INPE

		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
		\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}


%		\\RequirePackage{multirow}
%		\\RequirePackage{dcolumn}
		\\RequirePackage{csquotes}

		[
			foreach {title author keywords identifier secondarytype} [ReturnDocumentInformation $thisRepository $siteList {title author keywords identifier secondarytype}] {break}
			set author #!#FormatAuthorList #!#FormatAuthorName $author {} familynamelast#@# {;}#@#
		]

%		\\hypersetup{%
%			pdftitle={$title},
%			pdfauthor={$author},
%			pdfkeywords={$keywords}
%		}


%		\\hypersetup{pdfstartpage=9,pdfpagemode=None,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/}
		\\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/}

%		\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex
%% ENTRAR OS DADOS ENTRE CHAVES NAS LINHAS APROPRIADAS ABAIXO

% CAPA
%		\\titulo{Auditoria interna sobre o repositório da Memória Científica do INPE}
		\\titulo{$title}
		\\title{Internal audit on INPE Scientific Memory repository} %% no idioma secundario
		
%		\\author{Gerald Jean Francis Banon} %% coloque o nome do(s) autor(es), exemplo: Marcus André Fuckner
		\\author{$author} %% coloque o nome do(s) autor(es), exemplo: Marcus André Fuckner
		\\descriccao{Auditoria interna.}
		\\repositorio{$thisRepository} %% repositório onde está depositado o documento
		\\tipoDaPublicacao{$secondarytype} %% tipo da publicação (NTC, RPQ, PRP, MAN, PUD, TDI, TAE e PRE)
		\\IBI{$identifier} %% IBI (exemplo: J8LNKAN8PW/36CT2G2)
		\\date{2010} %% data da publicação
		
% VERSO DA CAPA
		\\input{./versoDaCapa}
		
% FICHA
		\\cutterFICHAC{F951a}
		\\autorUltimoNomeFICHAC{Banon, Gerald Jean Francis} %% exemplo: Fuckner, Marcus André
		\\autorAbreviadoFICHAC {} %% Não usado - deixar vazio
		\\tituloFICHAC{Auditoria interna sobre o repositório da Memória Científica do INPE}
		\\instituicaosigla{INPE} %% não mudar
		\\instituicaocidade{São José dos Campos} %% não mudar
		\\paginasFICHAC{40} %% número total de páginas
%		\\serieinpe{INPE--/} %% número gerado pelo SID
		\\palavraschaveFICHAC{1.~Auditoria. 2.~Memória científica. 3.~Repositório digital. 4.~Arquivo digital. 5.~Biblioteca digital. I.~\\mbox{Título}.} %% recomenda-se pelo menos 5 palavras-chaves - \mbox{} é para evitar hifenização
		\\numeroCDUFICHAC{528.711.7}
		
		
%% ENTRAR OS DADOS ENTRE CHAVES NAS LINHAS APROPRIADAS ABAIXO - FIM

		\\RequirePackage{comment}

		\\begin{comment}

		[

			set siteList {
				marte.dpi.inpe.br:80
				mtc-m05.sid.inpe.br:80
				mtc-m16.sid.inpe.br:80
				{mtc-m15.sid.inpe.br 800}
				{mtc-m18.sid.inpe.br 800}
				{mtc-m19.sid.inpe.br 800}
				{md-m09.sid.inpe.br 800}
				mtc-m12.sid.inpe.br:80
				mtc-m17.sid.inpe.br:80
				{plutao.dpi.inpe.br 800}
				bibdigital.sid.inpe.br:80
			}

			proc CreateDataSet {args} {
				set i 0
				set data {}
				foreach input [lindex $args 0] {
					set line {}
					foreach list $args {
						lappend line [lindex $list $i]
					}
					lappend data $line
					incr i
				}
				return [join $data \n]
			}

# CreateSequence creates a list of bar group position along the x axis
			proc CreateSequence {numberOfItems firstSequenceItem increment} {
				set sequenceItem $firstSequenceItem
				for {set i 1} {$i <= $numberOfItems} {incr i} {
					lappend sequence $sequenceItem
					set sequenceItem [expr $sequenceItem + $increment]
				}
				return $sequence
			}

			proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
				set firstSequenceItem [expr 2 * $barWidth]
				set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
				set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
				set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
				set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
				set maxTable(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 3; set dticksTable(2) 0.5
				set maxTable(3) 3; set dticksTable(3) 0.5
				set maxTable(4) 4; set dticksTable(4) 1
				set maxTable(5) 5; set dticksTable(5) 1
				set maxTable(6) 6; set dticksTable(6) 1
				set maxTable(7) 8; set dticksTable(7) 2
				set maxTable(8) 8; set dticksTable(8) 2
				set maxTable(9) 10; set dticksTable(9) 2
				set maxTable(10) 12; set dticksTable(10) 2

				set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
				set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}

			set publicationYearList1 {1994 1995 1996 1997 1998 1999 2000 2001}
			set publicationYearList2 {2002 2003 2004 2005 2006 2007 2008 2009}

			set totalNumberOfSearches 0

### figureToBeUpdatedList ###
 			set figureToBeUpdatedList {year_numberOfPublications1 year_numberOfPublications2}
# 			set figureToBeUpdatedList {year_numberOfPublications2}
			set figureToBeUpdatedList {}

			set hei 0.2
# 			set dxticks 1.2 ;# 9 bars
			set dxticks 1.08	;# 10 bars
			set barWidth 0.40

			set barRed1 130; set barGreen1 130; set barBlue1 230
			set barRed2 30; set barGreen2 30; set barBlue2 130

		]

		\\end{comment}

		\\begin{document}

		\\input{./document}

		\\end{document}
	}

	[
		set dynamicList {}

# Figure year_numberOfPublications1
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications1] != -1} {
			lappend dynamicList {year_numberOfPublications1.dat}
			lappend dynamicList \
			[
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList1] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfRecordsPerPublicationYear2 0
				set numberOfRecordsPerPublicationYearList {}
				set numberOfRecordsPerPublicationYearList2 {}
				foreach publicationYear $publicationYearList1 {
					set searchExpression "ref journal and ar met and y $publicationYear"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y $publicationYear and {dis websci or dis scielo}"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList2 $number
					incr numberOfRecordsPerPublicationYear2 $number
				}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList1 $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList1] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfRecordsPerPublicationYearList2
			]
			lappend dynamicList {year_numberOfPublications1.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]

				set font ss lwidth 0.01
				set alabeldist .8

				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2

				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"

				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"year_numberOfPublications1.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de publica\\c{c}\\~oes\"
				xaxis min 0 max $xmax
				xnames $publicationYearList1
				xticks off
				! yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				yaxis dticks 50 dsubticks 50 min 0 max 150
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph

				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Publica\\c{c}\\~ao em revista - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Publica\\c{c}\\~ao em revista indexada - Total: $numberOfRecordsPerPublicationYear2\"
				end key
			"
		}

# Figure year_numberOfPublications2
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications2] != -1} {
			lappend dynamicList {year_numberOfPublications2.dat}
			lappend dynamicList \
			[
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList2] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfRecordsPerPublicationYear2 0
				set numberOfRecordsPerPublicationYearList {}
				set numberOfRecordsPerPublicationYearList2 {}
				foreach publicationYear $publicationYearList2 {
					set searchExpression "ref journal and ar met and y $publicationYear"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y $publicationYear and {dis websci or dis scielo}"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList2 $number
					incr numberOfRecordsPerPublicationYear2 $number
				}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList2 $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList2] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfRecordsPerPublicationYearList2
			]
			lappend dynamicList {year_numberOfPublications2.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]

				set font ss lwidth 0.01
				set alabeldist .8

				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2

				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"

				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"year_numberOfPublications2.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de publica\\c{c}\\~oes\"
				xaxis min 0 max $xmax
				xnames $publicationYearList2
				xticks off
				! yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				yaxis dticks 50 dsubticks 50 min 0 max 150
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph

				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Publica\\c{c}\\~ao em revista - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Publica\\c{c}\\~ao em revista indexada - Total: $numberOfRecordsPerPublicationYear2\"
				end key
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
01/05/10 19:40
CreateTclPage (first substitution):
invalid command name "file"
    while executing
"file exists $filePath"
    (procedure "Load" line 4)
    invoked from within
"Load $homePath/col/$currentRep/doc/@siteList.txt fileContent"
    invoked from within
"if [info exists currentRep] {
# currentRep is defined 
			Load $homePath/col/$currentRep/doc/@siteList.txt fileContent
		} else {
# currentRep is not ..."
    (procedure "MultipleSubmit" line 67)
    invoked from within
"MultipleSubmit $pID $query searchResultList $scenario $siteList $level $encodingName"
    (procedure "FindMetadataRepositories" line 57)
    invoked from within
"FindMetadataRepositories $query 0 {} $cgi(codedpassword1) yes yes"
    (procedure "ReturnDocumentInformation" line 6)
    invoked from within
"ReturnDocumentInformation $thisRepository $siteList {title author keywords identifier secondarytype}"
    invoked from within
"foreach {title author keywords identifier secondarytype} [ReturnDocumentInformation $thisRepository $siteList {title author keywords identifier second..."
    invoked from within
"subst set\ fileContentList\ \{\n\t\{\}\n\t\{\n%%%%%%%%%\ Auditoria\ interna\ sobre\ o\ repositório\ da\ Memória\ Científica\ do\ INPE\n\n\t\t%\ Thi..."
    invoked from within
"interp eval slave [list subst $fileContent2]"
while making substitution within:
set fileContentList {
	{}
	{
%%%%%%%%% Auditoria interna sobre o repositório da Memória Científica do INPE

		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		%\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacao#@#{http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe}
		\\documentclass#!#brazilian,PublicacaoLivro,SemFormatacaoCapitulo,SemFolhaAprovacaoo#@#{tdiinpe}


%		\\RequirePackage{multirow}
%		\\RequirePackage{dcolumn}
		\\RequirePackage{csquotes}

		[
			foreach {title author keywords identifier secondarytype} [ReturnDocumentInformation $thisRepository $siteList {title author keywords identifier secondarytype}] {break}
			set author [FormatAuthorList [FormatAuthorName $author {} familynamelast] {;}]
			set x {}	;# return an empty string
		]

%		\\hypersetup{%
%			pdftitle={$title},
%			pdfauthor={$author},
%			pdfkeywords={$keywords}
%		}


%		\\hypersetup{pdfstartpage=9,pdfpagemode=None,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/}
		\\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/}

%		\\input{./preamble} %% faça as modificações pertinentes no arquivo configuracao.tex
%% ENTRAR OS DADOS ENTRE CHAVES NAS LINHAS APROPRIADAS ABAIXO

% CAPA
%		\\titulo{Auditoria interna sobre o repositório da Memória Científica do INPE}
		\\titulo{$title}
		\\title{Internal audit on INPE Scientific Memory repository} %% no idioma secundario
		
%		\\author{Gerald Jean Francis Banon} %% coloque o nome do(s) autor(es), exemplo: Marcus André Fuckner
		\\author{$author} %% coloque o nome do(s) autor(es), exemplo: Marcus André Fuckner
		\\descriccao{Auditoria interna.}
		\\repositorio{$thisRepository} %% repositório onde está depositado o documento
		\\tipoDaPublicacao{$secondarytype} %% tipo da publicação (NTC, RPQ, PRP, MAN, PUD, TDI, TAE e PRE)
		\\IBI{$identifier} %% IBI (exemplo: J8LNKAN8PW/36CT2G2)
		\\date{2010} %% data da publicação
		
% VERSO DA CAPA
		\\input{./versoDaCapa}
		
% FICHA
		\\cutterFICHAC{F951a}
		\\autorUltimoNomeFICHAC{Banon, Gerald Jean Francis} %% exemplo: Fuckner, Marcus André
		\\autorAbreviadoFICHAC {} %% Não usado - deixar vazio
		\\tituloFICHAC{Auditoria interna sobre o repositório da Memória Científica do INPE}
		\\instituicaosigla{INPE} %% não mudar
		\\instituicaocidade{São José dos Campos} %% não mudar
		\\paginasFICHAC{40} %% número total de páginas
%		\\serieinpe{INPE--/} %% número gerado pelo SID
		\\palavraschaveFICHAC{1.~Auditoria. 2.~Memória científica. 3.~Repositório digital. 4.~Arquivo digital. 5.~Biblioteca digital. I.~\\mbox{Título}.} %% recomenda-se pelo menos 5 palavras-chaves - \mbox{} é para evitar hifenização
		\\numeroCDUFICHAC{528.711.7}
		
		
%% ENTRAR OS DADOS ENTRE CHAVES NAS LINHAS APROPRIADAS ABAIXO - FIM

		\\RequirePackage{comment}

		\\begin{comment}

		[

			set siteList {
				marte.dpi.inpe.br:80
				mtc-m05.sid.inpe.br:80
				mtc-m16.sid.inpe.br:80
				{mtc-m15.sid.inpe.br 800}
				{mtc-m18.sid.inpe.br 800}
				{mtc-m19.sid.inpe.br 800}
				{md-m09.sid.inpe.br 800}
				mtc-m12.sid.inpe.br:80
				mtc-m17.sid.inpe.br:80
				{plutao.dpi.inpe.br 800}
				bibdigital.sid.inpe.br:80
			}

			proc CreateDataSet {args} {
				set i 0
				set data {}
				foreach input [lindex $args 0] {
					set line {}
					foreach list $args {
						lappend line [lindex $list $i]
					}
					lappend data $line
					incr i
				}
				return [join $data \n]
			}

# CreateSequence creates a list of bar group position along the x axis
			proc CreateSequence {numberOfItems firstSequenceItem increment} {
				set sequenceItem $firstSequenceItem
				for {set i 1} {$i <= $numberOfItems} {incr i} {
					lappend sequence $sequenceItem
					set sequenceItem [expr $sequenceItem + $increment]
				}
				return $sequence
			}

			proc ComputeAxisParameters {dxticks barWidth xnameList numberOfItemsList} {
				set firstSequenceItem [expr 2 * $barWidth]
				set xmax [expr ([llength $xnameList] - 1) * $dxticks + 4 * $barWidth]
				set maxValue [expr round(1.1 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 58
				set factor [expr pow(10, [string length $maxValue] - 1)]	;# 10.0
				set numberOfUnits [expr int(ceil($maxValue / $factor))]	;# 6
				set maxTable(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 3; set dticksTable(2) 0.5
				set maxTable(3) 3; set dticksTable(3) 0.5
				set maxTable(4) 4; set dticksTable(4) 1
				set maxTable(5) 5; set dticksTable(5) 1
				set maxTable(6) 6; set dticksTable(6) 1
				set maxTable(7) 8; set dticksTable(7) 2
				set maxTable(8) 8; set dticksTable(8) 2
				set maxTable(9) 10; set dticksTable(9) 2
				set maxTable(10) 12; set dticksTable(10) 2

				set ymax [expr int($maxTable($numberOfUnits) * $factor)]	;# 60
				set dyticks [expr int($dticksTable($numberOfUnits) * $factor)]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}

			set publicationYearList1 {1994 1995 1996 1997 1998 1999 2000 2001}
			set publicationYearList2 {2002 2003 2004 2005 2006 2007 2008 2009}

			set totalNumberOfSearches 0

### figureToBeUpdatedList ###
 			set figureToBeUpdatedList {year_numberOfPublications1 year_numberOfPublications2}
# 			set figureToBeUpdatedList {year_numberOfPublications2}
			set figureToBeUpdatedList {}

			set hei 0.2
# 			set dxticks 1.2 ;# 9 bars
			set dxticks 1.08	;# 10 bars
			set barWidth 0.40

			set barRed1 130; set barGreen1 130; set barBlue1 230
			set barRed2 30; set barGreen2 30; set barBlue2 130

		]

		\\end{comment}

		\\begin{document}

		\\input{./document}

		\\end{document}
	}

	[
		set dynamicList {}

# Figure year_numberOfPublications1
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications1] != -1} {
			lappend dynamicList {year_numberOfPublications1.dat}
			lappend dynamicList \
			[
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList1] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfRecordsPerPublicationYear2 0
				set numberOfRecordsPerPublicationYearList {}
				set numberOfRecordsPerPublicationYearList2 {}
				foreach publicationYear $publicationYearList1 {
					set searchExpression "ref journal and ar met and y $publicationYear"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y $publicationYear and {dis websci or dis scielo}"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList2 $number
					incr numberOfRecordsPerPublicationYear2 $number
				}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList1 $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList1] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfRecordsPerPublicationYearList2
			]
			lappend dynamicList {year_numberOfPublications1.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]

				set font ss lwidth 0.01
				set alabeldist .8

				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2

				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"

				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"year_numberOfPublications1.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de publica\\c{c}\\~oes\"
				xaxis min 0 max $xmax
				xnames $publicationYearList1
				xticks off
				! yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				yaxis dticks 50 dsubticks 50 min 0 max 150
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph

				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Publica\\c{c}\\~ao em revista - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Publica\\c{c}\\~ao em revista indexada - Total: $numberOfRecordsPerPublicationYear2\"
				end key
			"
		}

# Figure year_numberOfPublications2
		if {[lsearch $figureToBeUpdatedList year_numberOfPublications2] != -1} {
			lappend dynamicList {year_numberOfPublications2.dat}
			lappend dynamicList \
			[
				set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList2] * 2]
				set numberOfRecordsPerPublicationYear 0
				set numberOfRecordsPerPublicationYear2 0
				set numberOfRecordsPerPublicationYearList {}
				set numberOfRecordsPerPublicationYearList2 {}
				foreach publicationYear $publicationYearList2 {
					set searchExpression "ref journal and ar met and y $publicationYear"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList $number
					incr numberOfRecordsPerPublicationYear $number
					set searchExpression "ref journal and ar met and y $publicationYear and {dis websci or dis scielo}"
					set number [DisplayNumberOfEntries2 $searchExpression]
					lappend numberOfRecordsPerPublicationYearList2 $number
					incr numberOfRecordsPerPublicationYear2 $number
				}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList2 $numberOfRecordsPerPublicationYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $publicationYearList2] $firstSequenceItem $dxticks] $numberOfRecordsPerPublicationYearList $numberOfRecordsPerPublicationYearList2
			]
			lappend dynamicList {year_numberOfPublications2.gle}
			lappend dynamicList \
			"
				! size 15.4 6.0	! size of the paper
				size $graphxsize [expr $graphysize * 0.92 + $graphymove]

				set font ss lwidth 0.01
				set alabeldist .8

				barRed1 = $barRed1
				barGreen1 = $barGreen1
				barBlue1 = $barBlue1
				barRed2 = $barRed2
				barGreen2 = $barGreen2
				barBlue2 = $barBlue2

				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"

				amove 0 $graphymove
				begin graph
				size $graphxsize $graphysize
				center
				data   \"year_numberOfPublications2.dat\"
				xtitle \"Anos de publica\\c{c}\\~ao\"
				ytitle \"N\\'umero de publica\\c{c}\\~oes\"
				xaxis min 0 max $xmax
				xnames $publicationYearList2
				xticks off
				! yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
				yaxis dticks 50 dsubticks 50 min 0 max 150
				x2axis off
				y2axis off
				xlabels hei $hei
				ylabels hei $hei
				bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
				end graph

				begin key
				justify bc
				absolute (pagewidth()/2) 0
				hei $hei
				nobox
				boxcolor clear
				fill rgb255($barRed1,$barGreen1,$barBlue1) text \"Publica\\c{c}\\~ao em revista - Total: $numberOfRecordsPerPublicationYear\"
				fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Publica\\c{c}\\~ao em revista indexada - Total: $numberOfRecordsPerPublicationYear2\"
				end key
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
13/12/11 13:41
13/12/11 13:42
13/12/11 13:43
13/12/11 13:43
13/12/11 13:48
25/05/14 00:39
11/05/17 10:35
11/05/17 10:36