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