瀏覽代碼

Fix extra ":"s with Erkkeri.

Toni Fadjukoff 12 年之前
父節點
當前提交
228d10f4cc
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      sodexo.pl

+ 4 - 1
sodexo.pl 查看文件

91
   my $token = shift;
91
   my $token = shift;
92
 
92
 
93
   if ($token->[0] eq 'T' && $token->[1] =~ /\S/) {
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
     $parse_func = \&sodexo_parse_food; 
97
     $parse_func = \&sodexo_parse_food; 
96
   }
98
   }
97
 }
99
 }
168
       return undef if (!-f $temp_fname);
170
       return undef if (!-f $temp_fname);
169
     }
171
     }
170
     push @restaurants, parse_sodexo($temp_fname, \@info);
172
     push @restaurants, parse_sodexo($temp_fname, \@info);
173
+    ++$count;
171
   }
174
   }
172
   return @restaurants;
175
   return @restaurants;
173
 }
176
 }