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

(-)a/Koha/Object/Mixin/AdditionalFields.pm (+1 lines)
Lines 1-6 Link Here
1
package Koha::Object::Mixin::AdditionalFields;
1
package Koha::Object::Mixin::AdditionalFields;
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use Koha::AdditionalFields;
4
use Koha::AdditionalFieldValues;
5
use Koha::AdditionalFieldValues;
5
6
6
=head1 NAME
7
=head1 NAME
(-)a/t/db_dependent/Acquisition/TransferOrder.t (-2 / +37 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Test::More tests => 13;
5
use Test::More tests => 14;
6
use C4::Context;
6
use C4::Context;
7
use C4::Acquisition qw( NewBasket GetOrders GetOrder TransferOrder SearchOrders ModReceiveOrder CancelReceipt );
7
use C4::Acquisition qw( NewBasket GetOrders GetOrder TransferOrder SearchOrders ModReceiveOrder CancelReceipt );
8
use C4::Biblio;
8
use C4::Biblio;
Lines 14-19 use Koha::Acquisition::Booksellers; Link Here
14
use Koha::Acquisition::Orders;
14
use Koha::Acquisition::Orders;
15
use t::lib::TestBuilder;
15
use t::lib::TestBuilder;
16
use MARC::Record;
16
use MARC::Record;
17
use String::Random qw(random_string);
17
18
18
my $schema = Koha::Database->new()->schema();
19
my $schema = Koha::Database->new()->schema();
19
$schema->storage->txn_begin();
20
$schema->storage->txn_begin();
Lines 110-113 $order = GetOrder( $newordernumber ); Link Here
110
is ( $order->{ordernumber}, $newordernumber, 'Regression test Bug 11549: After a transfer, receive and cancel the receive should be possible.' );
111
is ( $order->{ordernumber}, $newordernumber, 'Regression test Bug 11549: After a transfer, receive and cancel the receive should be possible.' );
111
is ( $order->{basketno}, $basketno2, 'Regression test Bug 11549: The order still exist in the basket where the transfer has been done.');
112
is ( $order->{basketno}, $basketno2, 'Regression test Bug 11549: The order still exist in the basket where the transfer has been done.');
112
113
114
subtest 'TransferOrder should copy additional fields' => sub {
115
    plan tests => 2;
116
117
    my $field = Koha::AdditionalField->new(
118
        {
119
            tablename => 'aqorders',
120
            name => random_string('c' x 100),
121
        }
122
    );
123
    $field->store()->discard_changes();
124
    my $order = Koha::Acquisition::Order->new(
125
        {
126
            basketno => $basketno1,
127
            quantity => 2,
128
            biblionumber => $biblionumber,
129
            budget_id => $budget->{budget_id},
130
        }
131
    )->store;
132
    $order->set_additional_fields(
133
        [
134
            {
135
                id => $field->id,
136
                value => 'additional field value',
137
            },
138
        ]
139
    );
140
141
    my $newordernumber = TransferOrder($order->ordernumber, $basketno2);
142
    my $neworder = Koha::Acquisition::Orders->find($newordernumber);
143
    my $field_values = $neworder->additional_field_values()->as_list;
144
145
    is(scalar @$field_values, 1, 'transfered order has one additional field value');
146
    is($field_values->[0]->value, 'additional field value', 'transfered order additional field has the correct value');
147
};
148
113
$schema->storage->txn_rollback();
149
$schema->storage->txn_rollback();
114
- 

Return to bug 11844