- my ($category) = $DBH->selectrow_array(q{SELECT category FROM forum_categories WHERE fcid = $1}
- ,undef,$board->{fcid}) or $ND::ERROR .= p($DBH->errstr);
+ my ($category) = $DBH->selectrow_array(q{SELECT category FROM forum_categories WHERE fcid = $1}
+ ,undef,$board->{fcid}) or $ND::ERROR .= p($DBH->errstr);
+ $BODY->param(Category => $category);