|
Lines 929-938
sub get_coins {
Link Here
|
| 929 |
|
929 |
|
| 930 |
$title = $record->subfield( '200', 'a' ); |
930 |
$title = $record->subfield( '200', 'a' ); |
| 931 |
my $subfield_210d = $record->subfield('210', 'd'); |
931 |
my $subfield_210d = $record->subfield('210', 'd'); |
|
|
932 |
my $pubyear_210; |
| 933 |
my $pubyear_214; |
| 934 |
|
| 932 |
if ($subfield_210d and $subfield_210d =~ /(\d{4})/) { |
935 |
if ($subfield_210d and $subfield_210d =~ /(\d{4})/) { |
| 933 |
$pubyear = $1; |
936 |
$pubyear_210 = $1; |
|
|
937 |
} |
| 938 |
my $subfield_214d = $record->subfield('214', 'd'); |
| 939 |
if ($subfield_214d and $subfield_214d =~ /(\d{4})/) { |
| 940 |
$pubyear_214 = $1; |
| 934 |
} |
941 |
} |
| 935 |
$publisher = $record->subfield( '210', 'c' ) || ''; |
942 |
$pubyear = $pubyear_214 || $pubyear_210; |
|
|
943 |
$publisher = $record->subfield( '214', 'c' ) || $record->subfield( '210', 'c' ) || ''; |
| 936 |
$isbn = $record->subfield( '010', 'a' ) || ''; |
944 |
$isbn = $record->subfield( '010', 'a' ) || ''; |
| 937 |
$issn = $record->subfield( '011', 'a' ) || ''; |
945 |
$issn = $record->subfield( '011', 'a' ) || ''; |
| 938 |
} else { |
946 |
} else { |
| 939 |
- |
|
|