Curiouser and curiouser...
Using just the following code:
#!/usr/bin/perl
use MARC::File::USMARC;
my $cnt = 0;
my $file = MARC::File::USMARC->in( $ARGV[0] );
while ( my $oldmarc = $file->next() ) {
last if $cnt > 5; # Just for testing
$cnt++;
print $oldma
Hi All,
We get a lot of updates from our client libraries, to keep our union cat up
to date. There isn't a lot of consistancy between the libraries regarding
which ILS they use (they're all small rural libs), or which versions of a
given ILS. The files of MARC records we get are often... strang
