Marc :: ErrorChecks. Marc :: ErrorChecks é um módulo Perl com uma coleção de verificações de erros Marc 21 / AACR2.
Baixe Agora

Marc :: ErrorChecks. Classificação e resumo

Marc :: ErrorChecks. Tag

verificações de erro Marc 21 erros verificar verificação de erro AACR2 MARC 21 AACR2.

Marc :: ErrorChecks. Descrição

Marc :: ErrorChecks é um módulo Perl com uma coleção de verificações de erros Marc 21 / AACR2. Marc :: ErrorChecks é um módulo Perl com uma coleção de verificações de erros Marc 21 / AACR2.Module para armazenar sub-rotinas de verificação de erro Marc, com base em Marc 21, AACR2 e LCRIS. Estes são usados para encontrar erros não facilmente verificados pelos módulos Marc :: Lint e Marc :: Lintaditions Módulos, como aqueles que cruzam limites de campo.Acream-se geralmente deve ser passado um objeto Marc :: São gerados como segue: push @warningstoreeturn, junte-se '', ($ field-> tag (), ": t"); Retorno @WarningStoreturn; Sinopse use Marc :: Lote; Use Marc :: ErrorChecks; #See também Marc :: Lintaditions para mais cheques #Use Marc :: Lintaditions; # Nomes de arquivoschange conforme desejado meu $ Inputfile = 'Marcfile.mrc'; Meu $ ErrorFileName = 'erros.txt'; Meu erro $Count = 0; aberto (fora, "> $ errorFileName"); #initialize $ Infile como novo Marc :: Batch Object Meu $ Batch = Marc :: Batch-> Novo ('Usmarc', "$ Inputfile"); Meu erro $Count = 0; #loop através do arquivo em lote de registros enquanto (my $ record = $ batch-> próximo ()) {#St $ record-> campo ('001') #Adicione isso se alguns registros no arquivo não conter um campo '001' meu campo $ ControlNo = $ Gravate-> ('001') -> as_string (); #call marc :: errorchecks sub-rotinas meu @errrorstoreeturn = (); # Verifique tudo empurrado @errrorstoreeturn (@ {marc :: errorchecks :: Check_all_subs ($ record)}); # ou apenas alguns @errrorstoreturn (@ {marc :: errorchecks :: check_010 ($ record)}); empurrar @ErrorStoreturn, (@ {marc :: errorchecks :: check_bk008_vs_bibrefandindex ($ record)}); # Resultados do relatório IF (@ErrorStoreturn) {################################################# Imprimir junção ("T", "$ Controlno", @ErrorStoreturn, "TN"); $ errorCount ++; }} #whilerequirements: · PerlWhat novo nesta versão: · Atualizado Check_BK008_VS_300 ($ record) para procurar extra p. ou v. Após o qualificador entre parênteses. · Atualizado Check_BK008_VS_300 ($ registro) para procurar por um período ausente após 'COL' no subcampo 'B'. · Substituído $ Field-Tag () com $ tag em relatório de mensagem de erro em Check_nonpunctendingfields ($ record) . · Desligado Check Limite de 50 campos Check_fieldLength ($ record). · PARSE008VS300B atualizado ($ illcodes, $ field300subb) para procurar / map / em vez de apenas 'mapa' quando 008 é codificado 'B'. · Check_bk008_vs_bibrefandindex ($ record) para procurar espaçamento em cada lado da paginação entre parênteses. · Atualizado Check_Internal_spaces ($ registro) para relatar 10 caracteres em cada lado de cada conjunto de múltiplos espaços internos. · Líder de nível 9o valores tão aceitáveis. O nível-3 ainda é comentado, mas poderia ser descomente para bibliotecas que permitem. · Inclui a versão 1.14 de Marc :: Lint :: Codedata.

Marc :: ErrorChecks. Software Relacionado