sub display_address {
    my $self = shift;

    my $tmpl   = $self->load_tmpl( 'display_address.tmpl' );
    my $schema = $self->param( 'schema' );
    my $q      = $self->query;

    # Retrieve the parameters
    my $street = $q->param( 'street' );
    my $house  = $q->param( 'house' );

    my @people;
    {
        my $roster = $schema->Roster;
        my $history = $schema->History;
        my $roster_fk = $history->RosterFk;
        my $election = $schema->Election;
        my $election_date = $election->Date;
        my $election_desc = $election->Desc;

        my $people = $roster->rows_where(
            where => [ [ $roster->StreetFk,    '=', $street ],
                       [ $roster->HouseNumber, '=', $house ] ],
            order_by => [ $roster->Name ] );

        # Retrieve the result set into an array
        while (my $person = $people->next) {
            my @votes = $schema->join(
                join     => [ $history, $election ],
                select   => [ $election ],
                where    => [ $roster_fk, '=', $person->SosId ],
                order_by => [ $election_date, $election_desc ],
                )->all_rows;

            # Fetch the values from the selected data
            @votes = map $_->Date.': '.$_->Desc, @votes;

            push @people, { History => join("<br />",@votes),
                            Name => $person->Name };
        }
    }

    $tmpl->param('people', \ @people);

    return $tmpl->output;
}