View | Details | Raw Unified | Return to bug 27746
Collapse All | Expand All

(-)a/C4/Koha.pm (-2 / +1 lines)
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
- 

Return to bug 27746