Lines 671-677
sub GetNormalizedOCLCNumber {
Link Here
|
671 |
my @fields = $marcrecord->field('035'); |
671 |
my @fields = $marcrecord->field('035'); |
672 |
foreach my $field (@fields) { |
672 |
foreach my $field (@fields) { |
673 |
my $oclc = $field->subfield('a'); |
673 |
my $oclc = $field->subfield('a'); |
674 |
if ($oclc =~ /OCoLC/) { |
674 |
if ($oclc && $oclc =~ /OCoLC/) { |
675 |
$oclc =~ s/\(OCoLC\)//; |
675 |
$oclc =~ s/\(OCoLC\)//; |
676 |
return $oclc; |
676 |
return $oclc; |
677 |
} |
677 |
} |
678 |
- |
|
|