+ my $max_division = $divisions[$#divisions];
+ my $lowest_division = ($division == $max_division);
+ my $basic_table = make_table($locale, $aux_parms, $match_stddev, $lowest_division, {}, {}, $division, $subdivision, 'scenario1');
+ my $adjusted_table = make_table($locale, $aux_parms, $match_stddev, $lowest_division, \%ratings, $cov, $division, $subdivision, 'scenario2');
+ my $cov_table = (defined($cgi->param('showcov'))) ? make_cov_table($cov) : '';
+
+ my $avg_rating = find_avg_rating(\%ratings);
+
+ print CGI->header(-type=>'text/html; charset=utf-8', -expires=>'+5m');
+ wloh_common::process_template('index.xml', {
+ '#navbar' => wloh_common::get_navbar($cgi, $dbh, $locale),
+ '#division-selector/action' => "/$locale/",
+ '#division' => get_division_selector(\@divisions, $division),
+ '#subdivision' => get_division_selector(\@subdivisions, $subdivision),
+ '#basic-probabilities' => $basic_table,
+ '#adjusted-probabilities' => $adjusted_table,
+ 'cov-table' => $cov_table,
+ 'match-stddev' => sprintf("%.1f", $match_stddev),
+ '#average-rating' => sprintf("%.1f", $avg_rating),
+ 'last-sync' => wloh_common::get_last_sync($dbh),
+ });
+}