Bladeren bron

Fix extra ":"s with Erkkeri.

Toni Fadjukoff 12 jaren geleden
bovenliggende
commit
228d10f4cc
1 gewijzigde bestanden met toevoegingen van 4 en 1 verwijderingen
  1. 4 1
      sodexo.pl

+ 4 - 1
sodexo.pl Bestand weergeven

@@ -91,7 +91,9 @@ sub sodexo_parse_type {
91 91
   my $token = shift;
92 92
 
93 93
   if ($token->[0] eq 'T' && $token->[1] =~ /\S/) {
94
-    $cur_title = utf8_to_8859($token->[1]) . ": ";
94
+    if ($token->[1] !~ /^ $/) {
95
+        $cur_title = utf8_to_8859($token->[1]) . ": ";
96
+    }
95 97
     $parse_func = \&sodexo_parse_food; 
96 98
   }
97 99
 }
@@ -168,6 +170,7 @@ sub get_sodexo_restaurants {
168 170
       return undef if (!-f $temp_fname);
169 171
     }
170 172
     push @restaurants, parse_sodexo($temp_fname, \@info);
173
+    ++$count;
171 174
   }
172 175
   return @restaurants;
173 176
 }