sub delete_forum {
    
    my $self = shift;
    my $q    = $self->query;

    $self->dbh->do(	 
	q{ DELETE FROM mx_forums WHERE id=? },
	{}, 
	$_) for $q->param('forum');

    # icky, i suppose, but it's just a hunch
    my @deleted;
    push @deleted, $_ for $q->param('forum');

    return $frm->build_page( { title => "MX::FORUMS::ADD" , output => "Forum " . join ',', @deleted . " deleted." } );	

}