# Creating year=2008_issn_secondarymark.tcl from tabela_issn_qualis.txt

source utilities1.tcl	;# Store
source cgi/mirrorfind-.tcl	;# Load
cd ../../../../../iconet.com.br/banon/2008/11.08.15.55/doc

Load tabela_issn_qualis.txt fileContent
foreach line [split $fileContent \n] {
	set input [lindex $line 0]
	set output [lindex $line 1]
	lappend attributeTable($input) $output
}
StoreArray attributeTable year=2008_issn_secondarymark.tcl w list

llength [array names attributeTable]
# => 11663

# Creating year=2008_journal_issn.tcl from tabela_journal_issn.txt

source utilities1.tcl	;# Store
source cgi/mirrorfind-.tcl	;# Load
cd ../../../../../iconet.com.br/banon/2008/11.08.15.55/doc

source tabela_journal_issn.txt	;# array set year=2008_journal_issn

foreach {input output} [array get year=2008_journal_issn] {
	set $input $output
}
StoreArray attributeTable year=2008_journal_issn.tcl w list

llength [array names attributeTable]
# => 11664

set issnList {}
foreach journal [array names attributeTable] {
	if {[lsearch $issnList $attributeTable($journal)] != -1} {
		puts $journal
		break
	}
	lappend issnList $attributeTable($journal)
}
# => year=2008,journal,issn,Graellsia

# Creating year=2008_journal_secondarymark.tcl from year=2008_journal_issn.tcl and year=2008_issn_secondarymark.tcl

source utilities1.tcl	;# Store
source cgi/mirrorfind-.tcl	;# Load
cd ../../../../../iconet.com.br/banon/2008/11.08.15.55/doc

source year=2008_journal_issn.tcl
source year=2008_issn_secondarymark.tcl

# year=2008,journal,issn,Journal_of_Lightwave_Technology 0733-8724 
# 2008,issn,secondarymark,0733-8724 {A_ASTRONOMIA_/_FÍSICA A_ENGENHARIAS_III A_ENGENHARIAS_IV} year=2008,issn,secondarymark,0104-3803 {B_EDUCAÇÃO C_INTERDISCIPLINAR}

# year=2008,journal,secondarymark,Journal_of_Lightwave_Technology {A_ASTRONOMIA_/_FÍSICA A_ENGENHARIAS_III A_ENGENHARIAS_IV} year=2008,issn,secondarymark,0104-3803 {B_EDUCAÇÃO C_INTERDISCIPLINAR}

foreach item [array names attributeTable year=2008,journal,issn,*] {
	regsub {year=2008,journal,issn,} $item {} item2
	set issn $attributeTable($item)
	set attributeTable(year=2008,journal,secondarymark,$item2) $attributeTable(year=2008,issn,secondarymark,$issn)
}
foreach item [array names attributeTable year=2008,journal,issn,*] {
	unset attributeTable($item)
}
foreach item [array names attributeTable year=2008,issn,secondarymark,*] {
	unset attributeTable($item)
}
StoreArray attributeTable year=2008_journal_secondarymark.tcl w list



# Creating year=2008_journal_secondarytype.tcl from tabela_journal_secondarytype.txt

source utilities1.tcl	;# Store
source cgi/mirrorfind-.tcl	;# Load
cd ../../../../../iconet.com.br/banon/2008/11.08.15.55/doc

source tabela_journal_secondarytype.txt	;# array set year=2008_journal_issn

foreach {input output} [array get year=2008_journal_secondarytype] {
	regsub {_} $output { } output2
	set $input $output2
}
StoreArray attributeTable year=2008_journal_secondarytype.tcl w list

llength [array names attributeTable]
# => 11664

# Creating year=2008_journal_dissemination.tcl from lists of journal captured using search like:
# http://bibdigital.sid.inpe.br/col/dpi.inpe.br/banon-pc2@1905/2006/02.16.12.09/doc/script.cgi?query=dis+COMPENDEX&fieldlist=journal

source utilities1.tcl	;# Store
source cgi/mirrorfind-.tcl	;# Load
cd ../../../../../iconet.com.br/banon/2008/11.08.15.55/doc

Load year=2008_websci_journal_list.txt fileContent
foreach journal [split $fileContent \n] {
	regsub -all { } $journal {_} journal2
	lappend attributeTable(year=2008,journal,dissemination,$journal2) WEBSCI 
}

Load year=2008_portalcapes_journal_list.txt fileContent
foreach journal [split $fileContent \n] {
	regsub -all { } $journal {_} journal2
	lappend attributeTable(year=2008,journal,dissemination,$journal2) PORTALCAPES 
}

Load year=2008_scielo_journal_list.txt fileContent
foreach journal [split $fileContent \n] {
	regsub -all { } $journal {_} journal2
	lappend attributeTable(year=2008,journal,dissemination,$journal2) SCIELO 
}

Load year=2008_agu_journal_list.txt fileContent
foreach journal [split $fileContent \n] {
	regsub -all { } $journal {_} journal2
	lappend attributeTable(year=2008,journal,dissemination,$journal2) AGU 
}

Load year=2008_compendex_journal_list.txt fileContent
foreach journal [split $fileContent \n] {
	regsub -all { } $journal {_} journal2
	lappend attributeTable(year=2008,journal,dissemination,$journal2) COMPENDEX 
}

StoreArray attributeTable year=2008_journal_dissemination.tcl w list