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