From 905e6c9f072de56b750e1aa2a34f64a528e205e9 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sun, 13 Feb 2005 23:12:24 +0000
Subject: [PATCH] Fix parsing of chosen songs.

---
 parse/parse-ddreurope-tournament.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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";
 		}
 	}
 
-- 
2.39.2