fix: Replace existing values with Producer Supplied Allergens and Tra…

…ces values (#8538)

lib/ProductOpener/Config_off.pm

@@ -570,6 +570,11 @@ $options{categories_exempted_from_nutrient_levels} = [
 	)
 ];
 
+$options{replace_existing_values_when_importing_those_tags_fields} = {
+	"allergens" => 1,
+	"traces" => 1,
+};
+
 # fields for which we will load taxonomies
 # note: taxonomies that are used as properties of other taxonomies must be loaded first
 # (e.g. additives_classes are referenced in additives)

lib/ProductOpener/Import.pm

@@ -61,6 +61,7 @@ use Log::Any qw($log);
 
 use Storable qw(dclone);
 use Text::Fuzzy;
+use Data::DeepAccess qw(deep_exists);
 
 BEGIN {
 	use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS);
@@ -519,6 +520,15 @@ sub set_field_value (
 			$product_ref->{$field} = "";
 			delete $product_ref->{$field . "_tags"};
 		}
+
+		# If we are on the producers platform, replace existing values by producer supplied values for allergens and traces
+		if (deep_exists(\%options, "replace_existing_values_when_importing_those_tags_fields", $field)) {
+			if ($imported_product_ref->{$field} ne "") {
+				$product_ref->{$field} = "";
+				delete $product_ref->{$field . "_tags"};
+			}
+		}
+
 		# existing is the list of already existing tags
 		# that will be completed with more values
 		my %existing = ();