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