Marc :: ErrorChecks. marc :: errorChecks ist ein Perl-Modul mit einer Sammlung von MARC 21 / AACR2-Fehlerprüfungen.
Jetzt downloaden

Marc :: ErrorChecks. Ranking & Zusammenfassung

Marc :: ErrorChecks. Stichworte

Fehlerprüfungen Marc 21 Fehlerprüfung AACR2-Fehlerprüfung. Marc 21. AACR2.

Marc :: ErrorChecks. Beschreibung

Marc :: ErrorChecks ist ein Perl-Modul mit einer Sammlung von MARC 21 / AACR2-Fehlerprüfungen. Marc :: ErrorChecks ist ein Perl-Modul mit einer Sammlung von MARC 21 / AACR2-Fehlerprüfungen.Module zum Speichern von Marc-Fehlerüberprüfungssubroutinen, basierend auf dem Marc 21, AACR2 und LCRIS. Diese werden verwendet, um Fehler zu finden, die nicht leicht von den MARC :: FLINT- und MARC :: LintAdDitions-Modulen suchen, z. B. diejenigen, die sich an Feldgrenzen angibt folgt: Push @WarningStoreturn, Join '', ($ feld-> tag (), ": T"); Rendite @WarningStoreturn; Synopsis verwenden Marc :: Charge; Verwenden Sie Marc :: ErrorChecks; #SEE Auch Marc :: LintAdDitions für weitere Schecks #SUE MARC :: LintAdditions; #CHANGE-Dateinamen nach Wunsch My $ InputFile = 'marcfile.mrc'; mein $ errorFileName = 'frors.txt'; meine $ errorcount = 0; offen (aus, "> $ errorFileName"); #Imitialize $ Infil als neues Marc :: Batch-Objekt My $ Batch = Marc :: Batch-> NEU ('USMARC', "$ INPUTFILE"); meine $ errorcount = 0; #loop durch Batchdatei von Datensätzen während (My $ Record = $ Batch-> Next ()) {#IF $ Record-> Feld ('001') #add Dies, wenn einige Datensätze in der Datei kein '001'-Feld enthalten Mein $ ControlNo = $ Record-> Feld ('001') -> AS_String (); #Call Marc :: ErrorChecks Subroutinen My @Erorstoreturn = (); # Überprüfen Sie alles Push @Errorstoreturn, (@ {marc :: errorchecks :: check_all_subs ($ scard)}); # oder nur ein paar Push @Errorstoreturn, (@ {marc :: errorchecks :: check_010 ($ scard)}); Push @Errorstoreturn, (@ {marc :: errorChecks :: check_bk008_vs_biberfandindex ($ scard)}); # Ergebnisse berichten, wenn (@errorstoreturn) {############################################## drucken Join ("t", "$ controlno", @errorstoreturn, "tn"); $ errorCount ++; }} #whilereRequirements: · PerlWas neu in dieser Version: · Aktualisiert check_bk008_vs_300 ($ scard), um nach extra p zu suchen. oder v. Nach dem Parenthetical Qualifier. · Aktualisierter Check_BK008_VS_300 ($ Record), um nach 'COL' in Subfield 'B' nach 'COL' im Subfield 'B' sorgt. · Ersetzt $ field-tag () mit $-Tag in Fehlermeldungsberichterstattung in Check_nonPunctendingFields ($ Record) . · Ausgeschaltetes 50-Feld-Limit-Check in Check_FieldLength ($ Record). · Aktualisierter Parseery8VS300B ($ Illcodes, $ field300subb), um nach / map / als nur "Karte" zu suchen, wenn 008 'B' codiert ist. · Aktualisierter Check_BK008_VS_BIBFANDINDINDEX ($ RECORD), um auf jeder Seite der parenthetischen Paginierung nach Abstand zu suchen. · Aktualisierte Check_internal_Spaces ($ -Datensatz), um 10 Zeichen auf beiden Seiten jedes Satzes von mehreren internen Räumen zu melden. · Unkommentierter Level-5- und Level-7-Anführer Werte als akzeptabel. Level-3 ist immer noch ausgerichtet, könnte aber für Bibliotheken unvollständig sein, die es erlauben. · Enthält Version 1.14 von Marc :: Fussel :: Codedata.

Marc :: ErrorChecks. Zugehörige Software