|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 10; |
5 |
use Test::More tests => 12; |
| 6 |
|
6 |
|
| 7 |
use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin |
7 |
use Koha::Acquisition::Baskets; # Koha::Acquisition::Baskets uses the mixin |
| 8 |
use Koha::AdditionalFields; |
8 |
use Koha::AdditionalFields; |
|
Lines 42-57
Koha::AdditionalFieldValue->new({
Link Here
|
| 42 |
record_id => $basket1->basketno, |
42 |
record_id => $basket1->basketno, |
| 43 |
value => 'bar value for basket1', |
43 |
value => 'bar value for basket1', |
| 44 |
})->store; |
44 |
})->store; |
| 45 |
Koha::AdditionalFieldValue->new({ |
45 |
|
| 46 |
field_id => $foo->id, |
46 |
my $additional_fields_for_basket2 = [ |
| 47 |
record_id => $basket2->basketno, |
47 |
{ |
| 48 |
value => 'foo value for basket2', |
48 |
id => $foo->id, |
| 49 |
})->store; |
49 |
value => 'foo value for basket2', |
| 50 |
Koha::AdditionalFieldValue->new({ |
50 |
}, |
| 51 |
field_id => $bar->id, |
51 |
{ |
| 52 |
record_id => $basket2->basketno, |
52 |
id => $bar->id, |
| 53 |
value => 'bar value for basket2', |
53 |
value => 'bar value for basket2', |
| 54 |
})->store; |
54 |
}, |
|
|
55 |
]; |
| 56 |
$basket2->set_additional_fields($additional_fields_for_basket2); |
| 57 |
|
| 58 |
my $additional_fields = $basket2->additional_field_values; |
| 59 |
is( ref($additional_fields), 'Koha::AdditionalFieldValues', '->additional_field_values should return a Koha::AdditionalFieldValues object' ); |
| 60 |
is_deeply( |
| 61 |
[ |
| 62 |
map { |
| 63 |
{ |
| 64 |
# We are bascially removing the 'id' field here |
| 65 |
field_id => $_->{field_id}, |
| 66 |
record_id => $_->{record_id}, |
| 67 |
value => $_->{value}, |
| 68 |
} |
| 69 |
} @{ $additional_fields->unblessed } |
| 70 |
], |
| 71 |
[ |
| 72 |
{ |
| 73 |
field_id => $additional_fields_for_basket2->[0]->{id}, |
| 74 |
record_id => $basket2->basketno, |
| 75 |
value => $additional_fields_for_basket2->[0]->{value}, |
| 76 |
}, |
| 77 |
{ |
| 78 |
field_id => $additional_fields_for_basket2->[1]->{id}, |
| 79 |
record_id => $basket2->basketno, |
| 80 |
value => $additional_fields_for_basket2->[1]->{value}, |
| 81 |
} |
| 82 |
|
| 83 |
], |
| 84 |
'->additional_field_values should return the correct values' |
| 85 |
); |
| 55 |
|
86 |
|
| 56 |
my @baskets = Koha::Acquisition::Baskets->filter_by_additional_fields([ |
87 |
my @baskets = Koha::Acquisition::Baskets->filter_by_additional_fields([ |
| 57 |
{ |
88 |
{ |
| 58 |
- |
|
|