|
Lines 1166-1180
sub _standard_request2biblio {
Link Here
|
| 1166 |
} |
1166 |
} |
| 1167 |
|
1167 |
|
| 1168 |
if ($isbn) { |
1168 |
if ($isbn) { |
| 1169 |
my $marc_isbn = MARC::Field->new( '020', '', '', a => $isbn ); |
1169 |
my $marc_isbn = $marcflavour eq 'MARC21' ? MARC::Field->new( '020', '', '', a => $isbn ) : MARC::Field->new( '010', '', '', a => $isbn ); |
| 1170 |
$record->append_fields($marc_isbn); |
1170 |
$record->append_fields($marc_isbn); |
| 1171 |
} |
1171 |
} |
| 1172 |
if ($author) { |
1172 |
if ($author) { |
| 1173 |
my $marc_author = MARC::Field->new( '100', '1', '', a => $author ); |
1173 |
my $marc_author = $marcflavour eq 'MARC21' ? MARC::Field->new( '100', '1', '', a => $author ) : MARC::Field->new( '700', '1', '', a => $author ); |
| 1174 |
$record->append_fields($marc_author); |
1174 |
$record->append_fields($marc_author); |
| 1175 |
} |
1175 |
} |
| 1176 |
if ($title) { |
1176 |
if ($title) { |
| 1177 |
my $marc_title = MARC::Field->new( '245', '0', '0', a => $title ); |
1177 |
my $marc_title = $marcflavour eq 'MARC21' ? MARC::Field->new( '245', '0', '0', a => $title ) : MARC::Field->new( '200', '0', '0', a => $title ); |
| 1178 |
$record->append_fields($marc_title); |
1178 |
$record->append_fields($marc_title); |
| 1179 |
} |
1179 |
} |
| 1180 |
|
1180 |
|
| 1181 |
- |
|
|