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

(-)a/C4/Acquisition.pm (-1 / +9 lines)
Lines 32-37 use Koha::DateUtils qw( dt_from_string output_pref ); Link Here
32
use Koha::Acquisition::Order;
32
use Koha::Acquisition::Order;
33
use Koha::Acquisition::Bookseller;
33
use Koha::Acquisition::Bookseller;
34
use Koha::Number::Price;
34
use Koha::Number::Price;
35
use Koha::AdditionalField;
35
36
36
use C4::Koha qw( subfield_is_koha_internal_p );
37
use C4::Koha qw( subfield_is_koha_internal_p );
37
38
Lines 1882-1887 sub TransferOrder { Link Here
1882
    $sth = $dbh->prepare($query);
1883
    $sth = $dbh->prepare($query);
1883
    $sth->execute($newordernumber, $ordernumber);
1884
    $sth->execute($newordernumber, $ordernumber);
1884
1885
1886
    # Copy additional fields values
1887
    my $additional_fields = Koha::AdditionalField->all({tablename => 'aqorders'});
1888
    foreach my $af (@$additional_fields) {
1889
        $af->fetch_values({record_id => $ordernumber});
1890
        $af->{values}->{$newordernumber} = $af->{values}->{$ordernumber};
1891
        $af->insert_values;
1892
    }
1893
1885
    $query = q{
1894
    $query = q{
1886
        INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)
1895
        INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)
1887
        VALUES (?, ?)
1896
        VALUES (?, ?)
1888
- 

Return to bug 11844