From bd55f6835567a11e5a490d4a872bc778c96d1e83 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Sun, 24 Apr 2005 20:15:15 +0000 Subject: [PATCH] Combined patch (sorry): fix URL, fix points awarded. --- html/ccbs.pm | 2 +- html/do-finish-tournament.pl | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/html/ccbs.pm b/html/ccbs.pm index f5deada..d4bc6bc 100755 --- a/html/ccbs.pm +++ b/html/ccbs.pm @@ -25,7 +25,7 @@ sub print_see_other { my $location = shift; print CGI::header(-status=>'303 See other', - -location=>'http://192.168.1.200/' . $location, + -location=>'http://ccbs.sesse.net/' . $location, -type=>'text/html; charset=utf-8'); } diff --git a/html/do-finish-tournament.pl b/html/do-finish-tournament.pl index bea25b4..bf53b91 100755 --- a/html/do-finish-tournament.pl +++ b/html/do-finish-tournament.pl @@ -35,13 +35,13 @@ $dbh->disconnect; ccbs::print_see_other('show-tournament.pl?id=' . $tournament); -# gives the usual 100, 91, 83, 76. 65, 61, ... series +# gives the usual 100, 90, 81, 73, 60, 55, ... series sub points_for_place { my $n = shift; if ($n <= 10) { - return 110 - (21/2) * $n + (1/2) * $n * $n; - } elsif ($n <= 65) { - return 65 - $n; + return 111 - (23/2) * $n + (1/2) * $n * $n; + } elsif ($n <= 56) { + return 56 - $n; } else { return 0; } -- 2.39.2