my $dbh = $me->{DBHANDLE};
my %labels;

# Get all the different ids
my $sth = $dbh->prepare ("select distinct id from list_index");
$sth->execute;
$sth->bind_columns (\my $id);

my $sth2 = $dbh->prepare (qq;
    select description
    from   list_index
    where  id = ?
    order by rpt_key;
    );
$sth2->execute (0);
$sth2->bind_columns (\my $desc);

while ($sth->fetch) {
    $sth2->execute ($id);
    while ($sth2->fetch) {
        $labels{$id} = "$id - $desc";
        }
    }
$_->finish for $sth, $sth2;

return \%labels;