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