Fix Amica using Html menus

amica.pl

@@ -31,17 +31,37 @@ sub parse_amica {
   my $LunchMenus = $data->{'LunchMenus'};
   foreach my $LunchMenu (@$LunchMenus) {
     my $SetMenus = $LunchMenu->{'SetMenus'};
-    foreach my $SetMenu (@$SetMenus) {
-      my $Meals = $SetMenu->{'Meals'};
-      foreach my $Meal (@$Meals) {
-        $cur_food .= "\n" if $cur_food ne "";
-        $cur_food .= $Meal->{'Name'};
-	my $Diets = $Meal->{'Diets'};
-	$cur_food .= ' (' . join(', ', @$Diets) . ')';
+    my $Html = $LunchMenu->{'Html'};
+    if (length($Html) > 0) {
+      print "Doing html\n";
+      my @Menus = split('<p>', $Html);
+      print "SetMenus" . @Menus . "\n";
+      foreach my $SetMenu (@Menus) {
+        my @Meals = split('<br />', $SetMenu);
+	foreach my $Meal (@Meals) {
+	  my @parts = split('\\(', $Meal);
+	  $cur_food .= "\n" if $cur_food ne "";
+	  $cur_food .= @parts[0];
+	  my @Diets = split(",\s*", substr(@parts[1], 0, index(@parts[1], ')')));
+	  $cur_food .= ' (' . join(', ', @Diets) . ')' if @Diets;
+	}
+        push @cur_day_foods, utf8_to_8859($cur_food) if ($cur_food ne "");
+        $cur_food = "";
+      }
+    } else {
+      foreach my $SetMenu (@$SetMenus) {
+        my $Meals = $SetMenu->{'Meals'};
+        foreach my $Meal (@$Meals) {
+          $cur_food .= "\n" if $cur_food ne "";
+          $cur_food .= $Meal->{'Name'};
+          my $Diets = $Meal->{'Diets'};
+          $cur_food .= ' (' . join(', ', @$Diets) . ')';
+        }
+        push @cur_day_foods, utf8_to_8859($cur_food) if ($cur_food ne "");
+        $cur_food = "";
       }
-      push @cur_day_foods, utf8_to_8859($cur_food) if ($cur_food ne "");
-      $cur_food = "";
     }
+
     push @week_foods, [@cur_day_foods];
     @cur_day_foods = ();
   }