+ if ($board->{moderate}){
+ $categories->execute or $ND::ERROR .= p($DBH->errstr);
+ my @categories;
+ while (my $category = $categories->fetchrow_hashref){
+ $boards->execute($category->{id},$ND::UID) or $ND::ERROR .= p($DBH->errstr);
+ my @boards;
+ while (my $b = $boards->fetchrow_hashref){
+ next if (not $b->{post} or $b->{id} == $board->{id});
+ delete $b->{post};
+ push @boards,$b;
+ }
+ $category->{Boards} = \@boards;
+ delete $category->{id};
+ push @categories,$category if @boards;
+ }
+ $BODY->param(Categories => \@categories);
+ }
+