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

(-)a/Koha/Biblio.pm (-6 / +20 lines)
Lines 1944-1953 sub generate_marc_host_field { Link Here
1944
        }
1944
        }
1945
1945
1946
        # Publication
1946
        # Publication
1947
        if ( $host_field = $marc_host->field('260') ) {
1947
        my @publication_fields = $marc_host->field('264');
1948
            my $s = $host_field->as_string('abc');
1948
        @publication_fields = $marc_host->field('260') unless (@publication_fields);
1949
            if ($s) {
1949
        my $index = 0;
1950
                $sfd{d} = $s;
1950
        for my $host_field (@publication_fields) {
1951
1952
            # Use first entry unless we find a preferred indicator1 = 3
1953
            if ( $index == 0 ) {
1954
                my $s = $host_field->as_string('abc');
1955
                if ($s) {
1956
                    $sfd{d} = $s;
1957
                }
1958
                $index++;
1959
            }
1960
            if ( $host_field->indicator(1) && ( $host_field->indicator(1) eq '3' ) ) {
1961
                my $s = $host_field->as_string('abc');
1962
                if ($s) {
1963
                    $sfd{d} = $s;
1964
                }
1965
                last;
1951
            }
1966
            }
1952
        }
1967
        }
1953
1968
Lines 1961-1967 sub generate_marc_host_field { Link Here
1961
1976
1962
        # Title
1977
        # Title
1963
        if ( $host_field = $marc_host->field('245') ) {
1978
        if ( $host_field = $marc_host->field('245') ) {
1964
            my $s = $host_field->as_string('ab');
1979
            my $s = $host_field->as_string('abnp');
1965
            if ($s) {
1980
            if ($s) {
1966
                $sfd{t} = $s;
1981
                $sfd{t} = $s;
1967
            }
1982
            }
1968
- 

Return to bug 37364