Lines 1974-1982
sub TransferOrder {
Link Here
|
1974 |
foreach my $afv ( $order->additional_field_values->as_list ) { |
1974 |
foreach my $afv ( $order->additional_field_values->as_list ) { |
1975 |
Koha::AdditionalFieldValue->new( |
1975 |
Koha::AdditionalFieldValue->new( |
1976 |
{ |
1976 |
{ |
1977 |
field_id => $afv->field_id, |
1977 |
field_id => $afv->field_id, |
1978 |
record_id => $newordernumber, |
1978 |
record_id => $newordernumber, |
1979 |
value => $afv->value, |
1979 |
record_table => 'aqorders', |
|
|
1980 |
value => $afv->value, |
1980 |
} |
1981 |
} |
1981 |
)->store; |
1982 |
)->store; |
1982 |
} |
1983 |
} |
1983 |
- |
|
|