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

(-)a/C4/Koha.pm (+2 lines)
Lines 669-674 sub GetNormalizedOCLCNumber { Link Here
669
    my ($marcrecord,$marcflavour) = @_;
669
    my ($marcrecord,$marcflavour) = @_;
670
    return unless $marcrecord;
670
    return unless $marcrecord;
671
671
672
    $marcflavour ||= C4::Context->preference('marcflavour');
673
672
    if ($marcflavour ne 'UNIMARC' ) {
674
    if ($marcflavour ne 'UNIMARC' ) {
673
        my @fields = $marcrecord->field('035');
675
        my @fields = $marcrecord->field('035');
674
        foreach my $field (@fields) {
676
        foreach my $field (@fields) {
(-)a/Koha/Biblio.pm (-2 / +15 lines)
Lines 23-29 use List::MoreUtils qw( any ); Link Here
23
use URI;
23
use URI;
24
use URI::Escape qw( uri_escape_utf8 );
24
use URI::Escape qw( uri_escape_utf8 );
25
25
26
use C4::Koha qw( GetNormalizedISBN GetNormalizedUPC );
26
use C4::Koha qw( GetNormalizedISBN GetNormalizedUPC GetNormalizedOCLCNumber );
27
27
28
use Koha::Database;
28
use Koha::Database;
29
use Koha::DateUtils qw( dt_from_string );
29
use Koha::DateUtils qw( dt_from_string );
Lines 1294-1299 sub normalized_upc { Link Here
1294
    return C4::Koha::GetNormalizedUPC($marc_record);
1294
    return C4::Koha::GetNormalizedUPC($marc_record);
1295
}
1295
}
1296
1296
1297
=head3 normalized_oclc
1298
1299
    my $normalized_oclc = $biblio->normalized_oclc
1300
1301
Normalizes and returns the OCLC number found in the MARC record.
1302
1303
=cut
1304
1305
sub normalized_oclc {
1306
    my ( $self ) = @_;
1307
    my $marc_record = $self->metadata->record;
1308
    return C4::Koha::GetNormalizedOCLCNumber( $marc_record );
1309
}
1310
1297
=head3 to_api
1311
=head3 to_api
1298
1312
1299
    my $json = $biblio->to_api;
1313
    my $json = $biblio->to_api;
1300
- 

Return to bug 33958