|
Lines 1241-1246
sub GetNormalizedISBN {
Link Here
|
| 1241 |
my ($isbn,$record,$marcflavour) = @_; |
1241 |
my ($isbn,$record,$marcflavour) = @_; |
| 1242 |
my @fields; |
1242 |
my @fields; |
| 1243 |
if ($isbn) { |
1243 |
if ($isbn) { |
|
|
1244 |
# Koha attempts to store multiple ISBNs in biblioitems.isbn, separated by " | " |
| 1245 |
# anything after " | " should be removed, along with the delimiter |
| 1246 |
$isbn =~ s/(.*)( \| )(.*)/$1/; |
| 1244 |
return _isbn_cleanup($isbn); |
1247 |
return _isbn_cleanup($isbn); |
| 1245 |
} |
1248 |
} |
| 1246 |
return undef unless $record; |
1249 |
return undef unless $record; |
| 1247 |
- |
|
|