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

(-)a/C4/Biblio.pm (-12 / +1 lines)
Lines 1690-1714 sub GetMarcISBN { Link Here
1690
        $scope = '020';
1690
        $scope = '020';
1691
    }
1691
    }
1692
    my @marcisbns;
1692
    my @marcisbns;
1693
    my $isbn = "";
1694
    my $tag  = "";
1695
    my $marcisbn;
1693
    my $marcisbn;
1696
    foreach my $field ( $record->field($scope) ) {
1694
    foreach my $field ( $record->field($scope) ) {
1697
        my $value = $field->as_string();
1695
        my $isbn = $field->as_string();
1698
        if ( $isbn ne "" ) {
1696
        if ( $isbn ne "" ) {
1699
            $marcisbn = { marcisbn => $isbn, };
1697
            $marcisbn = { marcisbn => $isbn, };
1700
            push @marcisbns, $marcisbn;
1698
            push @marcisbns, $marcisbn;
1701
            $isbn = $value;
1702
        }
1703
        if ( $isbn ne $value ) {
1704
            $isbn = $isbn . " " . $value;
1705
        }
1699
        }
1706
    }
1700
    }
1707
1701
1708
    if ($isbn) {
1709
        $marcisbn = { marcisbn => $isbn };
1710
        push @marcisbns, $marcisbn;    #load last tag into array
1711
    }
1712
    return \@marcisbns;
1702
    return \@marcisbns;
1713
}    # end GetMarcISBN
1703
}    # end GetMarcISBN
1714
1704
1715
- 

Return to bug 11912