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