Show food-type in front of Sodexo Linna.

sodexo.pl

     $parse_func = \&sodexo_parse_finish;
   } elsif ($token->[0] eq 'S' && $token->[1] eq 'td') {
     $parse_func = \&sodexo_parse_to_food;
+    sodexo_parse_to_food($token);
   } elsif ($token->[0] eq 'S' && $token->[1] eq 'th') {
     sodexo_finish_day();
     $parse_func = \&sodexo_parse_to_food;
   my $token = shift;
 
   if ($token->[0] eq 'T' && $token->[1] =~ /\S/) {
-     $cur_title = utf8_to_8859($token->[1]);
+     $cur_title .= utf8_to_8859($token->[1]);
      $parse_func = \&sodexo_parse_to_allergy;
   }
 }
 
+sub sodexo_parse_type {
+  my $token = shift;
+
+  if ($token->[0] eq 'T' && $token->[1] =~ /\S/) {
+    $cur_title = utf8_to_8859($token->[1]) . ": ";
+    $parse_func = \&sodexo_parse_food; 
+  }
+}
+
 sub sodexo_parse_to_food {
   my $token = shift;
   if ($token->[0] eq 'S' && $token->[1] eq "td") {
     my %attrs = %{$token->[2]};
+    if ($attrs{'class'} eq "food-type") {
+      $cur_title = '';
+      $cur_text = '';
+      $parse_func = \&sodexo_parse_type;
+    }
     if ($attrs{'class'} eq "food-desc") {
       $cur_title = '';
       $cur_text = '';