/x) {
my ($country, $location, $date, $mix, $system) = ($1, $2, $3, $4, $5);
$mix =~ s/Euromix/EuroMix/;
/x) {
my ($country, $location, $date, $mix, $system) = ($1, $2, $3, $4, $5);
$mix =~ s/Euromix/EuroMix/;
print "INSERT INTO tournaments \n";
print " (season, tournamentname, country, location, \"date\", machine, scoringsystem) VALUES (\n";
print "INSERT INTO tournaments \n";
print " (season, tournamentname, country, location, \"date\", machine, scoringsystem) VALUES (\n";
$song =~ s/'/\\'/g;
printf "INSERT INTO scores (tournament, round, parallel, player, songnumber, song, chosen, score) VALUES (\n";
$song =~ s/'/\\'/g;
printf "INSERT INTO scores (tournament, round, parallel, player, songnumber, song, chosen, score) VALUES (\n";
print " $round, $group,\n";
print " (SELECT player FROM players WHERE nick='$player'),\n";
print " $i,\n";
print " $round, $group,\n";
print " (SELECT player FROM players WHERE nick='$player'),\n";
print " $i,\n";
- printf "INSERT INTO players SELECT nextval('players_player_seq') AS player, '%s' AS nick WHERE '%s' NOT IN ( SELECT nick FROM players );\n", $nick, $nick;
+ printf "INSERT INTO players SELECT nextval('players_player_seq') AS player, '%s' AS nick, ( SELECT country FROM countries WHERE countryname='Norway' ) AS country WHERE '%s' NOT IN ( SELECT nick FROM players );\n", $nick, $nick;
print "INSERT INTO tournamentrankings (tournament, ranking, player, points) VALUES (\n";
print " (SELECT tournament FROM tournaments WHERE tournamentname='$name' AND season=( SELECT season FROM seasons WHERE seasonname='$season' )),\n";
print "INSERT INTO tournamentrankings (tournament, ranking, player, points) VALUES (\n";
print " (SELECT tournament FROM tournaments WHERE tournamentname='$name' AND season=( SELECT season FROM seasons WHERE seasonname='$season' )),\n";
- printf "INSERT INTO players SELECT nextval('players_player_seq') AS player, '%s' AS nick WHERE '%s' NOT IN ( SELECT nick FROM players );\n", $nick, $nick;
+ printf "INSERT INTO players SELECT nextval('players_player_seq') AS player, '%s' AS nick, ( SELECT country FROM countries WHERE countryname='Norway' ) AS country WHERE '%s' NOT IN ( SELECT nick FROM players );\n", $nick, $nick;
print "INSERT INTO tournamentrankings (tournament, ranking, player, points) VALUES (\n";
print " (SELECT tournament FROM tournaments WHERE tournamentname='$name' AND season=( SELECT season FROM seasons WHERE seasonname='$season' )),\n";
print "INSERT INTO tournamentrankings (tournament, ranking, player, points) VALUES (\n";
print " (SELECT tournament FROM tournaments WHERE tournamentname='$name' AND season=( SELECT season FROM seasons WHERE seasonname='$season' )),\n";