Help for this page

Select Code to Download

Select or download this

if (@children) {
  print "<li>[$rec{'ID'}] $rec{'Subject'}<ul>\n";
  for my $child (sort @children) {
...
  }
  print "</ul></li>\n";
}