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

(-)a/Koha/ILL/Backend/Standard.pm (-14 / +13 lines)
Lines 710-728 sub migrate { Link Here
710
        my $original_attributes =
710
        my $original_attributes =
711
            $original_request->extended_attributes->search( { type => { '-in' => \@default_attributes } } );
711
            $original_request->extended_attributes->search( { type => { '-in' => \@default_attributes } } );
712
712
713
        my $request_details =
713
        my @request_details_array = map {
714
            { map { $_->type => $_->value } ( $original_attributes->as_list ) };
714
            {
715
        $request_details->{migrated_from} = $original_request->illrequest_id;
715
                'type'  => $_->type,
716
        while ( my ( $type, $value ) = each %{$request_details} ) {
716
                'value' => $_->value,
717
            Koha::ILL::Request::Attribute->new(
717
            }
718
                {
718
        } $original_attributes->as_list;
719
                    illrequest_id => $new_request->illrequest_id,
719
720
                    column_exists( 'illrequestattributes', 'backend' ) ? ( backend => "Standard" ) : (),
720
        push @request_details_array, {
721
                    type  => $type,
721
            'type'  => 'migrated_from',
722
                    value => $value,
722
            'value' => $original_request->illrequest_id,
723
                }
723
        };
724
            )->store;
724
725
        }
725
        $new_request->extended_attributes( \@request_details_array );
726
726
727
        return {
727
        return {
728
            error   => 0,
728
            error   => 0,
729
- 

Return to bug 38751