|
Lines 44-50
Koha::Object::Mixin::AdditionalFields
Link Here
|
| 44 |
sub set_additional_fields { |
44 |
sub set_additional_fields { |
| 45 |
my ($self, $additional_fields) = @_; |
45 |
my ($self, $additional_fields) = @_; |
| 46 |
|
46 |
|
| 47 |
my @additional_field_values = $self->additional_field_values->delete; |
47 |
$self->additional_field_values->delete; |
| 48 |
|
48 |
|
| 49 |
foreach my $additional_field (@$additional_fields) { |
49 |
foreach my $additional_field (@$additional_fields) { |
| 50 |
my $value = $additional_field->{value}; |
50 |
my $value = $additional_field->{value}; |
| 51 |
- |
|
|