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