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