Fix money value (',' -> '.').

soit-sk · Aug 3, 2014 · 04cbc9f · 04cbc9f
1 parent 0e3dc7c
commit 04cbc9f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/scraper.pl b/scraper.pl
@@ -44,6 +44,7 @@
 	my ($year, $celkem, $vodne, $stocne) = map { 
 		my $value = $td[$_]->as_text;
 		remove_trailing(\$value);
+		$value =~ s/,/\./ms;
 		$value;
 	} (0 .. 3);