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