--- /dev/null
+#! /usr/bin/perl
+
+use ccbs;
+use strict;
+use warnings;
+
+my $dbh = ccbs::db_connect();
+
+my $ref = $dbh->selectrow_hashref('SELECT COUNT(*) AS num_used FROM randomsongsused');
+
+ccbs::print_header();
+ccbs::process_template('randomsongs.tmpl', 'Sangvelger', {
+ num_used => $ref->{'num_used'}
+ });
+
+$dbh->disconnect;
<ul>
<li><a href="tournaments.pl">Turneringer</a></li>
<li><a href="add-tournament.pl">Legg til turnering</a></li>
+ <li><a href="randomsongs.pl">Sangvelger</a></li>
</ul>
</div>
--- /dev/null
+[%# vim:set filetype=html: %]
+<div>
+ <p>For øyeblikket er <strong>[% num_used %]</strong> sanger satt som
+ brukt i sangvelgeren. Nullstiller du sangvelgeren, går den tilbake
+ til 0 og alle sanger kan potensielt trekkes ut når du lager en ny
+ gruppe.</p>
+
+ <form action="do-reset-randomsongs.pl" method="post">
+ <p><input type="submit" value="Nullstill sangvelger" /></p>
+ </form>
+</div>