Shape text using Pango and HarfBuzz; gives us nice ligatures and exotic scripts.
[ccbs] / html / tournaments.pl
1 #! /usr/bin/perl
2
3 use ccbs;
4 use strict;
5 use warnings;
6
7 my $dbh = ccbs::db_connect();
8 my $tournaments = ccbs::db_fetch_all($dbh, 'SELECT * FROM tournaments NATURAL JOIN seasons ORDER BY season, date, tournamentname');
9
10 # Translate the season names
11 my @t_trans = ();
12 for my $t (@$tournaments) {
13         my %tt = %$t;
14         $tt{'seasonname'} = Locale::gettext::gettext($t->{'seasonname'});
15         push @t_trans, \%tt;
16 }
17
18 ccbs::print_header();
19 ccbs::process_template('tournaments.tmpl', _('Tournaments'), { tournaments => \@t_trans });
20 $dbh->disconnect;