sub getParentCategory {
  my ($child) = @_;
  my $res = getDb()->selectrow_arrayref("SELECT parent FROM categories WHERE id=$child");
  return $res ? $res->[0] : undef;
}