|
Lines 25-31
use C4::Installer;
Link Here
|
| 25 |
use Koha::DateUtils qw/ dt_from_string /; |
25 |
use Koha::DateUtils qw/ dt_from_string /; |
| 26 |
use Koha::ILL::Requests; |
26 |
use Koha::ILL::Requests; |
| 27 |
use Koha::ILL::Request::Attribute; |
27 |
use Koha::ILL::Request::Attribute; |
| 28 |
use C4::Biblio qw( AddBiblio ); |
28 |
use C4::Biblio qw( AddBiblio ); |
| 29 |
use C4::Charset qw( MarcToUTF8Record ); |
29 |
use C4::Charset qw( MarcToUTF8Record ); |
| 30 |
|
30 |
|
| 31 |
=head1 NAME |
31 |
=head1 NAME |
|
Lines 1166-1180
sub _standard_request2biblio {
Link Here
|
| 1166 |
} |
1166 |
} |
| 1167 |
|
1167 |
|
| 1168 |
if ($isbn) { |
1168 |
if ($isbn) { |
| 1169 |
my $marc_isbn = $marcflavour eq 'MARC21' ? MARC::Field->new( '020', '', '', a => $isbn ) : MARC::Field->new( '010', '', '', a => $isbn ); |
1169 |
my $marc_isbn = |
|
|
1170 |
$marcflavour eq 'MARC21' |
| 1171 |
? MARC::Field->new( '020', '', '', a => $isbn ) |
| 1172 |
: MARC::Field->new( '010', '', '', a => $isbn ); |
| 1170 |
$record->append_fields($marc_isbn); |
1173 |
$record->append_fields($marc_isbn); |
| 1171 |
} |
1174 |
} |
| 1172 |
if ($author) { |
1175 |
if ($author) { |
| 1173 |
my $marc_author = $marcflavour eq 'MARC21' ? MARC::Field->new( '100', '1', '', a => $author ) : MARC::Field->new( '700', '1', '', a => $author ); |
1176 |
my $marc_author = |
|
|
1177 |
$marcflavour eq 'MARC21' |
| 1178 |
? MARC::Field->new( '100', '1', '', a => $author ) |
| 1179 |
: MARC::Field->new( '700', '1', '', a => $author ); |
| 1174 |
$record->append_fields($marc_author); |
1180 |
$record->append_fields($marc_author); |
| 1175 |
} |
1181 |
} |
| 1176 |
if ($title) { |
1182 |
if ($title) { |
| 1177 |
my $marc_title = $marcflavour eq 'MARC21' ? MARC::Field->new( '245', '0', '0', a => $title ) : MARC::Field->new( '200', '0', '0', a => $title ); |
1183 |
my $marc_title = |
|
|
1184 |
$marcflavour eq 'MARC21' |
| 1185 |
? MARC::Field->new( '245', '0', '0', a => $title ) |
| 1186 |
: MARC::Field->new( '200', '0', '0', a => $title ); |
| 1178 |
$record->append_fields($marc_title); |
1187 |
$record->append_fields($marc_title); |
| 1179 |
} |
1188 |
} |
| 1180 |
|
1189 |
|