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