Implement Juvenes ForceMajoure rule.

juvenes.pl

           my $mealoptions = $data->{'MealOptions'};
           # loop different meals
           foreach my $meal_info (@$mealoptions) {
-            my $menuitems = $meal_info->{'MenuItems'};
-            # loops different foods in a meal
-            foreach my $food_info (@$menuitems) {
-              $cur_food .= "\n" if $cur_food ne ""; 
-              my $name = $food_info->{'Name'};
-              $name =~ s/^\*//;
-              $cur_food .= $name;
-              $cur_food .= " (" . $food_info->{'Diets'} . ")" if $food_info->{'Diets'};
+            print $meal_info->{'ForceMajeure'} . "\n" if $meal_info->{'ForceMajeure'} ne '';
+            if ($meal_info->{'ForceMajeure'} ne '') {
+              $cur_food = $meal_info->{'ForceMajeure'}; 
+            } else {
+              my $menuitems = $meal_info->{'MenuItems'};
+              # loops different foods in a meal
+              foreach my $food_info (@$menuitems) {
+                $cur_food .= "\n" if $cur_food ne ""; 
+                my $name = $food_info->{'Name'};
+                $name =~ s/^\*//;
+                $cur_food .= $name;
+                $cur_food .= " (" . $food_info->{'Diets'} . ")" if $food_info->{'Diets'};
+              }
+            }
+            if ($cur_food ne "-") {
+              finish_food();
+            } else {
+              $cur_food = "";
             }
-            finish_food();
           }
         }
         finish_day();