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

(-)a/Koha/ILL/Backend/Standard.pm (-16 / +15 lines)
Lines 698-716 sub migrate { Link Here
698
        my $original_attributes =
698
        my $original_attributes =
699
            $original_request->extended_attributes->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_array = map {
702
            { map { $_->type => $_->value } ( $original_attributes->as_list ) };
702
            {
703
        $request_details->{migrated_from} = $original_request->illrequest_id;
703
                'type'  => $_->type,
704
        while ( my ( $type, $value ) = each %{$request_details} ) {
704
                'value' => $_->value,
705
            Koha::ILL::Request::Attribute->new(
705
            }
706
                {
706
        } $original_attributes->as_list;
707
                    illrequest_id => $new_request->illrequest_id,
707
708
                    column_exists( 'illrequestattributes', 'backend' ) ? ( backend => "Standard" ) : (),
708
        push @request_details_array, {
709
                    type  => $type,
709
            'type'  => 'migrated_from',
710
                    value => $value,
710
            'value' => $original_request->illrequest_id,
711
                }
711
        };
712
            )->store;
712
713
        }
713
        $new_request->extended_attributes( \@request_details_array );
714
714
715
        return {
715
        return {
716
            error   => 0,
716
            error   => 0,
Lines 993-1000 sub add_request { Link Here
993
993
994
    my @request_details_array = map {
994
    my @request_details_array = map {
995
        {
995
        {
996
            'type'     => $_,
996
            'type'  => $_,
997
            'value'    => $request_details->{$_},
997
            'value' => $request_details->{$_},
998
        }
998
        }
999
    } keys %{$request_details};
999
    } keys %{$request_details};
1000
    $request->extended_attributes( \@request_details_array );
1000
    $request->extended_attributes( \@request_details_array );
1001
- 

Return to bug 38751