- $sth_update->execute($bg->{"id"}, $ref->{"id"}) ||
- mydberror($query_update . " ($bg->{id}, $ref->{id})");
+ my @values = ($bg->{"id"}, $ref->{"id"});
+ splice(@values, 1, 0, undef) if ($main::eur);
+ $sth_update->execute(@values) ||
+ mydberror($query_update . " (" . join(", ", @values) . ")");