View | Details | Raw Unified | Return to bug 35570
Collapse All | Expand All

(-)a/Koha/ILL/Backend/Standard.pm (-4 / +13 lines)
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
(-)a/Koha/ILL/Request.pm (-5 / +4 lines)
Lines 19-31 package Koha::ILL::Request; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Clone qw( clone );
22
use Clone     qw(clone);
23
use Try::Tiny qw( catch try );
23
use Try::Tiny qw(catch try);
24
use DateTime;
24
use DateTime;
25
25
26
use C4::Letters;
26
use C4::Letters;
27
use Mojo::Util qw(deprecated);
27
use Mojo::Util     qw(deprecated);
28
use File::Basename qw( dirname );
28
use File::Basename qw(dirname);
29
29
30
use Koha::AuthorisedValue;
30
use Koha::AuthorisedValue;
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
32
- 

Return to bug 35570