#! /usr/bin/perl

use ccbs;
use strict;
use warnings;

my $cgi = new CGI;
my $id = $cgi->param('id');

my $dbh = ccbs::db_connect();

# FIXME: This will fail with multiple short titles.
my $songs = ccbs::db_fetch_all($dbh, 'SELECT song,title,shorttitle FROM songs NATURAL LEFT JOIN songshorttitles ORDER BY LOWER(title)');

ccbs::print_header();
ccbs::process_template('shorttitles.tmpl', 'Korte titler', {
	songs => $songs,
});
$dbh->disconnect;
