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

(-)a/Koha/ILL/Backend/Standard.pm (-5 / +4 lines)
Lines 143-149 that we do not consider to be metadata Link Here
143
143
144
sub metadata {
144
sub metadata {
145
    my ( $self, $request ) = @_;
145
    my ( $self, $request ) = @_;
146
    my $attrs       = $request->illrequestattributes;
146
    my $attrs       = $request->extended_attributes;
147
    my $metadata    = {};
147
    my $metadata    = {};
148
    my @ignore      = ( 'requested_partners', 'type', 'type_disclaimer_value', 'type_disclaimer_date' );
148
    my @ignore      = ( 'requested_partners', 'type', 'type_disclaimer_value', 'type_disclaimer_date' );
149
    my $core_fields = _get_core_fields();
149
    my $core_fields = _get_core_fields();
Lines 355-361 sub edititem { Link Here
355
    my $stage = $other->{stage};
355
    my $stage = $other->{stage};
356
    if ( !$stage || $stage eq 'init' ) {
356
    if ( !$stage || $stage eq 'init' ) {
357
357
358
        my $attrs = $params->{request}->illrequestattributes->unblessed;
358
        my $attrs = $params->{request}->extended_attributes->unblessed;
359
359
360
        # We need to identify which parameters are custom, and pass them
360
        # We need to identify which parameters are custom, and pass them
361
        # to the template in a predefined form
361
        # to the template in a predefined form
Lines 696-702 sub migrate { Link Here
696
696
697
        my @default_attributes = (qw/title type author year volume isbn issn article_title article_author pages/);
697
        my @default_attributes = (qw/title type author year volume isbn issn article_title article_author pages/);
698
        my $original_attributes =
698
        my $original_attributes =
699
            $original_request->illrequestattributes->search( { type => { '-in' => \@default_attributes } } );
699
            $original_request->extended_attributes->search( { type => { '-in' => \@default_attributes } } );
700
700
701
        my $request_details =
701
        my $request_details =
702
            { map { $_->type => $_->value } ( $original_attributes->as_list ) };
702
            { map { $_->type => $_->value } ( $original_attributes->as_list ) };
Lines 727-733 sub migrate { Link Here
727
    # Cleanup any outstanding work, close the request.
727
    # Cleanup any outstanding work, close the request.
728
    elsif ( $stage eq 'emigrate' ) {
728
    elsif ( $stage eq 'emigrate' ) {
729
        my $new_request = $params->{request};
729
        my $new_request = $params->{request};
730
        my $from_id     = $new_request->illrequestattributes->find( { type => 'migrated_from' } )->value;
730
        my $from_id     = $new_request->extended_attributes->find( { type => 'migrated_from' } )->value;
731
        my $request     = Koha::ILL::Requests->find($from_id);
731
        my $request     = Koha::ILL::Requests->find($from_id);
732
732
733
        # Just cancel the original request now it's been migrated away
733
        # Just cancel the original request now it's been migrated away
734
- 

Return to bug 35570