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

(-)a/C4/Acquisition.pm (-1 / +9 lines)
Lines 31-36 use Koha::DateUtils qw( dt_from_string output_pref ); Link Here
31
use Koha::Acquisition::Order;
31
use Koha::Acquisition::Order;
32
use Koha::Acquisition::Bookseller;
32
use Koha::Acquisition::Bookseller;
33
use Koha::Number::Price;
33
use Koha::Number::Price;
34
use Koha::AdditionalField;
34
35
35
use C4::Koha qw( subfield_is_koha_internal_p );
36
use C4::Koha qw( subfield_is_koha_internal_p );
36
37
Lines 1865-1870 sub TransferOrder { Link Here
1865
    $sth = $dbh->prepare($query);
1866
    $sth = $dbh->prepare($query);
1866
    $sth->execute($newordernumber, $ordernumber);
1867
    $sth->execute($newordernumber, $ordernumber);
1867
1868
1869
    # Copy additional fields values
1870
    my $additional_fields = Koha::AdditionalField->all({tablename => 'aqorders'});
1871
    foreach my $af (@$additional_fields) {
1872
        $af->fetch_values({record_id => $ordernumber});
1873
        $af->{values}->{$newordernumber} = $af->{values}->{$ordernumber};
1874
        $af->insert_values;
1875
    }
1876
1868
    $query = q{
1877
    $query = q{
1869
        INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)
1878
        INSERT INTO aqorders_transfers (ordernumber_from, ordernumber_to)
1870
        VALUES (?, ?)
1879
        VALUES (?, ?)
1871
- 

Return to bug 11844