459 |
$bib .= isis_to_bib($row,'991','%991'); |
$bib .= isis_to_bib($row,'991','%991'); |
460 |
$mps .= isis_to_mps($row,'991',12); |
$mps .= isis_to_mps($row,'991',12); |
461 |
|
|
462 |
sub store_isn { |
sub isis_isn_to_mps { |
463 |
if (my $isn = shift @_) { |
my $row = shift @_ || die; |
464 |
my $nr = shift @_; |
my $isis_id = shift @_ || die; |
465 |
my $tag = shift @_; |
my $nr = shift @_ || die; |
466 |
|
my $i=0; |
467 |
|
my $mps=''; |
468 |
|
while (my $isn=$row->{$isis_id}->[$i]) { |
469 |
$isn =~ s/ +//g; # remove spaces |
$isn =~ s/ +//g; # remove spaces |
470 |
$mps .= "W $isn $nr\n"; |
$mps .= "W $isn $nr\n"; |
|
$bib .= "$tag $isn\n"; |
|
471 |
if ($isn =~ s/-//g) { |
if ($isn =~ s/-//g) { |
472 |
$mps .= "W $isn $nr\n"; |
$mps .= "W $isn $nr\n"; |
473 |
} |
} |
474 |
|
$i++; |
475 |
} |
} |
476 |
|
return $mps; |
477 |
} |
} |
478 |
|
|
479 |
# ISBN |
# ISBN |
480 |
store_isn($row->{10}->[0],13,'%ISBN'); |
$bib .= isis_to_bib($row,'10','%ISBN'); |
481 |
$mps .= isis_to_mps($row,'290',13); |
$mps .= isis_isn_to_mps($row,'10',13); |
482 |
$mps .= isis_to_mps($row,'291',13); |
$mps .= isis_isn_to_mps($row,'290',13); |
483 |
$mps .= isis_to_mps($row,'292',13); |
$mps .= isis_isn_to_mps($row,'291',13); |
484 |
$mps .= isis_to_mps($row,'293',13); |
$mps .= isis_isn_to_mps($row,'292',13); |
485 |
|
$mps .= isis_isn_to_mps($row,'293',13); |
486 |
|
|
487 |
# ISSN |
# ISSN |
488 |
#store_isn($row->{11}->[0],14,'%ISSN'); |
#store_isn($row->{11}->[0],14,'%ISSN'); |