Lines 97-102
sub insert_values {
Link Here
|
97 |
my $dbh = C4::Context->dbh; |
97 |
my $dbh = C4::Context->dbh; |
98 |
local $dbh->{RaiseError} = 1; |
98 |
local $dbh->{RaiseError} = 1; |
99 |
while ( my ( $record_id, $value ) = each %{$self->{values}} ) { |
99 |
while ( my ( $record_id, $value ) = each %{$self->{values}} ) { |
|
|
100 |
next unless defined $value; |
100 |
my $updated = $dbh->do(q| |
101 |
my $updated = $dbh->do(q| |
101 |
UPDATE additional_field_values |
102 |
UPDATE additional_field_values |
102 |
SET value = ? |
103 |
SET value = ? |