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 |
- |
|
|