MARC::Errorchecks 1.12

MARC::Errorchecks is a Perl module with a collection of MARC 21/AACR2 error checks.

Module for storing MARC error checking subroutines, based on MARC 21, AACR2, and LCRIs. These are used to find errors not easily checked by the MARC::Lint and MARC::Lintadditions modules, such as those that cross field boundaries.

Each subroutine should generally be passed a MARC::Record object.
Returned warnings/errors are generated as follows: push @warningstoreturn, join , ($field->tag(), ": [ERROR TEXT]t"); return @warningstoreturn;

SYNOPSIS

use MARC::Batch;
use MARC::Errorchecks;

#See also MARC::Lintadditions for more checks
#use MARC::Lintadditions;

#change file names as desired
my $inputfile = marcfile.mrc;
my $errorfilename = errors.txt;
my $errorcount = 0;
open (OUT, ">$errorfilename");
#initialize $infile as new MARC::Batch object
my $batch = MARC::Batch->new(USMARC, "$inputfile");
my $errorcount = 0;
#loop through batch file of records
while (my $record = $batch->next()) {
#if $record->field(001) #add this if some records in file do not contain an 001 field
my $controlno = $record->field(001)->as_string(); #call MARC::Errorchecks subroutines

my @errorstoreturn = ();

# check everything

push @errorstoreturn, (@{MARC::Errorchecks::check_all_subs($record)});

# or only a few
push @errorstoreturn, (@{MARC::Errorchecks::check_010($record)});
push @errorstoreturn, (@{MARC::Errorchecks::check_bk008_vs_bibrefandindex($record)});

# report results
if (@errorstoreturn){
#########################################
print OUT join( "t", "$controlno", @errorstoreturn, "tn");

$errorcount++;
}

} #while