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