while (my $thread = $threads->fetchrow_hashref){
if ($category->{fcid} != $thread->{fcid}){
delete $category->{fcid};
$category = {fcid => $thread->{fcid}, category => $thread->{category}};
push @categories,$category;
}
while (my $thread = $threads->fetchrow_hashref){
if ($category->{fcid} != $thread->{fcid}){
delete $category->{fcid};
$category = {fcid => $thread->{fcid}, category => $thread->{category}};
push @categories,$category;
}
- if ($board->{fbid} != $thread->{fbid}){
- delete $board->{fbid};
- $board = {fbid => $thread->{fbid}, board => $thread->{board}};
+ if ($board->{id} != $thread->{fbid}){
+ $board = {id => $thread->{fbid}, board => $thread->{board}};
push @{$board->{Threads}},$thread;
}
delete $category->{fcid};
push @{$board->{Threads}},$thread;
}
delete $category->{fcid};