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
17/11/09 16:47
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 $ingestYearList $numberOfRecordsPerIngestYearList"
    invoked from within
"if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
lappend dynamicList {ingestYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xm..."
    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}
{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 currentYear 2009
set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}

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 accessYear}
set figureToBeUpdatedList {accessYear}
set figureToBeUpdatedList {ingestYear}

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
}
}


if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
set patternList {2001 2002 2003 2004 2005 2006 2007 2008}
set monthList {2001 2002 2003 2004 2005 2006 2007 2008}
set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
set totalNumberOfAccess 0
foreach access $histogram {
incr totalNumberOfAccess $access
}
}


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 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 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 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 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.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.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 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 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
"
}

# Figure 7
if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
lappend dynamicList {accessYearBar.dat}
lappend dynamicList \
[
set dxticks 0.50
set barWidth 0.38

foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $monthList $histogram] {break}
set graphymove 0.0
set graphxsize 7.6
set graphysize 5.8
CreateDataSet [CreateSequence [llength $monthList] $firstSequenceItem $dxticks] $histogram
]
lappend dynamicList {accessYearBar.gle}
lappend dynamicList \
"
!size 5 5	! 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

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

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

begin key
justify bc
absolute pagewidth()/2 0
hei 0.16
nobox
boxcolor clear
text \"N\\'umero total de acessos: $totalNumberOfAccess\"
end key
"
}

set dynamicList
]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
17/11/09 16:48
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 $ingestYearList $numberOfRecordsPerIngestYearList"
    invoked from within
"if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
lappend dynamicList {ingestYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xm..."
    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}
{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 currentYear 2009
set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}

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 accessYear}
set figureToBeUpdatedList {accessYear}
set figureToBeUpdatedList {ingestYear}

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
}
}


if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
set patternList {2001 2002 2003 2004 2005 2006 2007 2008}
set monthList {2001 2002 2003 2004 2005 2006 2007 2008}
set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
set totalNumberOfAccess 0
foreach access $histogram {
incr totalNumberOfAccess $access
}
}


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 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 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 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 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.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.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 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 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
"
}

# Figure 7
if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
lappend dynamicList {accessYearBar.dat}
lappend dynamicList \
[
set dxticks 0.50
set barWidth 0.38

foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $monthList $histogram] {break}
set graphymove 0.0
set graphxsize 7.6
set graphysize 5.8
CreateDataSet [CreateSequence [llength $monthList] $firstSequenceItem $dxticks] $histogram
]
lappend dynamicList {accessYearBar.gle}
lappend dynamicList \
"
!size 5 5	! 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

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

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

begin key
justify bc
absolute pagewidth()/2 0
hei 0.16
nobox
boxcolor clear
text \"N\\'umero total de acessos: $totalNumberOfAccess\"
end key
"
}

set dynamicList
]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
17/11/09 16:49
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 $ingestYearList $numberOfRecordsPerIngestYearList"
    invoked from within
"if {[lsearch $figureToBeUpdatedList ingestYear] != -1} {
lappend dynamicList {ingestYearBar.dat}
lappend dynamicList \
[
foreach {firstSequenceItem xm..."
    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}
{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 currentYear 2009
set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}

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 accessYear}
set figureToBeUpdatedList {accessYear}
set figureToBeUpdatedList {ingestYear}

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
}
}


if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
set patternList {2001 2002 2003 2004 2005 2006 2007 2008}
set monthList {2001 2002 2003 2004 2005 2006 2007 2008}
set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
set totalNumberOfAccess 0
foreach access $histogram {
incr totalNumberOfAccess $access
}
}


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 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 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 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 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.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.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 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 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
"
}

# Figure 7
if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
lappend dynamicList {accessYearBar.dat}
lappend dynamicList \
[
set dxticks 0.50
set barWidth 0.38

foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $monthList $histogram] {break}
set graphymove 0.0
set graphxsize 7.6
set graphysize 5.8
CreateDataSet [CreateSequence [llength $monthList] $firstSequenceItem $dxticks] $histogram
]
lappend dynamicList {accessYearBar.gle}
lappend dynamicList \
"
!size 5 5	! 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

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

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

begin key
justify bc
absolute pagewidth()/2 0
hei 0.16
nobox
boxcolor clear
text \"N\\'umero total de acessos: $totalNumberOfAccess\"
end key
"
}

set dynamicList
]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2001/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2001/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2002/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2002/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2003/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2003/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2004/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2004/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 13.
Trace from DisplayNumber: the search expression was <repository */2005/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2006/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2006/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2007/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2007/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2008/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2008/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2009/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2009/* and size, * and hostcollection, *>.
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 <repository */2001/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2001/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2002/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2002/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2003/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2003/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2004/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2004/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 13.
Trace from DisplayNumber: the search expression was <repository */2005/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2006/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2006/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2007/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2007/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2008/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2008/* and size, * and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2009/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 12 out of 13.
Trace from DisplayNumber: the search expression was <repository */2009/* and size, * and hostcollection, *>.
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 <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 12.
Trace from DisplayNumber: the search expression was <repository */2007/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 12.
Trace from DisplayNumber: the search expression was <repository */2007/* and size, * and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
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 $writeUserCodedPassword"
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
could not read "/mnt/dados1/URLib18/col/sid.inpe.br/mtc-m18@80/2008/10.20.21.50/doc/goto-/iconet.com.br/banon/2001/04.28.19.50": no such file or directory
    while executing
"file mtime $path"
    (procedure "CreateTclPage" line 201)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
21/10/10 12:11
21/10/10 12:11
CreateTclPage (first substitution):
invalid command name "89"
    while executing
"89"
    ("foreach" body line 2)
    invoked from within
"foreach referenceType $referenceTypeList {
				set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 200[89] or ..."
    invoked from within
"if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $r..."
    invoked from within
"subst {set fileContentList {
	{}
	{
		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		\\documentclass#!#brazilian,Publ..."
    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#@#{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}
				{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 maxValue [expr round(1.04 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 1.04 * 10
				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(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 2.5; 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
				set ymax [expr $maxTable($numberOfUnits) * $factor]	;# 60
				set dyticks [expr $dticksTable($numberOfUnits) * $factor]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}
		
			set currentYear 2009
			set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			
			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
			
######### List of figures to be updated #########
			set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear thesisVivaPublicationYear referenceType currentYearReferenceType accessYear}
			set figureToBeUpdatedList {ingestYear}
			set figureToBeUpdatedList {publicationYear}
			set figureToBeUpdatedList {thesisPublicationYear}
			set figureToBeUpdatedList {thesisVivaPublicationYear}
			set figureToBeUpdatedList {currentYearReferenceType}
			set figureToBeUpdatedList {accessYear}
			set figureToBeUpdatedList {referenceType}
			set figureToBeUpdatedList {}
			set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears}

			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 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
				}
			}
			
			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 accessYear] != -1} {
				set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
				set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
				set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
				set totalNumberOfAccess 0
				foreach access $histogram {
					incr totalNumberOfAccess $access
				}
			}
			
			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 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 \"Ano de inser\\c{c}\\~ao\"
					ytitle \"N\\'umero de itens\"
					xaxis 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 \"Ano 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
			"
		}

# 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 \"Ano 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: $numberOfThesisRecordsPerPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
				end key
			"
		}

# Figure 4
		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 \"Ano de defesa ou 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 \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
				end key
			"
		}

# Figure 5
		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.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 \"Tipo 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 6
		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.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 \"Tipo 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: $numberOfRecordsPerCurrentYearReferenceType\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerCurrentYearReferenceType\"
				end key
			"
		}

# Figure 7
		if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
			lappend dynamicList {accessYearBar.dat}
			lappend dynamicList [
				set dxticks 0.50
				set barWidth 0.38
				
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $yearList $histogram] {break}
				set graphymove 0.0
				set graphxsize 7.6
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $yearList] $firstSequenceItem $dxticks] $histogram
			]
			lappend dynamicList {accessYearBar.gle}
			lappend dynamicList "
				!size 5 5	! 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
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
					size $graphxsize $graphysize
					center
					data   \"accessYearBar.dat\"
					!xtitle \"M\\^eses\"
					xtitle \"Ano\"
					ytitle \"N\\'umero de acessos\"
					xaxis min 0 max $xmax
					xnames $yearList
					xticks off
					yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
					x2axis off
					y2axis off
					xlabels hei .16
					ylabels hei .16
					!bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
					bar d1 width $barWidth style colormap1
				end graph
				
				begin key
					justify bc
					absolute pagewidth()/2 0
					hei 0.16
					nobox
					boxcolor clear
					text \"N\\'umero total de acessos: $totalNumberOfAccess\"
				end key
			"
		}

# Figure 8
		if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
			set numberOfRecordsPerReferenceType 0
			set numberOfFullTextPerReferenceType 0
			foreach referenceType $referenceTypeList {
				set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 200[89] or year, 2010}"
				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
			}
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
				set graphymove 2.2
				set graphxsize 15.4
				set graphysize 5.6
				CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
			]
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.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   \"rreferenceTypeOfTheLastThreeYearsBar.dat\"
					xtitle \"Tipo 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
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 20 searches have been made.
21/10/10 12:15
GLE 4.1.2 [referenceTypeOfTheLastThreeYearsBar.gle]-C-R-[

>> referenceTypeOfTheLastThreeYearsBar.gle (23) |data   "rreferenceTypeOfTheLastThreeYearsBar.dat"|
>> Error: unable to open data file 'rreferenceTypeOfTheLastThreeYearsBar.dat': No such file or directory

/mnt/dados1/URLibBibDigital/col/sid.inpe.br/mtc-m18@80/2008/10.20.21.50/doc/referenceTypeOfTheLastThreeYearsBar.eps]
child process exited abnormally
    while executing
"exec /usr/bin/gle -d pdf -vb 0 /mnt/dados1/URLibBibDigital/col/sid.inpe.br/mtc-m18@80/2008/10.20.21.50/doc/referenceTypeOfTheLastThreeYearsBar.gle"
    ("eval" body line 1)
    invoked from within
"eval exec [list $glePath] $option [list $dirName/$fileName]	"
    invoked from within
"if [string equal {} $glePath] {
		error "gle not found in the following known paths: \n[join [ListPath gle] \n]"
	} else {
		if {$tcl_platform(platfor..."
    (procedure "Run-gle" line 10)
    invoked from within
"Run-gle $dirName $fileName {-d pdf -vb 0}"
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
21/10/10 12:21
GLE 4.1.2 [referenceTypeOfTheLastThreeYearsBar.gle]-C-R-[

>> referenceTypeOfTheLastThreeYearsBar.gle (23) |data   "rreferenceTypeOfTheLastThreeYearsBar.dat"|
>> Error: unable to open data file 'rreferenceTypeOfTheLastThreeYearsBar.dat': No such file or directory

/mnt/dados1/URLibBibDigital/col/sid.inpe.br/mtc-m18@80/2008/10.20.21.50/doc/referenceTypeOfTheLastThreeYearsBar.eps]
child process exited abnormally
    while executing
"exec /usr/bin/gle -d pdf -vb 0 /mnt/dados1/URLibBibDigital/col/sid.inpe.br/mtc-m18@80/2008/10.20.21.50/doc/referenceTypeOfTheLastThreeYearsBar.gle"
    ("eval" body line 1)
    invoked from within
"eval exec [list $glePath] $option [list $dirName/$fileName]	"
    invoked from within
"if [string equal {} $glePath] {
		error "gle not found in the following known paths: \n[join [ListPath gle] \n]"
	} else {
		if {$tcl_platform(platfor..."
    (procedure "Run-gle" line 10)
    invoked from within
"Run-gle $dirName $fileName {-d pdf -vb 0}"
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
21/10/10 13:32
GLE 4.1.2 [referenceTypeOfTheLastThreeYearsBar.gle]-C-R-[

>> referenceTypeOfTheLastThreeYearsBar.gle (34) |sort d1d2 on d1|
>>                                               ^
>> Error: function 'SORT' not defined

/mnt/dados1/URLibBibDigital/col/sid.inpe.br/mtc-m18@80/2008/10.20.21.50/doc/referenceTypeOfTheLastThreeYearsBar.eps]
child process exited abnormally
    while executing
"exec /usr/bin/gle -d pdf -vb 0 /mnt/dados1/URLibBibDigital/col/sid.inpe.br/mtc-m18@80/2008/10.20.21.50/doc/referenceTypeOfTheLastThreeYearsBar.gle"
    ("eval" body line 1)
    invoked from within
"eval exec [list $glePath] $option [list $dirName/$fileName]	"
    invoked from within
"if [string equal {} $glePath] {
		error "gle not found in the following known paths: \n[join [ListPath gle] \n]"
	} else {
		if {$tcl_platform(platfor..."
    (procedure "Run-gle" line 10)
    invoked from within
"Run-gle $dirName $fileName {-d pdf -vb 0}"
21/10/10 13:44
21/10/10 13:44
CreateTclPage (first substitution):
ambiguous option "-": must be -ascii, -command, -decreasing, -dictionary, -increasing, -index, -integer, -real, or -unique
    while executing
"lsort -index 0 - decreasing $dataList"
    invoked from within
"if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $r..."
    invoked from within
"subst {set fileContentList {
	{}
	{
		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		\\documentclass#!#brazilian,Publ..."
    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#@#{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}
				{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 maxValue [expr round(1.04 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 1.04 * 10
				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(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 2.5; 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
				set ymax [expr $maxTable($numberOfUnits) * $factor]	;# 60
				set dyticks [expr $dticksTable($numberOfUnits) * $factor]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}
		
			set currentYear 2009
			set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			
			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
			
######### List of figures to be updated #########
			set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear thesisVivaPublicationYear referenceType currentYearReferenceType accessYear}
			set figureToBeUpdatedList {ingestYear}
			set figureToBeUpdatedList {publicationYear}
			set figureToBeUpdatedList {thesisPublicationYear}
			set figureToBeUpdatedList {thesisVivaPublicationYear}
			set figureToBeUpdatedList {currentYearReferenceType}
			set figureToBeUpdatedList {accessYear}
			set figureToBeUpdatedList {}
			set figureToBeUpdatedList {referenceType}
			set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears}
			set figureToBeUpdatedList {}
			set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears}

			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 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
				}
			}
			
			if {[lsearch $figureToBeUpdatedList referenceType] != -1} {
			}
			
			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 accessYear] != -1} {
				set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
				set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
				set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
				set totalNumberOfAccess 0
				foreach access $histogram {
					incr totalNumberOfAccess $access
				}
			}
			
			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 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 \"Ano de inser\\c{c}\\~ao\"
					ytitle \"N\\'umero de itens\"
					xaxis 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 \"Ano 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
			"
		}

# 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 \"Ano 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: $numberOfThesisRecordsPerPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
				end key
			"
		}

# Figure 4
		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 \"Ano de defesa ou 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 \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
				end key
			"
		}

# Figure 5
		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
			}
			lappend dynamicList {referenceTypeBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
				set graphymove 2.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 \"Tipo 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 6
		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.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 \"Tipo 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: $numberOfRecordsPerCurrentYearReferenceType\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerCurrentYearReferenceType\"
				end key
			"
		}

# Figure 7
		if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
			lappend dynamicList {accessYearBar.dat}
			lappend dynamicList [
				set dxticks 0.50
				set barWidth 0.38
				
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $yearList $histogram] {break}
				set graphymove 0.0
				set graphxsize 7.6
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $yearList] $firstSequenceItem $dxticks] $histogram
			]
			lappend dynamicList {accessYearBar.gle}
			lappend dynamicList "
				!size 5 5	! 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
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
					size $graphxsize $graphysize
					center
					data   \"accessYearBar.dat\"
					!xtitle \"M\\^eses\"
					xtitle \"Ano\"
					ytitle \"N\\'umero de acessos\"
					xaxis min 0 max $xmax
					xnames $yearList
					xticks off
					yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
					x2axis off
					y2axis off
					xlabels hei .16
					ylabels hei .16
					!bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
					bar d1 width $barWidth style colormap1
				end graph
				
				begin key
					justify bc
					absolute pagewidth()/2 0
					hei 0.16
					nobox
					boxcolor clear
					text \"N\\'umero total de acessos: $totalNumberOfAccess\"
				end key
			"
		}

# Figure 8
		if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
			set numberOfRecordsPerReferenceType 0
			set numberOfFullTextPerReferenceType 0
			foreach referenceType $referenceTypeList {
				set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2008 or year, 2009 or year, 2010}"
				set number1 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfRecordsPerReferenceTypeList $number1
				incr numberOfRecordsPerReferenceType $number1
				set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2008 or year, 2009 or year, 2010}"
				set number2 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfFullTextPerReferenceTypeList $number2
				incr numberOfFullTextPerReferenceType $number2
				lappend dataList [list $number1 $number2]
			}
			set dataList [lsort -index 0 - decreasing $dataList]
			foreach data $dataList {
				lappend numberOfRecordsPerReferenceTypeList [lindex $data 0]
				lappend numberOfFullTextPerReferenceTypeList [lindex $data 1]
			}
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
				set graphymove 2.2
				set graphxsize 15.4
				set graphysize 5.6
				CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
			]
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.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   \"referenceTypeOfTheLastThreeYearsBar.dat\"
					xtitle \"Tipo 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
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 16 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
28/10/10 10:47
28/10/10 10:47
CreateTclPage (first substitution):
can't read "numberOfEPrintFullTextIngestYearYear": no such variable
    (reading value of variable to increment)
    invoked from within
"incr numberOfEPrintFullTextIngestYearYear $number"
    ("foreach" body line 9)
    invoked from within
"foreach ingestYear $ingestYearList {
				set searchExpression "ref Source and repository, */$ingestYear/*"
				set number [DisplayNumberOfEntries2 $se..."
    invoked from within
"if {[lsearch $figureToBeUpdatedList ePrintIngestYear] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] *..."
    invoked from within
"subst {set fileContentList {
	{}
	{
		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		\\documentclass#!#brazilian,Publ..."
    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#@#{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}
				{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 maxValue [expr round(1.04 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 1.04 * 10
				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(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 2.5; 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
				set ymax [expr $maxTable($numberOfUnits) * $factor]	;# 60
				set dyticks [expr $dticksTable($numberOfUnits) * $factor]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}
		
			set currentYear 2009
#			set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010}
#			set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010}
			set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			
			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
			
######### List of figures to be updated #########
			set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear thesisVivaPublicationYear referenceType currentYearReferenceType accessYear}
			set figureToBeUpdatedList {ingestYear}
			set figureToBeUpdatedList {publicationYear}
			set figureToBeUpdatedList {thesisPublicationYear}
			set figureToBeUpdatedList {thesisVivaPublicationYear}
			set figureToBeUpdatedList {currentYearReferenceType}
			set figureToBeUpdatedList {accessYear}
			set figureToBeUpdatedList {referenceType}
			set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears}
			set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears}
			set figureToBeUpdatedList {accessYearOfTheLastThreeYears}
			set figureToBeUpdatedList {publicationYearDuringTheLastThreeYears}
			set figureToBeUpdatedList {reportBookPublicationYear}
			set figureToBeUpdatedList {}
			set figureToBeUpdatedList {ePrintIngestYear}

			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 1
		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
			}
			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 \"Ano de inser\\c{c}\\~ao\"
					ytitle \"N\\'umero de itens\"
					xaxis 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} {
			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
			}
			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 \"Ano 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
			"
		}

# Figure 3
		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
			}
			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 \"Ano 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: $numberOfThesisRecordsPerPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
				end key
			"
		}

# Figure 4
		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
			}
			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 \"Ano de defesa ou 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 \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
				end key
			"
		}

# Figure 5
		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
			}
			lappend dynamicList {referenceTypeBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
				set graphymove 2.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 \"Tipo 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 6
		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
			}
			lappend dynamicList {currentYearReferenceTypeBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerCurrentYearReferenceTypeList] {break}
				set graphymove 2.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 \"Tipo 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: $numberOfRecordsPerCurrentYearReferenceType\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfFullTextPerCurrentYearReferenceType\"
				end key
			"
		}

# Figure 7
		if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
			set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
			set totalNumberOfAccess 0
			foreach access $histogram {
				incr totalNumberOfAccess $access
			}
			lappend dynamicList {accessYearBar.dat}
			lappend dynamicList [
				set dxticks 0.50
				set barWidth 0.38
				
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $yearList $histogram] {break}
				set graphymove 0.0
				set graphxsize 7.6
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $yearList] $firstSequenceItem $dxticks] $histogram
			]
			lappend dynamicList {accessYearBar.gle}
			lappend dynamicList "
				!size 5 5	! 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
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
					size $graphxsize $graphysize
					center
					data   \"accessYearBar.dat\"
					!xtitle \"M\\^eses\"
					xtitle \"Ano\"
					ytitle \"N\\'umero de acessos\"
					xaxis min 0 max $xmax
					xnames $yearList
					xticks off
					yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
					x2axis off
					y2axis off
					xlabels hei .16
					ylabels hei .16
					!bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
					bar d1 width $barWidth style colormap1
				end graph
				
				begin key
					justify bc
					absolute pagewidth()/2 0
					hei 0.16
					nobox
					boxcolor clear
					text \"N\\'umero total de acessos: $totalNumberOfAccess\"
				end key
			"
		}

# Figure 8
		if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
			set numberOfRecordsPerReferenceType 0
			set numberOfFullTextPerReferenceType 0
			foreach referenceType $referenceTypeList {
				set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2008 or year, 2009 or year, 2010}"
				set number1 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfRecordsPerReferenceTypeList $number1
				incr numberOfRecordsPerReferenceType $number1
				set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2008 or year, 2009 or year, 2010}"
				set number2 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfFullTextPerReferenceTypeList $number2
				incr numberOfFullTextPerReferenceType $number2
				lappend dataList [list $referenceType $number1 $number2]
			}
			set dataList [lsort -index 1 -decreasing -integer $dataList]
			foreach data $dataList {
				lappend referenceTypeList2 [lindex $data 0]
				lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1]
				lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2]
			}
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat}
			lappend dynamicList [
#				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList2 $numberOfRecordsPerReferenceTypeList2] {break}
				set graphymove 2.2
				set graphxsize 15.4
				set graphysize 5.6
#				CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
				CreateDataSet [CreateSequence [llength $referenceTypeList2] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList2 $numberOfFullTextPerReferenceTypeList2
			]
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.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   \"referenceTypeOfTheLastThreeYearsBar.dat\"
					xtitle \"Tipo de refer\\^encia\"
					ytitle \"N\\'umero de itens\"
					xaxis min 0 max $xmax
					xnames $referenceTypeList2
					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 $referenceTypeList2 {
							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 $referenceTypeList2 {
							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 9
		if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
			set numberOfRecordsPerPublicationYear 0
			set numberOfFullTextPerPublicationYear 0
			foreach publicationYear $publicationYearList {
				set searchExpression "repository, */2008/* or repository, */2009/* or repository, */2010/* and year, $publicationYear and hostcollection, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfRecordsPerPublicationYearList $number
				incr numberOfRecordsPerPublicationYear $number
				set searchExpression "repository, */2008/* or repository, */2009/* or repository, */2010/* and year, $publicationYear and size, * and hostcollection, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfFullTextPerPublicationYearList $number
				incr numberOfFullTextPerPublicationYear $number
			}
			lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.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 {publicationYearDuringTheLastThreeYearsBar.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   \"publicationYearDuringTheLastThreeYearsBar.dat\"
					xtitle \"Ano 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
			"
		}

# Figure 10
		if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} {
			set patternList {2008 2009 2010}
			set yearList {2008 2009 2010}
			set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
			set totalNumberOfAccess 0
			foreach access $histogram {
				incr totalNumberOfAccess $access
			}
			lappend dynamicList {accessYearOfTheLastThreeYearsBar.dat}
			lappend dynamicList [
				set dxticks 0.50
				set barWidth 0.38
				
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $yearList $histogram] {break}
				set graphymove 0.0
				set graphxsize 7.6
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $yearList] $firstSequenceItem $dxticks] $histogram
			]
			lappend dynamicList {accessYearOfTheLastThreeYearsBar.gle}
			lappend dynamicList "
				!size 5 5	! 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
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
					size $graphxsize $graphysize
					center
					data   \"accessYearOfTheLastThreeYearsBar.dat\"
					!xtitle \"M\\^eses\"
					xtitle \"Ano\"
					ytitle \"N\\'umero de acessos\"
					xaxis min 0 max $xmax
					xnames $yearList
					xticks off
					yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
					x2axis off
					y2axis off
					xlabels hei .16
					ylabels hei .16
					!bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
					bar d1 width $barWidth style colormap1
				end graph
				
				begin key
					justify bc
					absolute pagewidth()/2 0
					hei 0.16
					nobox
					boxcolor clear
					text \"N\\'umero total de acessos: $totalNumberOfAccess\"
				end key
			"
		}

# Figure 11
		if {[lsearch $figureToBeUpdatedList reportBookPublicationYear] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
			set numberOfThesisRecordsPerPublicationYear 0
			set numberOfThesisFullTextPerPublicationYear 0
			foreach publicationYear $publicationYearList {
				set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RPQ or type RPQ and year, $publicationYear"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfThesisRecordsPerPublicationYearList $number
				incr numberOfThesisRecordsPerPublicationYear $number
				set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RPQ or type RPQ and year, $publicationYear and size, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfThesisFullTextPerPublicationYearList $number
				incr numberOfThesisFullTextPerPublicationYear $number
			}
			lappend dynamicList {reportBookPublicationYearBar.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 {reportBookPublicationYearBar.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   \"reportBookPublicationYearBar.dat\"
					xtitle \"Ano 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: $numberOfThesisRecordsPerPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
				end key
			"
		}

# Figure 12
		if {[lsearch $figureToBeUpdatedList ePrintIngestYear] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2]
			set numberOfEPrintRecordsPerIngestYear 0
			set numberOfEPrintFullTextPerIngestYearList 0
			foreach ingestYear $ingestYearList {
				set searchExpression "ref Source and repository, */$ingestYear/*"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfEPrintRecordsPerIngestYearList $number
				incr numberOfEPrintRecordsPerIngestYear $number
				set searchExpression "ref Source and repository, */$ingestYear/* and size, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfEPrintFullTextPerIngestYearList $number
				incr numberOfEPrintFullTextIngestYearYear $number
			}
			lappend dynamicList {ePrintIngestYearBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $ingestYearList $numberOfEPrintRecordsPerIngestYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $ingestYearList] $firstSequenceItem $dxticks] $numberOfEPrintRecordsPerIngestYearList $numberOfEPrintFullTextPerIngestYearList
			]
			lappend dynamicList {ePrintIngestYearBar.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   \"ePrintIngestYearBar.dat\"
					xtitle \"Ano de publica\\c{c}\\~ao\"
					ytitle \"N\\'umero de itens\"
					xaxis 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: $numberOfEPrintRecordsPerIngestYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfEPrintFullTextPerIngestYear\"
				end key
			"
		}

		set dynamicList
	]
}
    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.
Trace from DisplayNumber: the search expression was <repository */2005/* and hostcollection, *>.
Trace from DisplayNumber: the number of satisfied queries was 11 out of 12.
16/11/10 18:45
CreateTclPage: not all the queries have been satisfied
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
16/11/10 18:47
list must have an even number of elements
    while executing
"array set searchResultArray $searchResultList"
    invoked from within
"interp eval slave {array set searchResultArray $searchResultList}	"
    invoked from within
"if [file exists $dirName/searchResult.tcl] {
		interp eval slave [list source $dirName/searchResult.tcl]	;# set searchResultList
		interp eval slave {..."
    (procedure "CreateTclPage" line 272)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
16/11/10 18:48
list must have an even number of elements
    while executing
"array set searchResultArray $searchResultList"
    invoked from within
"interp eval slave {array set searchResultArray $searchResultList}	"
    invoked from within
"if [file exists $dirName/searchResult.tcl] {
		interp eval slave [list source $dirName/searchResult.tcl]	;# set searchResultList
		interp eval slave {..."
    (procedure "CreateTclPage" line 272)
    invoked from within
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 20 searches have been made.
16/11/10 19:37
16/11/10 19:37
CreateTclPage (first substitution):
can't read "numberOfRecordsPerCurrentYearReferenceTypeList2": no such variable
    while executing
"ComputeAxisParameters $dxticks $barWidth $referenceTypeList2 $numberOfRecordsPerCurrentYearReferenceTypeList2"
    invoked from within
"if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $reference..."
    invoked from within
"subst {set fileContentList {
	{}
	{
		% This file is interpreted by tcl so each LaTeX back slash must be duplicated
		\\documentclass#!#brazilian,Publ..."
    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#@#{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}
				{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 maxValue [expr round(1.04 * [lindex [lsort -integer $numberOfItemsList] end])]	;# 1.04 * 10
				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(1) 1.2; set dticksTable(1) 0.2	;# maxValue == 1
				set maxTable(2) 2.5; 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
				set ymax [expr $maxTable($numberOfUnits) * $factor]	;# 60
				set dyticks [expr $dticksTable($numberOfUnits) * $factor]	;# 10
				return [list $firstSequenceItem $xmax $ymax $dyticks]
			}
		
#			set currentYear 2009
			set currentYear 2010
#			set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010}
#			set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010}
#			set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010}
			
			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
			
######### List of figures to be updated #########
			set figureToBeUpdatedList {ingestYear publicationYear thesisPublicationYear thesisVivaPublicationYear referenceType currentYearReferenceType accessYear}
			set figureToBeUpdatedList {ingestYear}
			set figureToBeUpdatedList {publicationYear}
			set figureToBeUpdatedList {thesisPublicationYear}
			set figureToBeUpdatedList {thesisVivaPublicationYear}
			set figureToBeUpdatedList {referenceType}
			set figureToBeUpdatedList {currentYearReferenceType}

			set figureToBeUpdatedList {accessYear}

			set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears}
			set figureToBeUpdatedList {accessYearOfTheLastThreeYears}
			set figureToBeUpdatedList {publicationYearDuringTheLastThreeYears}
			set figureToBeUpdatedList {reportBookPublicationYear}
			set figureToBeUpdatedList {ePrintIngestYear}
			set figureToBeUpdatedList {}
			set figureToBeUpdatedList {currentYearReferenceType}

			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 1
		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
			}
			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 \"Ano de inser\\c{c}\\~ao\"
					ytitle \"N\\'umero de itens\"
					xaxis 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} {
			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
			}
			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 \"Ano 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
			"
		}

# Figure 3
		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
			}
			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 \"Ano 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: $numberOfThesisRecordsPerPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
				end key
			"
		}

# Figure 4
		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
			}
			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 \"Ano de defesa ou 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 \"TDs defendidas - Total: $numberOfThesisRecordsPerVivaPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"TDs publicadas - Total: $numberOfThesisFullTextPerVivaPublicationYear\"
				end key
			"
		}

# Figure 5
		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 number1 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfRecordsPerReferenceTypeList $number1
				incr numberOfRecordsPerReferenceType $number1
				set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, *"
				set number2 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfFullTextPerReferenceTypeList $number2
				incr numberOfFullTextPerReferenceType $number2
				lappend dataList [list $referenceType $number1 $number2]
			}
			set dataList [lsort -index 1 -decreasing -integer $dataList]
			foreach data $dataList {
				lappend referenceTypeList2 [lindex $data 0]
				lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1]
				lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2]
			}
			lappend dynamicList {referenceTypeBar.dat}
			lappend dynamicList [
#				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList2 $numberOfRecordsPerReferenceTypeList2] {break}
				set graphymove 2.2
				set graphxsize 15.4
				set graphysize 5.6
#				CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
				CreateDataSet [CreateSequence [llength $referenceTypeList2] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList2 $numberOfFullTextPerReferenceTypeList2
			]
			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 \"Tipo de refer\\^encia\"
					ytitle \"N\\'umero de itens\"
					xaxis min 0 max $xmax
					xnames $referenceTypeList2
					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 $referenceTypeList2 {
							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 $referenceTypeList2 {
							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 6
		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 number1 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfRecordsPerCurrentYearReferenceTypeList $number1
				incr numberOfRecordsPerCurrentYearReferenceType $number1
				set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and size, * and hostcollection, *"
				set number2 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfFullTextPerCurrentYearReferenceTypeList $number2
				incr numberOfFullTextPerCurrentYearReferenceType $number2
				lappend dataList [list $referenceType $number1 $number2]
			}
			set dataList [lsort -index 1 -decreasing -integer $dataList]
			foreach data $dataList {
				lappend referenceTypeList2 [lindex $data 0]
				lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1]
				lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2]
			}
			lappend dynamicList {currentYearReferenceTypeBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList2 $numberOfRecordsPerCurrentYearReferenceTypeList2] {break}
				set graphymove 2.2
				set graphxsize 15.4
				set graphysize 5.6
				CreateDataSet [CreateSequence [llength $referenceTypeList2] $firstSequenceItem $dxticks] $numberOfRecordsPerCurrentYearReferenceTypeList2 $numberOfFullTextPerCurrentYearReferenceTypeList2
			]
			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 \"Tipo de refer\\^encia\"
					ytitle \"N\\'umero de itens\"
					xaxis min 0 max $xmax
					xnames $referenceTypeList2
					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 $referenceTypeList2 {
							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 $referenceTypeList2 {
							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 7
		if {[lsearch $figureToBeUpdatedList accessYear] != -1} {
			set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009}
			set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
			set totalNumberOfAccess 0
			foreach access $histogram {
				incr totalNumberOfAccess $access
			}
			lappend dynamicList {accessYearBar.dat}
			lappend dynamicList [
				set dxticks 0.50
				set barWidth 0.38
				
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $yearList $histogram] {break}
				set graphymove 0.0
				set graphxsize 7.6
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $yearList] $firstSequenceItem $dxticks] $histogram
			]
			lappend dynamicList {accessYearBar.gle}
			lappend dynamicList "
				!size 5 5	! 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
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
					size $graphxsize $graphysize
					center
					data   \"accessYearBar.dat\"
					!xtitle \"M\\^eses\"
					xtitle \"Ano\"
					ytitle \"N\\'umero de acessos\"
					xaxis min 0 max $xmax
					xnames $yearList
					xticks off
					yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
					x2axis off
					y2axis off
					xlabels hei .16
					ylabels hei .16
					!bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
					bar d1 width $barWidth style colormap1
				end graph
				
				begin key
					justify bc
					absolute pagewidth()/2 0
					hei 0.16
					nobox
					boxcolor clear
					text \"N\\'umero total de acessos: $totalNumberOfAccess\"
				end key
			"
		}

# Figure 8
		if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2]
			set numberOfRecordsPerReferenceType 0
			set numberOfFullTextPerReferenceType 0
			foreach referenceType $referenceTypeList {
				set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2008 or year, 2009 or year, 2010}"
				set number1 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfRecordsPerReferenceTypeList $number1
				incr numberOfRecordsPerReferenceType $number1
				set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2008 or year, 2009 or year, 2010}"
				set number2 [DisplayNumberOfEntries2 $searchExpression]
#				lappend numberOfFullTextPerReferenceTypeList $number2
				incr numberOfFullTextPerReferenceType $number2
				lappend dataList [list $referenceType $number1 $number2]
			}
			set dataList [lsort -index 1 -decreasing -integer $dataList]
			foreach data $dataList {
				lappend referenceTypeList2 [lindex $data 0]
				lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1]
				lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2]
			}
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat}
			lappend dynamicList [
#				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList $numberOfRecordsPerReferenceTypeList] {break}
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $referenceTypeList2 $numberOfRecordsPerReferenceTypeList2] {break}
				set graphymove 2.2
				set graphxsize 15.4
				set graphysize 5.6
#				CreateDataSet [CreateSequence [llength $referenceTypeList] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList $numberOfFullTextPerReferenceTypeList
				CreateDataSet [CreateSequence [llength $referenceTypeList2] $firstSequenceItem $dxticks] $numberOfRecordsPerReferenceTypeList2 $numberOfFullTextPerReferenceTypeList2
			]
			lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.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   \"referenceTypeOfTheLastThreeYearsBar.dat\"
					xtitle \"Tipo de refer\\^encia\"
					ytitle \"N\\'umero de itens\"
					xaxis min 0 max $xmax
					xnames $referenceTypeList2
					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 $referenceTypeList2 {
							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 $referenceTypeList2 {
							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 9
		if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
			set numberOfRecordsPerPublicationYear 0
			set numberOfFullTextPerPublicationYear 0
			foreach publicationYear $publicationYearList {
				set searchExpression "repository, */2008/* or repository, */2009/* or repository, */2010/* and year, $publicationYear and hostcollection, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfRecordsPerPublicationYearList $number
				incr numberOfRecordsPerPublicationYear $number
				set searchExpression "repository, */2008/* or repository, */2009/* or repository, */2010/* and year, $publicationYear and size, * and hostcollection, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfFullTextPerPublicationYearList $number
				incr numberOfFullTextPerPublicationYear $number
			}
			lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.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 {publicationYearDuringTheLastThreeYearsBar.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   \"publicationYearDuringTheLastThreeYearsBar.dat\"
					xtitle \"Ano 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
			"
		}

# Figure 10
		if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} {
			set patternList {2008 2009 2010}
			set yearList {2008 2009 2010}
			set histogram [CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList]
			set totalNumberOfAccess 0
			foreach access $histogram {
				incr totalNumberOfAccess $access
			}
			lappend dynamicList {accessYearOfTheLastThreeYearsBar.dat}
			lappend dynamicList [
				set dxticks 0.50
				set barWidth 0.38
				
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $yearList $histogram] {break}
				set graphymove 0.0
				set graphxsize 7.6
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $yearList] $firstSequenceItem $dxticks] $histogram
			]
			lappend dynamicList {accessYearOfTheLastThreeYearsBar.gle}
			lappend dynamicList "
				!size 5 5	! 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
				
				include \"./color.gle\"
				! include \"barstyles.gle\"
				include \"./library.gle\"
				
				amove 0 $graphymove
				begin graph
					size $graphxsize $graphysize
					center
					data   \"accessYearOfTheLastThreeYearsBar.dat\"
					!xtitle \"M\\^eses\"
					xtitle \"Ano\"
					ytitle \"N\\'umero de acessos\"
					xaxis min 0 max $xmax
					xnames $yearList
					xticks off
					yaxis dticks $dyticks dsubticks $dyticks min 0 max $ymax
					x2axis off
					y2axis off
					xlabels hei .16
					ylabels hei .16
					!bar d1,d2 width $barWidth dist [expr $barWidth + 0.04] style colormap1,colormap2
					bar d1 width $barWidth style colormap1
				end graph
				
				begin key
					justify bc
					absolute pagewidth()/2 0
					hei 0.16
					nobox
					boxcolor clear
					text \"N\\'umero total de acessos: $totalNumberOfAccess\"
				end key
			"
		}

# Figure 11
		if {[lsearch $figureToBeUpdatedList reportBookPublicationYear] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2]
			set numberOfThesisRecordsPerPublicationYear 0
			set numberOfThesisFullTextPerPublicationYear 0
			foreach publicationYear $publicationYearList {
				set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RPQ or type RPQ and year, $publicationYear"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfThesisRecordsPerPublicationYearList $number
				incr numberOfThesisRecordsPerPublicationYear $number
				set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RPQ or type RPQ and year, $publicationYear and size, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfThesisFullTextPerPublicationYearList $number
				incr numberOfThesisFullTextPerPublicationYear $number
			}
			lappend dynamicList {reportBookPublicationYearBar.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 {reportBookPublicationYearBar.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   \"reportBookPublicationYearBar.dat\"
					xtitle \"Ano 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: $numberOfThesisRecordsPerPublicationYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfThesisFullTextPerPublicationYear\"
				end key
			"
		}

# Figure 12
		if {[lsearch $figureToBeUpdatedList ePrintIngestYear] != -1} {
			set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2]
			set numberOfEPrintRecordsPerIngestYear 0
			set numberOfEPrintFullTextPerIngestYear 0
			foreach ingestYear $ingestYearList {
				set searchExpression "ref Source and repository, */$ingestYear/*"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfEPrintRecordsPerIngestYearList $number
				incr numberOfEPrintRecordsPerIngestYear $number
				set searchExpression "ref Source and repository, */$ingestYear/* and size, *"
				set number [DisplayNumberOfEntries2 $searchExpression]
				lappend numberOfEPrintFullTextPerIngestYearList $number
				incr numberOfEPrintFullTextPerIngestYear $number
			}
			lappend dynamicList {ePrintIngestYearBar.dat}
			lappend dynamicList [
				foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $ingestYearList $numberOfEPrintRecordsPerIngestYearList] {break}
				set graphymove 0.3
				set graphxsize 15.4
				set graphysize 5.8
				CreateDataSet [CreateSequence [llength $ingestYearList] $firstSequenceItem $dxticks] $numberOfEPrintRecordsPerIngestYearList $numberOfEPrintFullTextPerIngestYearList
			]
			lappend dynamicList {ePrintIngestYearBar.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   \"ePrintIngestYearBar.dat\"
					xtitle \"Ano de inser\\c{c}\\~ao\"
					ytitle \"N\\'umero de itens\"
					xaxis 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: $numberOfEPrintRecordsPerIngestYear\"
					fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfEPrintFullTextPerIngestYear\"
				end key
			"
		}

		set dynamicList
	]
}
    while executing
"CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword"
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 20 searches have been made.
DisplayNumber: all the 18 searches have been made.
DisplayNumber: all the 18 searches have been made.
{CreateTclPage (2): url not found} http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe.cls {HTTP/1.1 200 OK}
01/07/16 14:41
01/07/16 17:46
28/08/16 02:29
28/08/16 05:36
28/08/16 05:39
28/08/16 06:48
28/08/16 08:27
28/08/16 10:44