25/11/11 17:18 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 36 searches have been made. DisplayNumber: all the 54 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. DisplayNumber: all the 40 searches have been made. DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 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 40 searches have been made. DisplayNumber: all the 58 searches have been made. DisplayNumber: all the 76 searches have been made. DisplayNumber: all the 20 searches have been made. DisplayNumber: all the 38 searches have been made. DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. DisplayNumber: all the 54 searches have been made. 25/11/11 19:51 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 25/11/11 20:16 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 25/11/11 20:16 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 25/11/11 20:42 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 25/11/11 20:46 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 25/11/11 20:48 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 90 searches have been made. DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. 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 18 searches have been made. DisplayNumber: all the 20 searches have been made. 09/12/11 12:12 20/01/12 10:21 20/01/12 10:51 20/01/12 10:51 Trace from DisplayNumber: the search expression was . 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" 20/01/12 10:55 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 10:59 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:05 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 92 searches have been made. DisplayNumber: all the 112 searches have been made. 20/01/12 11:10 DisplayNumber: all the 20 searches have been made. DisplayNumber: all the 38 searches have been made. DisplayNumber: all the 56 searches have been made. DisplayNumber: all the 74 searches have been made. DisplayNumber: all the 92 searches have been made. CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:13 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:13 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:14 DisplayNumber: all the 20 searches have been made. DisplayNumber: all the 38 searches have been made. 20/01/12 11:17 DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. DisplayNumber: all the 54 searches have been made. CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:20 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:20 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:21 DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. 20/01/12 11:22 DisplayNumber: all the 18 searches have been made. CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:22 CreateTclPage: not all the queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/01/12 11:23 DisplayNumber: all the 18 searches have been made. 20/01/12 11:25 DisplayNumber: all the 18 searches have been made. 20/01/12 11:26 DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. 20/01/12 11:27 21/07/12 11:11 21/07/12 11:16 21/07/12 11:19 DisplayNumber: all the 20 searches have been made. 21/07/12 11:23 06/12/12 23:41 DisplayNumber: all the 18 searches have been made. 06/12/12 23:48 DisplayNumber: all the 18 searches have been made. 06/12/12 23:53 DisplayNumber: all the 18 searches have been made. 06/12/12 23:57 DisplayNumber: all the 18 searches have been made. 07/12/12 00:02 DisplayNumber: all the 20 searches have been made. 07/12/12 00:08 DisplayNumber: all the 20 searches have been made. 07/12/12 00:15 07/12/12 00:18 07/12/12 21:34 DisplayNumber: all the 20 searches have been made. 07/12/12 21:42 DisplayNumber: all the 18 searches have been made. 07/12/12 21:51 07/12/12 21:53 DisplayNumber: all the 18 searches have been made. 07/12/12 21:58 DisplayNumber: all the 18 searches have been made. 07/12/12 22:02 DisplayNumber: all the 18 searches have been made. 07/12/12 22:07 DisplayNumber: all the 18 searches have been made. 07/12/12 22:12 DisplayNumber: all the 18 searches have been made. 07/12/12 22:18 DisplayNumber: all the 18 searches have been made. 07/12/12 22:24 DisplayNumber: all the 18 searches have been made. 07/12/12 22:28 07/12/12 23:34 07/12/12 23:35 07/12/12 23:36 07/12/12 23:43 20/11/13 10:44 20/11/13 12:56 20/11/13 12:57 DisplayNumber: all the 18 searches have been made. 20/11/13 13:05 DisplayNumber: all the 18 searches have been made. 20/11/13 13:07 DisplayNumber: all the 18 searches have been made. 20/11/13 13:08 DisplayNumber: all the 18 searches have been made. 20/11/13 13:11 DisplayNumber: all the 18 searches have been made. 20/11/13 13:12 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 14 out of 15. CreateTclPage: just 19 out of 20 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/11/13 13:14 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 14 out of 15. CreateTclPage: just 19 out of 20 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/11/13 13:23 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 20 searches have been made. DisplayNumber: all the 20 searches have been made. DisplayNumber: all the 20 searches have been made. 20/11/13 13:25 DisplayNumber: all the 20 searches have been made. 20/11/13 13:26 20/11/13 13:28 DisplayNumber: all the 20 searches have been made. 20/11/13 13:30 DisplayNumber: all the 18 searches have been made. 20/11/13 13:35 20/11/13 13:37 DisplayNumber: all the 18 searches have been made. 20/11/13 13:38 DisplayNumber: all the 18 searches have been made. 20/11/13 13:43 DisplayNumber: all the 18 searches have been made. 20/11/13 13:45 DisplayNumber: all the 18 searches have been made. 20/11/13 13:45 DisplayNumber: all the 18 searches have been made. 20/11/13 13:49 20/11/13 13:50 CreateTclPage (first substitution): CreateOutput: unexpected searchResult value: encodingsystem iso8859-1 language en ibi sid.inpe.br/ePrint@80/2005/06.10.14.42 metadatalastupdate {2013:10.01.22.20.21 sid.inpe.br/bibdigital@80/2006/04.07.15.50 administrator} repository sid.inpe.br/ePrint@80/2005/06.10.14.42 filepath {} serviceibi dpi.inpe.br/banon/1998/08.02.08.56 serveraddress {mtc-m18.sid.inpe.br 800} site mtc-m18.sid.inpe.br state {Registered Original} link mtc-m18.sid.inpe.br/displaydoccontent.cgi/sid.inpe.br/ePrint@80/2005/06.10.14.42?displaytype=FileList&requiredmirror=sid.inpe.br/mtc-m18@80/2008/03.17.15.17.24&searchmirror=sid.inpe.br/bibdigital@80/2006/04.07.15.50.13&metadatarepository=sid.inpe.br/ePrint@80/2005/06.10.14.42.47&choice=briefTitleAuthorMisc&searchsite=bibdigital.sid.inpe.br:80&languagebutton=en while executing "error "CreateOutput: unexpected searchResult value: $searchResult"" invoked from within "if [regexp {^\d+$} $n] { # n is integer incr numberOfEntries2 $n } else { # n is not integer error "CreateOutput: unexpected searchRe..." invoked from within "if ![string equal {} $n] { if [regexp {^\d+$} $n] { # n is integer incr numberOfEntries2 $n } else { # n is not integer error "C..." ("foreach" body line 5) invoked from within "foreach searchResult $searchResultList { # puts $searchResult set n 0 catch {foreach {1 2 3 4 5 n} $searchResult {break}} ;# searchResult may ..." invoked from within "if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] { # the search expression has a syntax error if $header { if [info exists cgi(query)]..." (procedure "CreateOutput" line 204) invoked from within "CreateOutput $language $languageRep1 $languageRep2 $query {} Search {} $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1 {^$} 0 ..." invoked from within "if [info exists searchResultArray($itemName)] { # Load $dirName/searchResult/$fileName output set output $searchResultArray($itemName) # set log "..." (procedure "DisplayNumber" line 30) invoked from within "DisplayNumber $searchExpression2 $accent $case $subsetOfGroups $integerWithLink DisplayNumberOfEntries" (procedure "DisplayNumberOfEntries" line 3) invoked from within "DisplayNumberOfEntries $searchExpression no no 1 {} 0" (procedure "DisplayNumberOfEntries2" line 5) invoked from within "DisplayNumberOfEntries2 $searchExpression" ("foreach" body line 7) invoked from within "foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 ..." invoked from within "if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} [ set siteList { bibdigital.sid.inpe.br:80 {ismm.dpi.inpe.br 800} marte.sid.inpe.br:80 {marte2.sid.inpe.br 802} mtc-m05.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 {mtc-m15.sid.inpe.br 800} mtc-m16.sid.inpe.br:80 mtc-m17.sid.inpe.br:80 {mtc-m18.sid.inpe.br 800} {mtc-m19.sid.inpe.br 800} {mtc-m21.sid.inpe.br 800} {mtc-m21b.sid.inpe.br 802} {plutao.sid.inpe.br 800} } 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 currentYear 2011 # set currentYear 2012 set currentYear 2013 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} 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 ######### # 1 ingestYear # 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear # if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {ingestYear} set figureToBeUpdatedList {publicationYear} set figureToBeUpdatedList {thesisPublicationYear} set figureToBeUpdatedList {thesisVivaPublicationYear} set figureToBeUpdatedList {referenceType} ;# time consuming set figureToBeUpdatedList {currentYearReferenceType} set figureToBeUpdatedList {accessYear} set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} set figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} set figureToBeUpdatedList {accessYearOfTheLastThreeYears} set figureToBeUpdatedList {journalPublicationYear} set figureToBeUpdatedList {conferencePublicationYear} set figureToBeUpdatedList {bookSectionPublicationYear} set figureToBeUpdatedList {reportPublicationYear} set figureToBeUpdatedList {ePrintIngestYear} set figureToBeUpdatedList {newspaperIngestYear} set figureToBeUpdatedList {} # set figureToBeUpdatedList {ingestYear} ;# 1 # lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 # lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 # lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 # set figureToBeUpdatedList {} set hei 0.2 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} 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 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2011 or year, 2012 or year, 2013}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2011 or year, 2012 or year, 2013}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "repository, */2011/* or repository, */2012/* or repository, */2013/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2011/* or repository, */2012/* or repository, */2013/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {2011 2012 2013} set yearList {2011 2012 2013} 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 journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $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 numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} 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 numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $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 numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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" 20/11/13 13:57 DisplayNumber: all the 18 searches have been made. 20/11/13 13:58 DisplayNumber: all the 18 searches have been made. 20/11/13 13:59 DisplayNumber: all the 18 searches have been made. 20/11/13 13:59 20/11/13 14:00 22/01/14 08:36 22/01/14 08:58 22/01/14 09:04 22/01/14 09:07 22/01/14 09:10 22/01/14 09:22 22/01/14 09:24 27/01/14 10:40 DisplayNumber: all the 18 searches have been made. 27/01/14 10:42 DisplayNumber: all the 18 searches have been made. 27/01/14 10:43 DisplayNumber: all the 18 searches have been made. 27/01/14 10:44 DisplayNumber: all the 18 searches have been made. 27/01/14 10:46 DisplayNumber: all the 20 searches have been made. 27/01/14 10:48 DisplayNumber: all the 18 searches have been made. 27/01/14 10:56 DisplayNumber: all the 18 searches have been made. 27/01/14 10:58 DisplayNumber: all the 18 searches have been made. 27/01/14 10:59 DisplayNumber: all the 18 searches have been made. 27/01/14 11:01 DisplayNumber: all the 18 searches have been made. 27/01/14 11:02 27/01/14 11:04 DisplayNumber: all the 20 searches have been made. 27/01/14 11:05 DisplayNumber: all the 20 searches have been made. 27/01/14 11:07 DisplayNumber: all the 18 searches have been made. 27/01/14 11:08 27/01/14 11:09 DisplayNumber: all the 18 searches have been made. 27/01/14 11:10 DisplayNumber: all the 18 searches have been made. 27/01/14 11:11 12/12/14 10:26 12/12/14 10:27 12/12/14 10:29 12/12/14 18:28 12/12/14 18:28 12/12/14 18:29 12/12/14 18:40 12/12/14 18:41 12/12/14 18:42 12/12/14 18:44 12/12/14 18:44 12/12/14 18:45 12/12/14 18:46 12/12/14 18:47 12/12/14 18:55 12/12/14 18:56 12/12/14 18:57 12/12/14 18:57 12/12/14 18:59 12/12/14 18:59 12/12/14 18:59 12/12/14 19:13 12/12/14 19:14 12/12/14 19:17 12/12/14 19:17 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 13 out of 15. CreateTclPage: just 0 out of 18 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 12/12/14 19:20 DisplayNumber: all the 18 searches have been made. 12/12/14 23:01 DisplayNumber: all the 18 searches have been made. 12/12/14 23:04 12/12/14 23:05 13/12/14 02:08 13/12/14 10:56 13/12/14 10:59 13/12/14 11:08 13/12/14 11:13 13/12/14 11:14 13/12/14 11:27 13/12/14 11:28 13/12/14 11:29 13/12/14 11:30 13/12/14 12:53 13/12/14 12:59 13/12/14 13:00 13/12/14 13:03 19/12/14 16:37 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 18 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 19/12/14 16:45 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 18 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 19/12/14 16:50 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 18 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 19/12/14 16:52 19/12/14 23:00 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 94 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 19/12/14 23:03 19/12/14 23:06 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 18 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 19/12/14 23:06 20/12/14 11:20 20/12/14 11:20 CreateTclPage (first substitution): invalid command name "1" while executing "1 ingestYear" 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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} % marte.sid.inpe.br:80 % {marte2.sid.inpe.br 802} [ set siteList { bibdigital.sid.inpe.br:80 {ismm.dpi.inpe.br 800} mtc-m05.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 {mtc-m15.sid.inpe.br 800} mtc-m16.sid.inpe.br:80 mtc-m17.sid.inpe.br:80 {mtc-m18.sid.inpe.br 800} {mtc-m19.sid.inpe.br 800} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {plutao.sid.inpe.br 800} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 set currentYear 2014 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 ######### 1 ingestYear 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear # if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {ingestYear} set figureToBeUpdatedList {publicationYear} set figureToBeUpdatedList {thesisPublicationYear} set figureToBeUpdatedList {thesisVivaPublicationYear} set figureToBeUpdatedList {referenceType} ;# time consuming set figureToBeUpdatedList {currentYearReferenceType} set figureToBeUpdatedList {accessYear} set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} set figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} set figureToBeUpdatedList {accessYearOfTheLastThreeYears} set figureToBeUpdatedList {journalPublicationYear} set figureToBeUpdatedList {conferencePublicationYear} set figureToBeUpdatedList {bookSectionPublicationYear} set figureToBeUpdatedList {reportPublicationYear} set figureToBeUpdatedList {ePrintIngestYear} set figureToBeUpdatedList {newspaperIngestYear} set figureToBeUpdatedList {} set figureToBeUpdatedList {ingestYear} ;# 1 lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 # lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 # lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 # lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 # set figureToBeUpdatedList {} set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList {2012 2013 2014} set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $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 numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} 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 numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $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 numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/12/14 11:22 20/12/14 11:22 20/12/14 11:23 20/12/14 11:24 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 112 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/12/14 11:28 20/12/14 11:28 CreateTclPage (first substitution): invalid command name "1" while executing "1 ingestYear" 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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} % marte.sid.inpe.br:80 % {marte2.sid.inpe.br 802} [ set siteList { bibdigital.sid.inpe.br:80 {ismm.dpi.inpe.br 800} mtc-m05.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 {mtc-m15.sid.inpe.br 800} mtc-m16.sid.inpe.br:80 mtc-m17.sid.inpe.br:80 {mtc-m18.sid.inpe.br 800} {mtc-m19.sid.inpe.br 800} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {plutao.sid.inpe.br 800} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 set currentYear 2014 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 ######### 1 ingestYear 2 publicationYear 3 thesisPublicationYear 4 thesisVivaPublicationYear 5 referenceType 6 currentYearReferenceType 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {ingestYear} set figureToBeUpdatedList {publicationYear} set figureToBeUpdatedList {thesisPublicationYear} set figureToBeUpdatedList {thesisVivaPublicationYear} set figureToBeUpdatedList {referenceType} ;# time consuming set figureToBeUpdatedList {currentYearReferenceType} set figureToBeUpdatedList {accessYear} set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} set figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} set figureToBeUpdatedList {accessYearOfTheLastThreeYears} set figureToBeUpdatedList {journalPublicationYear} set figureToBeUpdatedList {conferencePublicationYear} set figureToBeUpdatedList {bookSectionPublicationYear} set figureToBeUpdatedList {reportPublicationYear} set figureToBeUpdatedList {ePrintIngestYear} set figureToBeUpdatedList {newspaperIngestYear} set figureToBeUpdatedList {} set figureToBeUpdatedList {ingestYear} ;# 1 lappend figureToBeUpdatedList {publicationYear} ;# 2 lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 lappend figureToBeUpdatedList {referenceType} ;# 5 lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 # lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 # set figureToBeUpdatedList {} set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList {2012 2013 2014} set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $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 numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} 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 numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $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 numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/12/14 11:32 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 112 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 20/12/14 11:37 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 0 out of 112 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 21/12/14 10:22 DisplayNumber: all the 18 searches have been made. 21/12/14 10:26 DisplayNumber: all the 18 searches have been made. 21/12/14 10:27 DisplayNumber: all the 18 searches have been made. 21/12/14 10:28 DisplayNumber: all the 18 searches have been made. 21/12/14 10:30 DisplayNumber: all the 20 searches have been made. 21/12/14 10:31 DisplayNumber: all the 20 searches have been made. 21/12/14 10:32 DisplayNumber: all the 20 searches have been made. 21/12/14 10:34 21/12/14 10:35 DisplayNumber: all the 20 searches have been made. 21/12/14 10:36 DisplayNumber: all the 20 searches have been made. 21/12/14 10:38 DisplayNumber: all the 18 searches have been made. 21/12/14 10:40 DisplayNumber: all the 18 searches have been made. 21/12/14 10:44 DisplayNumber: all the 18 searches have been made. 21/12/14 10:45 DisplayNumber: all the 18 searches have been made. 21/12/14 10:46 DisplayNumber: all the 20 searches have been made. 21/12/14 10:47 DisplayNumber: all the 20 searches have been made. 21/12/14 10:49 21/12/14 10:50 DisplayNumber: all the 20 searches have been made. 21/12/14 10:51 {CreateTclPage (2): url not found} http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe.cls {HTTP/1.1 200 OK} DisplayNumber: all the 18 searches have been made. 21/12/14 10:53 21/12/14 10:55 DisplayNumber: all the 18 searches have been made. 21/12/14 10:56 DisplayNumber: all the 18 searches have been made. 21/12/14 10:57 DisplayNumber: all the 18 searches have been made. 21/12/14 10:58 DisplayNumber: all the 18 searches have been made. 21/12/14 10:59 {CreateTclPage (2): url not found} http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe.cls {HTTP/1.1 200 OK} DisplayNumber: all the 18 searches have been made. 21/12/14 11:00 DisplayNumber: all the 18 searches have been made. 21/12/14 11:09 21/12/14 11:09 CreateTclPage (first substitution): can't read "figureToBeUpdatedList": no such variable while executing "lsearch $figureToBeUpdatedList ingestYear" invoked from within "if {[lsearch $figureToBeUpdatedList ingestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] ..." 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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} % marte.sid.inpe.br:80 % {marte2.sid.inpe.br 802} [ set siteList { bibdigital.sid.inpe.br:80 {ismm.dpi.inpe.br 800} mtc-m05.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 {mtc-m15.sid.inpe.br 800} mtc-m16.sid.inpe.br:80 mtc-m17.sid.inpe.br:80 {mtc-m18.sid.inpe.br 800} {mtc-m19.sid.inpe.br 800} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {plutao.sid.inpe.br 800} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 set currentYear 2014 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 ######### # 1 ingestYear # 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) # set figureToBeUpdatedList {ingestYear} # set figureToBeUpdatedList {publicationYear} # set figureToBeUpdatedList {thesisPublicationYear} # set figureToBeUpdatedList {thesisVivaPublicationYear} # set figureToBeUpdatedList {referenceType} ;# time consuming # set figureToBeUpdatedList {currentYearReferenceType} # set figureToBeUpdatedList {accessYear} # set figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} # set figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} # set figureToBeUpdatedList {accessYearOfTheLastThreeYears} # set figureToBeUpdatedList {journalPublicationYear} # set figureToBeUpdatedList {conferencePublicationYear} # set figureToBeUpdatedList {bookSectionPublicationYear} # set figureToBeUpdatedList {reportPublicationYear} # set figureToBeUpdatedList {ePrintIngestYear} # set figureToBeUpdatedList {newspaperIngestYear} # set figureToBeUpdatedList {} # set figureToBeUpdatedList {ingestYear} ;# 1 # lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 # lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 # lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 # lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 # set figureToBeUpdatedList {} set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList {2012 2013 2014} set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $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 numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} 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 numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $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 numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d às %H:%M"]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 21/12/14 11:10 DisplayNumber: all the 18 searches have been made. 21/12/14 11:13 DisplayNumber: all the 18 searches have been made. 21/12/14 11:22 DisplayNumber: all the 18 searches have been made. 21/12/14 11:22 DisplayNumber: all the 18 searches have been made. 21/12/14 11:23 DisplayNumber: all the 18 searches have been made. 21/12/14 11:23 DisplayNumber: all the 18 searches have been made. 21/12/14 11:24 DisplayNumber: all the 18 searches have been made. 21/12/14 11:24 DisplayNumber: all the 18 searches have been made. 21/12/14 11:24 DisplayNumber: all the 18 searches have been made. 21/12/14 11:25 DisplayNumber: all the 18 searches have been made. 21/12/14 11:25 DisplayNumber: all the 18 searches have been made. 21/12/14 11:25 DisplayNumber: all the 18 searches have been made. 21/12/14 11:26 DisplayNumber: all the 18 searches have been made. 21/12/14 11:26 DisplayNumber: all the 18 searches have been made. 21/12/14 11:27 DisplayNumber: all the 18 searches have been made. 21/12/14 11:27 DisplayNumber: all the 18 searches have been made. 21/12/14 11:28 DisplayNumber: all the 18 searches have been made. 21/12/14 11:28 {CreateTclPage (2): url not found} http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe.cls {HTTP/1.1 200 OK} DisplayNumber: all the 18 searches have been made. 21/12/14 11:30 DisplayNumber: all the 18 searches have been made. 21/12/14 11:31 DisplayNumber: all the 18 searches have been made. 21/12/14 11:32 DisplayNumber: all the 18 searches have been made. 21/12/14 11:32 DisplayNumber: all the 18 searches have been made. 21/12/14 11:34 DisplayNumber: all the 18 searches have been made. 22/12/14 10:22 {CreateTclPage (2): url not found} http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe.cls {HTTP/1.1 200 OK} DisplayNumber: all the 18 searches have been made. 22/12/14 10:38 22/12/14 10:43 DisplayNumber: all the 18 searches have been made. 22/12/14 10:49 DisplayNumber: all the 18 searches have been made. 22/12/14 10:51 DisplayNumber: all the 18 searches have been made. 22/12/14 10:55 22/12/14 10:57 DisplayNumber: all the 18 searches have been made. 22/12/14 10:57 22/12/14 16:47 DisplayNumber: all the 18 searches have been made. 22/12/14 16:49 DisplayNumber: all the 18 searches have been made. 22/12/14 16:50 DisplayNumber: all the 20 searches have been made. 22/12/14 16:50 DisplayNumber: all the 20 searches have been made. 22/12/14 16:52 22/12/14 16:52 CreateTclPage (first substitution): can't read "URLibServiceRepository": no such variable while executing "Load $homePath/col/$URLibServiceRepository/auxdoc/nslookupMessage fileContent" (procedure "ReturnFullServerNameIP" line 34) invoked from within "ReturnFullServerNameIP urlib.net 0" invoked from within "if $ipFlag { foreach {fullServerName ip} [ReturnFullServerNameIP urlib.net 0] {break} ;# 0 is to avoid possible firewalls # fullServerName not used ..." (procedure "GetURLibServerAddress" line 5) invoked from within "GetURLibServerAddress" invoked from within "if [string equal {} $siteContainingTheOriginal] { # not found in the local scope - use the URLib server scope # serverAddressWithIP if [info exists..." (procedure "FindSiteContainingTheOriginal2" line 11) invoked from within "FindSiteContainingTheOriginal2 $rep 1 $siteList" (procedure "CreateAccessHistogram" line 6) invoked from within "CreateAccessHistogram {sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 sid.inpe.br/bibdigital@80/2006/11.11.23.17} $patternList $siteList" invoked from within "if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 ..." 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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} [ set siteList { bibdigital.sid.inpe.br:80 {ismm.dpi.inpe.br 800} mtc-m05.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 {mtc-m15.sid.inpe.br 800} mtc-m16.sid.inpe.br:80 mtc-m17.sid.inpe.br:80 {mtc-m18.sid.inpe.br 800} {mtc-m19.sid.inpe.br 800} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {plutao.sid.inpe.br 800} marte.sid.inpe.br:80 {marte2.sid.inpe.br 802} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 set currentYear 2014 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 ######### # 1 ingestYear # 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {} ;# não comentar esta linha # lappend figureToBeUpdatedList {ingestYear} ;# 1 # lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 # lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 # lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2012/* or repository, */2013/* or repository, */2014/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList {2012 2013 2014} set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $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 numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} 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 numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $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 numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $writeUserCodedPassword" 22/12/14 16:52 22/12/14 16:53 DisplayNumber: all the 20 searches have been made. 22/12/14 17:03 DisplayNumber: all the 6 searches have been made. 22/12/14 17:04 22/12/14 17:06 DisplayNumber: all the 18 searches have been made. 22/12/14 17:06 DisplayNumber: all the 18 searches have been made. 22/12/14 17:09 DisplayNumber: all the 18 searches have been made. 22/12/14 17:09 DisplayNumber: all the 18 searches have been made. 22/12/14 17:10 DisplayNumber: all the 18 searches have been made. 22/12/14 17:11 DisplayNumber: all the 18 searches have been made. 22/12/14 17:12 DisplayNumber: all the 18 searches have been made. 25/12/14 22:12 DisplayNumber: all the 18 searches have been made. 25/12/14 22:14 DisplayNumber: all the 18 searches have been made. 25/12/14 22:15 DisplayNumber: all the 18 searches have been made. 25/12/14 22:16 DisplayNumber: all the 18 searches have been made. 25/12/14 22:19 DisplayNumber: all the 18 searches have been made. 25/12/14 22:20 DisplayNumber: all the 18 searches have been made. 25/12/14 22:22 DisplayNumber: all the 18 searches have been made. 11/01/16 15:14 DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. 11/01/16 15:18 DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. 11/01/16 15:20 DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. 11/01/16 15:21 DisplayNumber: all the 18 searches have been made. DisplayNumber: all the 36 searches have been made. 11/01/16 15:25 DisplayNumber: all the 18 searches have been made. 11/01/16 15:27 DisplayNumber: all the 20 searches have been made. 11/01/16 15:28 DisplayNumber: all the 20 searches have been made. 11/01/16 15:42 11/01/16 15:43 DisplayNumber: all the 20 searches have been made. 11/01/16 15:45 DisplayNumber: all the 6 searches have been made. 11/01/16 15:47 DisplayNumber: all the 6 searches have been made. 11/01/16 15:49 {CreateTclPage (2): url not found} http://urlib.net/iconet.com.br/banon/2008/03.25.01.19/tdiinpe.cls {HTTP/1.1 200 OK} 11/01/16 15:50 DisplayNumber: all the 18 searches have been made. 11/01/16 15:52 DisplayNumber: all the 18 searches have been made. 11/01/16 15:53 DisplayNumber: all the 18 searches have been made. 11/01/16 15:54 DisplayNumber: all the 18 searches have been made. 11/01/16 15:55 DisplayNumber: all the 18 searches have been made. 11/01/16 15:56 DisplayNumber: all the 18 searches have been made. 11/01/16 16:00 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 17 out of 18 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 11/01/16 16:02 DisplayNumber: all the 18 searches have been made. 11/01/16 16:04 DisplayNumber: all the 18 searches have been made. 11/01/16 16:05 DisplayNumber: all the 18 searches have been made. 11/01/16 16:06 DisplayNumber: all the 18 searches have been made. 11/01/16 16:06 11/01/16 16:06 11/01/16 16:07 11/01/16 16:08 11/01/16 16:08 11/01/16 16:08 Trace from DisplayNumber: the search expression was . Trace from DisplayNumber: the number of satisfied queries was 12 out of 13. CreateTclPage: just 17 out of 18 queries have been satisfied while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 11/01/16 16:14 DisplayNumber: all the 18 searches have been made. 11/01/16 16:18 DisplayNumber: all the 18 searches have been made. 11/01/16 16:30 DisplayNumber: all the 18 searches have been made. 11/01/16 16:37 11/01/16 16:38 14/01/17 17:39 DisplayNumber: all the 18 searches have been made. 14/01/17 17:42 DisplayNumber: all the 18 searches have been made. 14/01/17 17:44 DisplayNumber: all the 18 searches have been made. 14/01/17 17:46 DisplayNumber: all the 18 searches have been made. 14/01/17 17:47 DisplayNumber: all the 18 searches have been made. 14/01/17 17:51 DisplayNumber: all the 18 searches have been made. 14/01/17 17:52 DisplayNumber: all the 18 searches have been made. 14/01/17 17:53 DisplayNumber: all the 18 searches have been made. 14/01/17 17:55 DisplayNumber: all the 20 searches have been made. 14/01/17 17:56 14/01/17 17:56 CreateTclPage (first substitution): CreateOutput: unexpected searchResult value: archiveaddress mtc-m16c.sid.inpe.br contenttype Data ibi {rep sid.inpe.br/mtc-m18@80/2009/10.06.11.40 ibip 8JMKD3MGP8W/36785GH} ibi.archiveservice {rep sid.inpe.br/mtc-m18@80/2008/03.17.15.17} ibi.platformsoftware {rep dpi.inpe.br/banon/1998/08.02.08.56} state Original timestamp 2009-10-06T11:40:25Z url http://mtc-m16c.sid.inpe.br/col/sid.inpe.br/mtc-m18@80/2009/10.06.11.40/doc/Desafios%20para%20implantao%20de%20um%20%20%20%20%20%20banco%20de%20dados%20digital%20em%20projeto%20de%20%20arquitetura%20o%20PROJEDATA2.pdf urlkey 1484423793-7503858024691358 the query was: list GetMetadataRepositories sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 3 {referencetype, Conference Proceedings and repository */2016/* and size, * and hostcollection, *} no no 1 metadatalastupdate repArray {} pages 3 {} while executing "error "CreateOutput: unexpected searchResult value: $searchResult\nthe query was: $query" " invoked from within "if [regexp {^\d+$} $n] { # n is integer incr numberOfEntries2 $n } else { # n is not integer error "CreateOutput: unexpected searchR..." invoked from within "if ![string equal {} $n] { if [regexp {^\d+$} $n] { # n is integer incr numberOfEntries2 $n } else { # n is not integer error "..." ("foreach" body line 5) invoked from within "foreach searchResult $searchResultList { # puts $searchResult set n 0 catch {foreach {1 2 3 4 5 n} $searchResult {break}} ;# searchResult may ..." invoked from within "if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] { # the search expression has a syntax error if $header { if [info exists cgi(query)]..." (procedure "CreateOutput" line 218) invoked from within "CreateOutput $language $languageRep1 $languageRep2 $query {} Search {} $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1 {^$} 0 ..." invoked from within "if [info exists searchResultArray($itemName)] { # Load $dirName/searchResult/$fileName output set output $searchResultArray($itemName) # set log "..." (procedure "DisplayNumber" line 30) invoked from within "DisplayNumber $searchExpression2 $accent $case $subsetOfGroups $integerWithLink DisplayNumberOfEntries" (procedure "DisplayNumberOfEntries" line 14) invoked from within "DisplayNumberOfEntries $searchExpression no no 1 {} 0" (procedure "DisplayNumberOfEntries2" line 5) invoked from within "DisplayNumberOfEntries2 $searchExpression" ("foreach" body line 7) invoked from within "foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and repository */$currentYear/* and hostcoll..." 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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} [ set siteList { bibdigital.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 mtc-m16.sid.inpe.br:80 {mtc-m16b.sid.inpe.br 802} {mtc-m16c.sid.inpe.br 804} {mtc-m16d.sid.inpe.br 806} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {plutao.sid.inpe.br 800} marte.sid.inpe.br:80 {marte2.sid.inpe.br 802} {marte3.sid.inpe.br 804} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 # set currentYear 2014 # set currentYear 2015 set currentYear 2016 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} # set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set ingestYearList {2007 2008 2009 2010 2011 2012 2013 2014 2015} set ingestYearList {2008 2009 2010 2011 2012 2013 2014 2015 2016} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set publicationThreeYearList {2012 2013 2014} # set publicationThreeYearList {2013 2014 2015} set publicationThreeYearList {2014 2015 2016} # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 ######### # 1 ingestYear # 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {} ;# não comentar esta linha # lappend figureToBeUpdatedList {ingestYear} ;# 1 # lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 # lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 # lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2012 or year, 2013 or year, 2014}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationThreeYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationThreeYearList { set searchExpression "repository, */2013/* or repository, */2014/* or repository, */2015/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2013/* or repository, */2014/* or repository, */2015/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationThreeYearList $numberOfRecordsPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationThreeYearList] $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 $publicationThreeYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList {2013 2014 2015} set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $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 numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} 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 numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $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 numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 14/01/17 17:56 DisplayNumber: all the 20 searches have been made. 14/01/17 17:58 14/01/17 18:00 14/01/17 18:00 DisplayNumber: all the 20 searches have been made. 14/01/17 18:02 DisplayNumber: all the 6 searches have been made. 14/01/17 18:03 DisplayNumber: all the 6 searches have been made. 14/01/17 18:11 DisplayNumber: all the 6 searches have been made. 14/01/17 18:13 14/01/17 18:14 DisplayNumber: all the 18 searches have been made. 14/01/17 18:15 DisplayNumber: all the 18 searches have been made. 14/01/17 18:16 DisplayNumber: all the 18 searches have been made. 14/01/17 18:18 DisplayNumber: all the 18 searches have been made. 14/01/17 18:19 DisplayNumber: all the 18 searches have been made. 14/01/17 18:20 DisplayNumber: all the 18 searches have been made. 14/01/17 18:39 DisplayNumber: all the 18 searches have been made. 14/01/17 18:41 DisplayNumber: all the 18 searches have been made. 14/01/17 18:42 DisplayNumber: all the 18 searches have been made. 14/01/17 18:44 DisplayNumber: all the 18 searches have been made. 14/01/17 18:48 DisplayNumber: all the 18 searches have been made. 14/01/17 18:57 DisplayNumber: all the 18 searches have been made. 14/01/17 19:05 DisplayNumber: all the 18 searches have been made. 14/01/17 19:06 14/01/17 19:06 CreateTclPage (first substitution): CreateOutput: unexpected searchResult value: archiveaddress mtc-m16c.sid.inpe.br contenttype Data ibi {rep sid.inpe.br/mtc-m18@80/2009/03.25.20.04 ibip 8JMKD3MGP8W/352HLSH} ibi.archiveservice {rep sid.inpe.br/mtc-m18@80/2008/03.17.15.17} ibi.platformsoftware {rep dpi.inpe.br/banon/1998/08.02.08.56} state Original timestamp 2014-08-12T14:27:58Z url http://mtc-m16c.sid.inpe.br/displaydoccontent.cgi/8JMKD3MGP8W/352HLSH urlkey 1484427979-08293038408779149 the query was: list GetMetadataRepositories sid.inpe.br/bibdigital@80/2006/04.07.15.50.13 3 {ref Newspaper and repository, */2014/*} no no 1 metadatalastupdate repArray {} pages 3 {} while executing "error "CreateOutput: unexpected searchResult value: $searchResult\nthe query was: $query" " invoked from within "if [regexp {^\d+$} $n] { # n is integer incr numberOfEntries2 $n } else { # n is not integer error "CreateOutput: unexpected searchR..." invoked from within "if ![string equal {} $n] { if [regexp {^\d+$} $n] { # n is integer incr numberOfEntries2 $n } else { # n is not integer error "..." ("foreach" body line 5) invoked from within "foreach searchResult $searchResultList { # puts $searchResult set n 0 catch {foreach {1 2 3 4 5 n} $searchResult {break}} ;# searchResult may ..." invoked from within "if [regexp "^\{<(.*)>\}$" $searchResultList m errorMessage] { # the search expression has a syntax error if $header { if [info exists cgi(query)]..." (procedure "CreateOutput" line 218) invoked from within "CreateOutput $language $languageRep1 $languageRep2 $query {} Search {} $entryEvaluationFunctions2 [expr $maximumNumberOfEntries - 1] brief 1 {^$} 0 ..." invoked from within "if [info exists searchResultArray($itemName)] { # Load $dirName/searchResult/$fileName output set output $searchResultArray($itemName) # set log "..." (procedure "DisplayNumber" line 30) invoked from within "DisplayNumber $searchExpression2 $accent $case $subsetOfGroups $integerWithLink DisplayNumberOfEntries" (procedure "DisplayNumberOfEntries" line 14) invoked from within "DisplayNumberOfEntries $searchExpression no no 1 {} 0" (procedure "DisplayNumberOfEntries2" line 5) invoked from within "DisplayNumberOfEntries2 $searchExpression" ("foreach" body line 3) invoked from within "foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 ..." invoked from within "if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} [ set siteList { bibdigital.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 mtc-m16.sid.inpe.br:80 {mtc-m16b.sid.inpe.br 802} {mtc-m16c.sid.inpe.br 804} {mtc-m16d.sid.inpe.br 806} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {plutao.sid.inpe.br 800} marte.sid.inpe.br:80 {marte2.sid.inpe.br 802} {marte3.sid.inpe.br 804} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 # set currentYear 2014 # set currentYear 2015 set currentYear 2016 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} # set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set ingestYearList {2007 2008 2009 2010 2011 2012 2013 2014 2015} set ingestYearList {2008 2009 2010 2011 2012 2013 2014 2015 2016} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set publicationThreeYearList {2012 2013 2014} # set publicationThreeYearList {2013 2014 2015} set publicationThreeYearList {2014 2015 2016} # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 ######### # 1 ingestYear # 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {} ;# não comentar esta linha # lappend figureToBeUpdatedList {ingestYear} ;# 1 # lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 # lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 # lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2014 or year, 2015 or year, 2016}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2014 or year, 2015 or year, 2016}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationThreeYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationThreeYearList { set searchExpression "repository, */2014/* or repository, */2015/* or repository, */2016/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2014/* or repository, */2015/* or repository, */2016/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationThreeYearList $numberOfRecordsPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationThreeYearList] $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 $publicationThreeYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList $publicationThreeYearList set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $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 numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} 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 numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $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 numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 14/01/17 19:07 DisplayNumber: all the 18 searches have been made. 14/01/17 19:11 DisplayNumber: all the 18 searches have been made. 02/02/18 11:15 CreateTclPage: all the 18 searches have been made. 02/02/18 11:19 CreateTclPage: all the 18 searches have been made. 02/02/18 11:23 02/02/18 11:23 CreateTclPage (first substitution): expected integer but got "" (reading increment) invoked from within "incr numberOfFullTextPerPublicationYear $number" ("foreach" body line 9) invoked from within "foreach publicationYear $publicationYearList { set searchExpression "repository */$currentYear/* and year, $publicationYear and hostcollection, *"..." invoked from within "if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearLis..." 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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} [ set siteList { bibdigital.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 mtc-m16.sid.inpe.br:80 {mtc-m16b.sid.inpe.br 802} {mtc-m16c.sid.inpe.br 804} {mtc-m16d.sid.inpe.br 806} {plutao.sid.inpe.br 800} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {mtc-m21c.sid.inpe.br 806} marte.sid.inpe.br:80 {marte2.sid.inpe.br 802} {marte3.sid.inpe.br 804} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 # set currentYear 2014 # set currentYear 2015 # set currentYear 2016 set currentYear 2017 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} # set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set ingestYearList {2007 2008 2009 2010 2011 2012 2013 2014 2015} # set ingestYearList {2008 2009 2010 2011 2012 2013 2014 2015 2016} set ingestYearList {2009 2010 2011 2012 2013 2014 2015 2016 2017} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set publicationThreeYearList {2012 2013 2014} # set publicationThreeYearList {2013 2014 2015} # set publicationThreeYearList {2014 2015 2016} set publicationThreeYearList {2015 2016 2017} # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 RDP} 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 or secondarytype, RDP} set referenceTypeTable2(R) {referencetype, Report} set referenceTypeTable2(RJ) {referencetype, Newspaper} set referenceTypeTable2(TD) {referencetype, Thesis} set totalNumberOfSearches 0 ######### List of figures to be updated ######### # 1 ingestYear # 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {} ;# não comentar esta linha # lappend figureToBeUpdatedList {ingestYear} ;# 1 lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 # lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 # lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 # lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 # lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2015 or year, 2016 or year, 2017}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2015 or year, 2016 or year, 2017}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationThreeYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationThreeYearList { set searchExpression "repository, */2015/* or repository, */2016/* or repository, */2017/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2015/* or repository, */2016/* or repository, */2017/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationThreeYearList $numberOfRecordsPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationThreeYearList] $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 $publicationThreeYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList $publicationThreeYearList set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref book section and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $number set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RDP or secondaryt RPQ or type RPQ and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RDP or secondaryt RPQ or type RPQ and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $number set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RDP or secondaryt RPQ or type RPQ and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 02/02/18 11:26 CreateTclPage: all the 18 searches have been made. 02/02/18 11:28 CreateTclPage: all the 18 searches have been made. 02/02/18 11:29 CreateTclPage: all the 20 searches have been made. 02/02/18 11:31 CreateTclPage: all the 20 searches have been made. 02/02/18 11:32 CreateTclPage: all the 0 searches have been made. 02/02/18 11:33 CreateTclPage: all the 20 searches have been made. 02/02/18 11:35 CreateTclPage: all the 6 searches have been made. 02/02/18 11:37 CreateTclPage: all the 0 searches have been made. 02/02/18 11:39 CreateTclPage: all the 18 searches have been made. 02/02/18 11:41 CreateTclPage: all the 18 searches have been made. 02/02/18 11:42 CreateTclPage: all the 18 searches have been made. 02/02/18 11:47 02/02/18 11:47 CreateTclPage (first substitution): expected integer but got "" (reading increment) invoked from within "incr numberOfBookSectionPerPublicationYear $number" ("foreach" body line 6) invoked from within "foreach publicationYear $publicationYearList { # set searchExpression "ref book section and year, $publicationYear" set searchExpression "secon..." invoked from within "if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publica..." 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} \\hypersetup{pdfstartpage=1,pdfstartview=FitH,baseurl=http://$localSite/col/$thisRepository/doc/} \\begin{comment} [ set siteList { bibdigital.sid.inpe.br:80 {md-m09.sid.inpe.br 800} mtc-m12.sid.inpe.br:80 mtc-m16.sid.inpe.br:80 {mtc-m16b.sid.inpe.br 802} {mtc-m16c.sid.inpe.br 804} {mtc-m16d.sid.inpe.br 806} {plutao.sid.inpe.br 800} {mtc-m21.sid.inpe.br 802} {mtc-m21b.sid.inpe.br 804} {mtc-m21c.sid.inpe.br 806} marte.sid.inpe.br:80 {marte2.sid.inpe.br 802} {marte3.sid.inpe.br 804} } 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 currentYear 2011 # set currentYear 2012 # set currentYear 2013 # set currentYear 2014 # set currentYear 2015 # set currentYear 2016 set currentYear 2017 # set ingestYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set ingestYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set ingestYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set ingestYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set ingestYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} # set ingestYearList {2006 2007 2008 2009 2010 2011 2012 2013 2014} # set ingestYearList {2007 2008 2009 2010 2011 2012 2013 2014 2015} # set ingestYearList {2008 2009 2010 2011 2012 2013 2014 2015 2016} set ingestYearList {2009 2010 2011 2012 2013 2014 2015 2016 2017} # set publicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set publicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set publicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set publicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set publicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set publicationYearList $ingestYearList # set publicationThreeYearList {2012 2013 2014} # set publicationThreeYearList {2013 2014 2015} # set publicationThreeYearList {2014 2015 2016} set publicationThreeYearList {2015 2016 2017} # set vivaPublicationYearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set vivaPublicationYearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set vivaPublicationYearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set vivaPublicationYearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set vivaPublicationYearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set vivaPublicationYearList $ingestYearList 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 RDP} 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 or secondarytype, RDP} set referenceTypeTable2(R) {referencetype, Report} set referenceTypeTable2(RJ) {referencetype, Newspaper} set referenceTypeTable2(TD) {referencetype, Thesis} set totalNumberOfSearches 0 ######### List of figures to be updated ######### # 1 ingestYear # 2 publicationYear # 3 thesisPublicationYear # 4 thesisVivaPublicationYear # 5 referenceType # 6 currentYearReferenceType # 7 accessYear # 8 referenceTypeOfTheLastThreeYears # 9 publicationYearDuringTheLastThreeYears # 10 accessYearOfTheLastThreeYears # 11 journalPublicationYear # 12 conferencePublicationYear # 13 bookSectionPublicationYear # 14 reportPublicationYear # 15 ePrintIngestYear # 16 newspaperIngestYear if [info exists searchResultArray] {unset searchResultArray} ;# uncomment to ignore previous partial search results stored in searchResult.tcl in this repository (if any) set figureToBeUpdatedList {} ;# não comentar esta linha # lappend figureToBeUpdatedList {ingestYear} ;# 1 # lappend figureToBeUpdatedList {publicationYear} ;# 2 # lappend figureToBeUpdatedList {thesisPublicationYear} ;# 3 # lappend figureToBeUpdatedList {thesisVivaPublicationYear} ;# 4 # lappend figureToBeUpdatedList {referenceType} ;# 5 # lappend figureToBeUpdatedList {currentYearReferenceType} ;# 6 # lappend figureToBeUpdatedList {accessYear} ;# 7 # lappend figureToBeUpdatedList {referenceTypeOfTheLastThreeYears} ;# 8 # lappend figureToBeUpdatedList {publicationYearDuringTheLastThreeYears} ;# 9 # lappend figureToBeUpdatedList {accessYearOfTheLastThreeYears} ;# 10 # lappend figureToBeUpdatedList {journalPublicationYear} ;# 11 # lappend figureToBeUpdatedList {conferencePublicationYear} ;# 12 lappend figureToBeUpdatedList {bookSectionPublicationYear} ;# 13 # lappend figureToBeUpdatedList {reportPublicationYear} ;# 14 # lappend figureToBeUpdatedList {ePrintIngestYear} ;# 15 # lappend figureToBeUpdatedList {newspaperIngestYear} ;# 16 set hei 0.2 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 % a linha abaixo para atualização do relatório torna o relatório com acesso restrito ao login % \\href{http://$localSite/update/$thisRepository?languagebutton=pt-BR}{Atualize este relatório}\\\\ (última data de atualização do relatório: [clock format [clock seconds] -format "%Y-%m-%d à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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 2 if {[lsearch $figureToBeUpdatedList publicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 3 if {[lsearch $figureToBeUpdatedList thesisPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfThesisRecordsPerPublicationYear 0 set numberOfThesisRecordsPerPublicationYearList {} set numberOfThesisFullTextPerPublicationYear 0 set numberOfThesisFullTextPerPublicationYearList {} 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # 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 "date, $vivaPublicationYear and referencetype, Thesis and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfThesisFullTextPerVivaPublicationYearList $number incr numberOfThesisFullTextPerVivaPublicationYear $number } lappend dynamicList {thesisVivaPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 5 if {[lsearch $figureToBeUpdatedList referenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 6 if {[lsearch $figureToBeUpdatedList currentYearReferenceType] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerCurrentYearReferenceType 0 set numberOfFullTextPerCurrentYearReferenceType 0 set dataList {} 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] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerCurrentYearReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerCurrentYearReferenceTypeList2 [lindex $data 2] } lappend dynamicList {currentYearReferenceTypeBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 7 if {[lsearch $figureToBeUpdatedList accessYear] != -1} { # set patternList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set patternList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set patternList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set patternList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set patternList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set patternList $ingestYearList # set yearList {2001 2002 2003 2004 2005 2006 2007 2008 2009} # set yearList {2002 2003 2004 2005 2006 2007 2008 2009 2010} # set yearList {2003 2004 2005 2006 2007 2008 2009 2010 2011} # set yearList {2004 2005 2006 2007 2008 2009 2010 2011 2012} # set yearList {2005 2006 2007 2008 2009 2010 2011 2012 2013} set yearList $ingestYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 8 if {[lsearch $figureToBeUpdatedList referenceTypeOfTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $referenceTypeList] * 2] set numberOfRecordsPerReferenceType 0 set numberOfFullTextPerReferenceType 0 set dataList {} foreach referenceType $referenceTypeList { set searchExpression "$referenceTypeTable2($referenceType) and hostcollection, * and {year, 2015 or year, 2016 or year, 2017}" set number1 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfRecordsPerReferenceTypeList $number1 incr numberOfRecordsPerReferenceType $number1 set searchExpression "$referenceTypeTable2($referenceType) and size, * and hostcollection, * and {year, 2015 or year, 2016 or year, 2017}" set number2 [DisplayNumberOfEntries2 $searchExpression] # lappend numberOfFullTextPerReferenceTypeList $number2 incr numberOfFullTextPerReferenceType $number2 lappend dataList [list $referenceType $number1 $number2] } set dataList [lsort -index 1 -decreasing -integer $dataList] set referenceTypeList2 {} set numberOfRecordsPerReferenceTypeList2 {} set numberOfFullTextPerReferenceTypeList2 {} foreach data $dataList { lappend referenceTypeList2 [lindex $data 0] lappend numberOfRecordsPerReferenceTypeList2 [lindex $data 1] lappend numberOfFullTextPerReferenceTypeList2 [lindex $data 2] } lappend dynamicList {referenceTypeOfTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 # 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 9 if {[lsearch $figureToBeUpdatedList publicationYearDuringTheLastThreeYears] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationThreeYearList] * 2] set numberOfRecordsPerPublicationYear 0 set numberOfRecordsPerPublicationYearList {} set numberOfFullTextPerPublicationYear 0 set numberOfFullTextPerPublicationYearList {} foreach publicationYear $publicationThreeYearList { set searchExpression "repository, */2015/* or repository, */2016/* or repository, */2017/* and year, $publicationYear and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfRecordsPerPublicationYearList $number incr numberOfRecordsPerPublicationYear $number set searchExpression "repository, */2015/* or repository, */2016/* or repository, */2017/* and year, $publicationYear and size, * and hostcollection, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfFullTextPerPublicationYearList $number incr numberOfFullTextPerPublicationYear $number } lappend dynamicList {publicationYearDuringTheLastThreeYearsBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationThreeYearList $numberOfRecordsPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationThreeYearList] $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 $publicationThreeYearList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 10 if {[lsearch $figureToBeUpdatedList accessYearOfTheLastThreeYears] != -1} { set patternList $publicationThreeYearList set yearList $patternList 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 11 if {[lsearch $figureToBeUpdatedList journalPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfJournalPerPublicationYear 0 set numberOfJournalPerPublicationYearList {} set numberOfJournalFullTextPerPublicationYear 0 set numberOfJournalFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref journal and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalPerPublicationYearList $number incr numberOfJournalPerPublicationYear $number set searchExpression "ref journal and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfJournalFullTextPerPublicationYearList $number incr numberOfJournalFullTextPerPublicationYear $number } lappend dynamicList {journalPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfJournalPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfJournalPerPublicationYearList $numberOfJournalFullTextPerPublicationYearList ] lappend dynamicList {journalPublicationYearBar.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 \"journalPublicationYearBar.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: $numberOfJournalPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfJournalFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 12 if {[lsearch $figureToBeUpdatedList conferencePublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfConferencePerPublicationYear 0 set numberOfConferencePerPublicationYearList {} set numberOfConferenceFullTextPerPublicationYear 0 set numberOfConferenceFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "ref conference and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferencePerPublicationYearList $number incr numberOfConferencePerPublicationYear $number set searchExpression "ref conference and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfConferenceFullTextPerPublicationYearList $number incr numberOfConferenceFullTextPerPublicationYear $number } lappend dynamicList {conferencePublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfConferencePerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfConferencePerPublicationYearList $numberOfConferenceFullTextPerPublicationYearList ] lappend dynamicList {conferencePublicationYearBar.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 \"conferencePublicationYearBar.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: $numberOfConferencePerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfConferenceFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 13 if {[lsearch $figureToBeUpdatedList bookSectionPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfBookSectionPerPublicationYear 0 set numberOfBookSectionPerPublicationYearList {} set numberOfBookSectionFullTextPerPublicationYear 0 set numberOfBookSectionFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { # set searchExpression "ref book section and year, $publicationYear" set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RDP or secondaryt RPQ or type RPQ and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionPerPublicationYearList $number incr numberOfBookSectionPerPublicationYear $number set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RDP or secondaryt RPQ or type RPQ and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfBookSectionFullTextPerPublicationYearList $number incr numberOfBookSectionFullTextPerPublicationYear $number } lappend dynamicList {bookSectionPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfBookSectionPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfBookSectionPerPublicationYearList $numberOfBookSectionFullTextPerPublicationYearList ] lappend dynamicList {bookSectionPublicationYearBar.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 \"bookSectionPublicationYearBar.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: $numberOfBookSectionPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfBookSectionFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 14 if {[lsearch $figureToBeUpdatedList reportPublicationYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $publicationYearList] * 2] set numberOfReportPerPublicationYear 0 set numberOfReportPerPublicationYearList {} set numberOfReportFullTextPerPublicationYear 0 set numberOfReportFullTextPerPublicationYearList {} foreach publicationYear $publicationYearList { set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RDP or secondaryt RPQ or type RPQ and year, $publicationYear" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfReportPerPublicationYearList $number incr numberOfReportPerPublicationYear $number set searchExpression "secondaryt PUD or secondaryt NTC or secondaryt MAN or secondaryt RDP or secondaryt RPQ or type RPQ and year, $publicationYear and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfReportFullTextPerPublicationYearList $number incr numberOfReportFullTextPerPublicationYear $number } lappend dynamicList {reportPublicationYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 foreach {firstSequenceItem xmax ymax dyticks} [ComputeAxisParameters $dxticks $barWidth $publicationYearList $numberOfReportPerPublicationYearList] {break} set graphymove 0.3 set graphxsize 15.4 set graphysize 5.8 CreateDataSet [CreateSequence [llength $publicationYearList] $firstSequenceItem $dxticks] $numberOfReportPerPublicationYearList $numberOfReportFullTextPerPublicationYearList ] lappend dynamicList {reportPublicationYearBar.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 \"reportPublicationYearBar.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: $numberOfReportPerPublicationYear\" fill rgb255($barRed2,$barGreen2,$barBlue2) text \"Texto completo - Total: $numberOfReportFullTextPerPublicationYear\" end key " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 15 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 [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } # Figure 16 if {[lsearch $figureToBeUpdatedList newspaperIngestYear] != -1} { set totalNumberOfSearches [expr $totalNumberOfSearches + [llength $ingestYearList] * 2] set numberOfEPrintRecordsPerIngestYear 0 set numberOfEPrintFullTextPerIngestYear 0 foreach ingestYear $ingestYearList { set searchExpression "ref Newspaper and repository, */$ingestYear/*" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintRecordsPerIngestYearList $number incr numberOfEPrintRecordsPerIngestYear $number set searchExpression "ref Newspaper and repository, */$ingestYear/* and size, *" set number [DisplayNumberOfEntries2 $searchExpression] lappend numberOfEPrintFullTextPerIngestYearList $number incr numberOfEPrintFullTextPerIngestYear $number } lappend dynamicList {newspaperIngestYearBar.dat} lappend dynamicList [ set dxticks 1.08 ;# 9 bars set barWidth 0.40 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 {newspaperIngestYearBar.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 \"newspaperIngestYearBar.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 " lappend dynamicList ${figureToBeUpdatedList}FigureDate.tex lappend dynamicList [clock format [clock seconds] -format "%Y-%m-%d" ]% } set dynamicList ] } while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 02/02/18 15:00 CreateTclPage: all the 18 searches have been made. 02/02/18 15:01 CreateTclPage: all the 18 searches have been made. 02/02/18 15:05 CreateTclPage: all the 36 searches have been made. 02/02/18 15:07 CreateTclPage: all the 36 searches have been made. 02/02/18 15:09 CreateTclPage: all the 0 searches have been made. 02/02/18 15:09 CreateTclPage: all the 0 searches have been made. 02/02/18 15:11 CreateTclPage: all the 0 searches have been made. 02/02/18 15:14 CreateTclPage: all the 0 searches have been made. 02/02/18 15:18 CreateTclPage: all the 0 searches have been made. 02/02/18 15:22 CreateTclPage: all the 0 searches have been made. 02/02/18 15:27 CreateTclPage: all the 0 searches have been made. 02/02/18 15:28 CreateTclPage: all the 18 searches have been made. 02/02/18 15:29 CreateTclPage: all the 18 searches have been made. 06/02/18 16:08 CreateTclPage: all the 36 searches have been made. 07/02/18 09:36 CreateTclPage: all the 36 searches have been made. 07/02/18 09:44 CreateTclPage: all the 36 searches have been made. 07/02/18 09:47 CreateTclPage: all the 36 searches have been made. 07/02/18 09:49 CreateTclPage: all the 36 searches have been made. 07/02/18 09:50 CreateTclPage: all the 36 searches have been made. 07/02/18 09:53 CreateTclPage: all the 38 searches have been made. 07/02/18 09:59 CreateTclPage: all the 38 searches have been made. 07/02/18 10:00 CreateTclPage: all the 38 searches have been made. 07/02/18 10:02 CreateTclPage: all the 38 searches have been made. 07/02/18 10:04 CreateTclPage: all the 38 searches have been made. 07/02/18 10:05 CreateTclPage: all the 24 searches have been made. 07/02/18 10:09 CreateTclPage: all the 18 searches have been made. 12/02/18 15:31 CreateTclPage: all the 18 searches have been made. 12/02/18 15:46 CreateTclPage: all the 0 searches have been made. 12/02/18 15:47 CreateTclPage: all the 0 searches have been made. 28/11/18 16:38 CreateTclPage: all the 0 searches have been made. 28/11/18 16:43 CreateTclPage: all the 0 searches have been made. 28/11/18 16:44 CreateTclPage: all the 0 searches have been made. 28/11/18 16:52 CreateTclPage: all the 0 searches have been made. 28/11/18 16:54 CreateTclPage: all the 0 searches have been made. 22/01/19 13:44 CreateTclPage: all the 18 searches have been made. 22/01/19 13:46 CreateTclPage: all the 18 searches have been made. 22/01/19 13:47 CreateTclPage: all the 18 searches have been made. 22/01/19 13:47 CreateTclPage: all the 18 searches have been made. 22/01/19 13:48 CreateTclPage: all the 20 searches have been made. 22/01/19 13:49 CreateTclPage: all the 20 searches have been made. 22/01/19 13:50 CreateTclPage: all the 0 searches have been made. 22/01/19 13:50 CreateTclPage: all the 20 searches have been made. 22/01/19 13:51 CreateTclPage: all the 6 searches have been made. 22/01/19 13:52 CreateTclPage: all the 18 searches have been made. 22/01/19 13:53 CreateTclPage: all the 18 searches have been made. 22/01/19 13:54 CreateTclPage: all the 18 searches have been made. 22/01/19 13:54 CreateTclPage: all the 18 searches have been made. 22/01/19 13:55 CreateTclPage: all the 18 searches have been made. 22/01/19 13:56 CreateTclPage: all the 18 searches have been made. 22/01/19 13:56 CreateTclPage: all the 0 searches have been made. 22/01/19 14:02 CreateTclPage: all the 0 searches have been made. 22/01/19 14:03 CreateTclPage: all the 0 searches have been made. 22/01/19 14:05 CreateTclPage: all the 0 searches have been made. 22/01/19 14:06 CreateTclPage: all the 0 searches have been made. 22/01/19 14:07 CreateTclPage: all the 0 searches have been made. 22/01/19 14:07 CreateTclPage: all the 0 searches have been made. 22/01/19 14:08 CreateTclPage: all the 0 searches have been made. 22/01/19 14:09 CreateTclPage: all the 0 searches have been made. 22/01/19 14:11 CreateTclPage: all the 0 searches have been made. 22/01/19 14:12 CreateTclPage: all the 0 searches have been made. 22/01/19 14:12 CreateTclPage: all the 0 searches have been made. 22/01/19 14:13 CreateTclPage: all the 0 searches have been made. 22/01/19 14:13 CreateTclPage: all the 0 searches have been made. 22/01/19 14:15 CreateTclPage: all the 0 searches have been made. 22/01/19 14:15 CreateTclPage: all the 0 searches have been made. 22/01/19 14:16 CreateTclPage: all the 0 searches have been made. 22/01/19 14:17 CreateTclPage: all the 0 searches have been made. 22/01/19 14:18 CreateTclPage: all the 0 searches have been made. 22/01/19 14:19 CreateTclPage: all the 0 searches have been made. 22/01/19 14:20 CreateTclPage: all the 0 searches have been made. 22/01/19 14:35 CreateTclPage: all the 0 searches have been made. 08/09/19 15:17 CreateTclPage: all the 0 searches have been made. 09/09/19 19:48 CreateTclPage: all the 0 searches have been made. 10/01/20 14:38 CreateTclPage: all the 18 searches have been made. 10/01/20 14:38 CreateTclPage: all the 18 searches have been made. 10/01/20 14:39 CreateTclPage: all the 18 searches have been made. 10/01/20 14:40 CreateTclPage: all the 18 searches have been made. 10/01/20 14:47 CreateTclPage: all the 20 searches have been made. 10/01/20 14:47 CreateTclPage: all the 20 searches have been made. 10/01/20 14:48 CreateTclPage: all the 0 searches have been made. 10/01/20 14:49 CreateTclPage: all the 0 searches have been made. 10/01/20 14:50 CreateTclPage: all the 6 searches have been made. 10/01/20 14:57 CreateTclPage: all the 26 searches have been made. 10/01/20 14:59 CreateTclPage: all the 36 searches have been made. 10/01/20 15:00 CreateTclPage: all the 36 searches have been made. 10/01/20 15:02 CreateTclPage: all the 36 searches have been made. 10/01/20 15:11 CreateTclPage: all the 36 searches have been made. 10/01/20 15:45 CreateTclPage: all the 42 searches have been made. 10/01/20 15:49 CreateTclPage: all the 0 searches have been made. 10/01/20 16:05 CreateTclPage: all the 0 searches have been made. 10/01/20 16:08 CreateTclPage: all the 0 searches have been made. 10/01/20 16:11 CreateTclPage: all the 0 searches have been made. 10/01/20 16:25 CreateTclPage: all the 20 searches have been made. 10/01/20 16:26 CreateTclPage: all the 0 searches have been made. 10/01/20 16:26 CreateTclPage: all the 18 searches have been made. 10/01/20 16:27 CreateTclPage: all the 18 searches have been made. 10/01/20 16:27 CreateTclPage: all the 18 searches have been made. 10/01/20 16:28 CreateTclPage: all the 18 searches have been made. 10/01/20 16:28 CreateTclPage: all the 18 searches have been made. 10/01/20 16:29 CreateTclPage: all the 18 searches have been made. 10/01/20 16:29 CreateTclPage: all the 0 searches have been made. 10/01/20 16:31 CreateTclPage: all the 0 searches have been made. 10/01/20 16:35 CreateTclPage: all the 0 searches have been made. 10/01/20 16:36 CreateTclPage: all the 0 searches have been made. 20/01/21 14:21 CreateTclPage: all the 0 searches have been made. 20/01/21 14:24 CreateTclPage: all the 18 searches have been made. 20/01/21 14:26 CreateTclPage: all the 18 searches have been made. 20/01/21 21:16 CreateTclPage: all the 18 searches have been made. 20/01/21 21:18 CreateTclPage: all the 18 searches have been made. 20/01/21 21:19 CreateTclPage: all the 20 searches have been made. 20/01/21 21:21 CreateTclPage: all the 20 searches have been made. 20/01/21 21:23 CreateTclPage: all the 0 searches have been made. 20/01/21 21:24 CreateTclPage: all the 20 searches have been made. 20/01/21 21:25 CreateTclPage: all the 6 searches have been made. 20/01/21 21:27 CreateTclPage: all the 0 searches have been made. 20/01/21 21:28 CreateTclPage: all the 18 searches have been made. 20/01/21 21:29 CreateTclPage: all the 18 searches have been made. 20/01/21 21:31 CreateTclPage: all the 18 searches have been made. 20/01/21 21:33 CreateTclPage: all the 18 searches have been made. 20/01/21 21:35 CreateTclPage: all the 18 searches have been made. 20/01/21 21:36 CreateTclPage: all the 18 searches have been made. 20/01/21 21:37 CreateTclPage: all the 0 searches have been made. 20/01/21 21:46 CreateTclPage: all the 0 searches have been made. 20/01/21 21:48 CreateTclPage: all the 0 searches have been made. 22/01/21 11:42 CreateTclPage: all the 0 searches have been made. 22/01/21 11:43 CreateTclPage: all the 0 searches have been made. 22/01/21 22:42 CreateTclPage: all the 0 searches have been made. 03/01/24 21:15 03/01/24 21:15 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:15 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:16 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:17 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:20 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:21 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword" 03/01/24 21:22 can't read "filePath": no such variable while executing "CreateTclPage $thisRepository $fileContent $language $languageRep2 $path $targetFileAbsolutePath $filePath $writeUserCodedPassword"