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

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

Return to bug 11844