Módulo:MARCimporter - Histórico de revisão

Jaider.ferreira: fix formOfItem

2024-11-24T17:14:24Z

fix formOfItem

← Edição anterior		Edição das 14h14min de 24 de novembro de 2024
Linha 320:		Linha 320:
	if formOfItem == ' '		if formOfItem == ' '
	then		then
	formOfItem = 'r'		formOfItem = ''
	end		end
	local natureOfContents = controlField008:sub(25, 25)		local natureOfContents = controlField008:sub(25, 25)

Jaider.ferreira em 17h06min de 24 de novembro de 2024

2024-11-24T17:06:44Z

← Edição anterior		Edição das 14h06min de 24 de novembro de 2024
Linha 338:		Linha 338:
	end		end
	local festschrift = controlField008:sub(31, 31)		local festschrift = controlField008:sub(31, 31)
	if festschrift == '0'		if festschrift == ' '
	then		then
	festschrift = ''		festschrift = ''

Jaider.ferreira: fix linter warnings and add CA-BN case

2024-11-24T13:52:50Z

fix linter warnings and add CA-BN case

← Edição anterior		Edição das 10h52min de 24 de novembro de 2024
Linha 11:		Linha 11:
	local leader = ''		local leader = ''
	local baseAddressOfData = 0		local baseAddressOfData = 0
	local directory = 0		local directory = ''
	local dataValuesGroup = ''		local dataValuesGroup = ''
	-- inicializa as variáveis auxiliares		-- inicializa as variáveis auxiliares
	local directoryEntry = 0		local directoryEntry = ''
	local entryTag = 0		local entryTag = ''
	local entryDataLength = 0		local entryDataLength = ''
	local entryInitPosition = 0		local entryInitPosition = ''
	local dataField = {} -- Cada tabela que contém os dados dos campos. Formato:		local dataField = {} -- Cada tabela que contém os dados dos campos. Formato:
	-- { tag='', length='', initPosition='', data='', ind1='', ind2='' }		-- { tag='', length='', initPosition='', data='', ind1='', ind2='' }
Linha 69:		Linha 69:
	--> 00277		--> 00277
	-- obtém o diretório (-1 para não pegar RS)		-- obtém o diretório (-1 para não pegar RS)
	directory = record:sub(25, baseAddressOfData - 1) or 0		directory = record:sub(25, baseAddressOfData - 1) or ''
	--> 0010010000000050017000100080041000270200027000680400017000950...		--> 0010010000000050017000100080041000270200027000680400017000950...
	-- obtém os dados dos campos em um único grupo		-- obtém os dados dos campos em um único grupo
Linha 169:		Linha 169:
	end		end
	-- == Handler unificado == --		-- == Handler unificado == --
	if leader:sub(7, 7) == 'z' and controlField003:lower():match('br')		if leader:sub(7, 7) == 'z' and (controlField003:lower():match('br') or controlField003:lower():match('br-rjbn'))
	then		then
	-- cria uma tabela com os dados...		-- cria uma tabela com os dados...

Jaider.ferreira: fix import of headingUseSeriesAddedEntry

2024-11-24T13:45:48Z

fix import of headingUseSeriesAddedEntry

Jaider.ferreira: formatter

2024-11-07T18:50:30Z

formatter

Mostrar alterações

Jaider.ferreira: teste

2024-11-07T18:49:15Z

teste

Mostrar alterações

Jaider.ferreira: formatter

2024-11-07T18:48:03Z

formatter

Mostrar alterações

Jaider.ferreira: teste

2024-11-07T18:35:51Z

teste

← Edição anterior		Edição das 15h35min de 7 de novembro de 2024
Linha 216:		Linha 216:
	end		end
	-- se o registro for da LC		-- se o registro for da LC
	if leader:sub( 7, 7 ) == 'z' and tag040:match( 'a DLC' )		if leader:sub( 7, 7 ) == 'z' and tag040:match( 'DLC' )
	then		then
	-- cria uma tabela com os dados...		-- cria uma tabela com os dados...

Jaider.ferreira: teste

2024-11-07T18:32:25Z

teste

← Edição anterior		Edição das 15h32min de 7 de novembro de 2024
Linha 215:		Linha 215:
	end		end
	end		end
			-- se o registro for da LC
⚫	-- se não há campo 040, então será criado agora
		⚫	if leader:sub( 7, 7 ) == 'z' and tag040:match( 'a DLC' )
⚫	if tag040 == ''
	then		then
	-- cria uma tabela com os dados...		-- cria uma tabela com os dados...
	dataField = {		dataField = {
	tag = '~~040~~',		tag = '670',
	data = '## $a BR-~~FlWIK~~ $b ~~por~~ $c ~~BR-FlWIK~~'		data = '## $a CA-LC ' .. os.date( '%Y' )
	}		}
	-- e insere a tabela dataField na tabela dataFields		-- e insere a tabela dataField na tabela dataFields
	table.insert( dataFields, dataField )		table.insert( dataFields, dataField )
	end		end
		⚫	-- se não há campo 040, então será criado agora
⚫	if leader:sub( 7, 7 ) == 'z' and tag040:match( 'a DLC' )
		⚫	if tag040 == ''
	then		then
	-- cria uma tabela com os dados...		-- cria uma tabela com os dados...
	dataField = {		dataField = {
	tag = '~~670~~',		tag = '040',
	data = '## $a CA-LC ' .. ~~os.date(~~ '~~%Y' )~~		data = '## $a BR-FlWIK $b por $c BR-FlWIK'
	}		}
	-- e insere a tabela dataField na tabela dataFields		-- e insere a tabela dataField na tabela dataFields

Jaider.ferreira: implementando 035

2024-11-07T18:23:09Z

implementando 035

← Edição anterior		Edição das 15h23min de 7 de novembro de 2024
Linha 140:		Linha 140:
	-- obtém os campos de controle		-- obtém os campos de controle
	controlField001 = record:match( '\n001%s(.-)\n' ) or ''		controlField001 = record:match( '\n001%s(.-)\n' ) or ''
	controlField001 = mw.text.trim( controlField001 )
	controlField003 = record:match( '\n003%s(.-)\n' ) or ''		controlField003 = record:match( '\n003%s(.-)\n' ) or ''
			controlField003 = mw.text.trim( controlField003 )
	controlField006 = record:match( '\n006%s([a-z].-)\n' ) or ''		controlField006 = record:match( '\n006%s([a-z].-)\n' ) or ''
	controlField006 = controlField006:gsub( '[\|#$]', ' ' )		controlField006 = controlField006:gsub( '[\|#$]', ' ' )

← Edição anterior		Edição das 10h45min de 24 de novembro de 2024
Linha 18:		Linha 18:
	local entryDataLength = 0		local entryDataLength = 0
	local entryInitPosition = 0		local entryInitPosition = 0
	local dataField = {} -- Cada tabela que contém os dados dos campos. Formato:		local dataField = {} -- Cada tabela que contém os dados dos campos. Formato:
	-- { tag='', length='', initPosition='', data='', ind1='', ind2='' }		-- { tag='', length='', initPosition='', data='', ind1='', ind2='' }
	local dataFields = {} -- Tabela que contém cada tabela dataField. Formato:		local dataFields = {} -- Tabela que contém cada tabela dataField. Formato:
Linha 36:		Linha 36:
	local function normalizeData(data)		local function normalizeData(data)
	data = data		data = data
	:gsub('\|(.)', ' $%1 ') -- substitui "\|a" por " $a "		:gsub('\|(.)', ' $%1 ') -- substitui "\|a" por " $a "
	:gsub('(%d)p%.', '%1 p.') -- // "1p." por "1 p."		:gsub('(%d)p%.', '%1 p.') -- // "1p." por "1 p."
	:gsub('(%d)cm', '%1 cm') -- // "1cm" por "1 cm"		:gsub('(%d)cm', '%1 cm') -- // "1cm" por "1 cm"
	:gsub('(%d)ed%.', '%1 ed.') -- // "1ed." por "1 ed."		:gsub('(%d)ed%.', '%1 ed.') -- // "1ed." por "1 ed."
	:gsub('%.%s?%-$', '.') -- // ". -" por "."		:gsub('%.%s?%-$', '.') -- // ". -" por "."
	:gsub('(%$.)(%$w.)', '%2 %1') -- move o subcampo $w para a frente		:gsub('(%$.)(%$w.)', '%2 %1') -- move o subcampo $w para a frente
	:gsub('(%s%$9%s.*)', '') -- remove o subcampo $9		:gsub('(%s%$9%s.*)', '') -- remove o subcampo $9
	:gsub('(%$z.)(%$u.)', '%2 %1') -- move o subcampo $u para a frente		:gsub('(%$z.)(%$u.)', '%2 %1') -- move o subcampo $u para a frente
	:gsub('[\n\r]', '') -- remove line feed e carriage return		:gsub('[\n\r]', '') -- remove line feed e carriage return
	return data		return data
	end		end
Linha 120:		Linha 120:
	-- == MARC tags handler == --		-- == MARC tags handler == --
	record = record		record = record
	:gsub(' ', ' ') -- LC bib handling (\t+\s)		:gsub(' ', ' ') -- LC bib handling (\t+\s)
	:gsub(' ', ' ') -- LC aut handling (\t)		:gsub(' ', ' ') -- LC aut handling (\t)
	:gsub(' ', ' ') -- Pergamum handling (control fields) (non-breaking space)		:gsub(' ', ' ') -- Pergamum handling (control fields) (non-breaking space)
	:gsub(' ', ' ') -- Pergamum handling (data fields) (non-breaking space)		:gsub(' ', ' ') -- Pergamum handling (data fields) (non-breaking space)
	record = record .. '\n'		record = record .. '\n'
	if record:match('^FMT') or record:match('^LDR') -- Aleph handling		if record:match('^FMT') or record:match('^LDR') -- Aleph handling
	then		then
	record = record:gsub('\t', ' ') -- 1		record = record:gsub('\t', ' ') -- 1
	:gsub('^(FMT%s[A-Z].-\n)', '') -- 2		:gsub('^(FMT%s[A-Z].-\n)', '') -- 2
	:gsub('LDR%s([0%s][0%s][0%s][0%s][0%s].-\n)', '000 %1') -- 3		:gsub('LDR%s([0%s][0%s][0%s][0%s][0%s].-\n)', '000 %1') -- 3
	:gsub('\n(%d%d%d)%s(%$.%s)', '\n%1 %2') -- 4		:gsub('\n(%d%d%d)%s(%$.%s)', '\n%1 %2') -- 4
	:gsub('\n(%d%d%d)(%d)', '\n%1 %2') -- 5		:gsub('\n(%d%d%d)(%d)', '\n%1 %2') -- 5
	:gsub('\n(%d%d%d%s%d%s)', '\n%1 ') -- 6 (manter essa ordem)		:gsub('\n(%d%d%d%s%d%s)', '\n%1 ') -- 6 (manter essa ordem)
	end		end
	-- configuração das variáveis básicas do registro (via MARC tags):		-- configuração das variáveis básicas do registro (via MARC tags):
Linha 473:		Linha 473:
	end		end
	local headingUseSeriesAddedEntry = controlField008:sub(17, 17)		local headingUseSeriesAddedEntry = controlField008:sub(17, 17)
			if headingUseSeriesAddedEntry == ' '
			then
			headingUseSeriesAddedEntry = 'b'
			end
	local typeOfSubjectSubdivision = controlField008:sub(18, 18)		local typeOfSubjectSubdivision = controlField008:sub(18, 18)
	if typeOfSubjectSubdivision == ' '		if typeOfSubjectSubdivision == ' '