Turn tempfile cleanup back on.

[wloh] / www / index.pl

diff --git a/www/index.pl b/www/index.pl
index 5f1d2a394a7586b449b565331955e5d5f1ed5452..0e8a5a16dcf5d4ce753469fc56b5b73873a0b5c7 100755 (executable)
--- a/www/index.pl
+++ b/www/index.pl
@@ -39,12 +39,6 @@ sub color {
        return int(255.0 * ($x ** (1.80)));
 }
 
-sub get_max_season {
-       my $dbh = shift;
-       my $ref = $dbh->selectrow_hashref('SELECT MAX(sesong) AS max_sesong FROM fotballserier');
-       return $ref->{'max_sesong'};
-}
-
 sub get_divisions {
        my ($dbh, $season) = @_;
 
@@ -224,7 +218,18 @@ sub make_table {
        ++$num_tables;
 
        print <<"EOF";
-
+    <script type="text/javascript">
+    <!--
+function showScenario(element_id, url) {
+    var obj = document.getElementById(element_id);
+    var parent = obj.parentElement;
+    parent.removeChild(obj);
+    obj = obj.cloneNode(false);
+    obj.data = url;
+    parent.appendChild(obj);
+}
+    //-->
+    </script>
     <table class="probmatrix">
       <tr>
         <th></th>
@@ -243,7 +248,7 @@ EOF
                $prob{$player} = [ @x[1..$#x] ];
        }
        close MCCALC;
-       #unlink $tmpnam;
+       unlink $tmpnam;
 
        my $num_games = scalar keys %prob;
        for my $i (1..$num_games) {
@@ -275,7 +280,7 @@ EOF
                        if (scalar @matches == $num_total_games || $prob{$player}->[$i - 1] == $trials) {
                                printf "        <td style=\"background-color: rgb($r, $g, $b)\" class=\"num\">%.1f%%</td>\n", $pn * 100.0;
                        } else {
-                               printf "        <td style=\"background-color: rgb($r, $g, $b)\" class=\"num\"><a class=\"unmarkedlink\" href=\"javascript:var obj=document.getElementById('scenario$num_tables');var parent=obj.parentElement;parent.removeChild(obj);obj=obj.cloneNode();obj.data = '/?divisjon=$division;avdeling=$subdivision;spiller=$pnum;posisjon=$i';parent.appendChild(obj);\">%.1f%%</a></td>\n", $pn * 100.0;
+                               printf "        <td style=\"background-color: rgb($r, $g, $b)\" class=\"num\"><a class=\"unmarkedlink\" href=\"javascript:showScenario('scenario$num_tables', '/?divisjon=$division;avdeling=$subdivision;spiller=$pnum;posisjon=$i');\">%.1f%%</a></td>\n", $pn * 100.0;
                        }
                }
 
@@ -350,7 +355,7 @@ my $subdivision = $cgi->param('avdeling') // -1;
 my $match_player = $cgi->param('spiller');
 my $match_position = $cgi->param('posisjon');
 
-my $season = get_max_season($dbh);
+my $season = wloh_common::get_max_season($dbh);
 my @divisions = get_divisions($dbh, $season);
 $division = 1 if (!grep { $_ == $division } @divisions);
 my @subdivisions = get_subdivisions($dbh, $season, $division);
@@ -377,7 +382,7 @@ if (defined($match_player) && defined($match_position)) {
                push @scenario, [ $1, $2, $3 ];
        }
        close MCCALC;
-       #unlink $tmpnam;
+       unlink $tmpnam;
 
        my @sorted_players = sort { $players{$a} cmp $players{$b} } keys %players;
        my $player_name = $players{$sorted_players[$match_player]};