Lines 47-52
sub set_additional_fields {
Link Here
|
47 |
|
47 |
|
48 |
$self->additional_field_values->delete; |
48 |
$self->additional_field_values->delete; |
49 |
|
49 |
|
|
|
50 |
my $table = $self->_result->table; |
51 |
|
50 |
my $biblionumber; |
52 |
my $biblionumber; |
51 |
my $record; |
53 |
my $record; |
52 |
my $record_updated; |
54 |
my $record_updated; |
Lines 80-88
sub set_additional_fields {
Link Here
|
80 |
if ( defined $value && $value ne '' ) { |
82 |
if ( defined $value && $value ne '' ) { |
81 |
my $field_value = Koha::AdditionalFieldValue->new( |
83 |
my $field_value = Koha::AdditionalFieldValue->new( |
82 |
{ |
84 |
{ |
83 |
field_id => $additional_field->{id}, |
85 |
field_id => $additional_field->{id}, |
84 |
record_id => $self->id, |
86 |
record_table => $table, |
85 |
value => $value, |
87 |
record_id => $self->id, |
|
|
88 |
value => $value, |
86 |
} |
89 |
} |
87 |
)->store; |
90 |
)->store; |
88 |
} |
91 |
} |
89 |
- |
|
|