From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sun, 13 Feb 2005 23:12:24 +0000 (+0000)
Subject: Fix parsing of chosen songs.
X-Git-Url: https://git.sesse.net/?p=ccbs;a=commitdiff_plain;h=905e6c9f072de56b750e1aa2a34f64a528e205e9;ds=sidebyside

Fix parsing of chosen songs.
---

diff --git a/parse/parse-ddreurope-tournament.pl b/parse/parse-ddreurope-tournament.pl
index 83b95f2..9338ad2 100644
--- a/parse/parse-ddreurope-tournament.pl
+++ b/parse/parse-ddreurope-tournament.pl
@@ -70,8 +70,9 @@ while (<>) {
 		}
 
 		# chosen songs
-		while (s/<td \s* class=dtdsong> .*? class="link"> (.*?) <\/a> .*? <td class=dtdscore> (\d+) <\/td>//x) {
+		while (s/<td \s* class=dtdsong> .*? class="link"> (.*?) <\/a> .*? <td \s* class=dtdscore> (\d+) <\/td>//x) {
 			my $song = song_map($1);
+			my $score = $2;
 			$song =~ s/'/\\'/g;
 		
 			printf "INSERT INTO scores (tournament, round, parallel, player, song, chosen, score) VALUES (\n";
@@ -80,7 +81,7 @@ while (<>) {
 			print "   (SELECT player FROM players WHERE nick='$player'),\n";
 			print "   (SELECT song FROM songs WHERE lower(title)=lower('$song')),\n";
 			print "   't',\n";
-			print "   $2);\n";
+			print "   $score);\n";
 		}
 	}