sub do_tree {
# --------------------------------------------------------
# this is the tree loop that call itself to display records in 
# tree form.  pass it some record ids and see what happens!

  my %rec = &get_record ($_[0]);
  # get all the kids; weed out empty ones
  my @children = sort grep( {length} , split (/ /, $rec{'Children'})); 

  # no kids?  actually display the record then
  print "<li>[$rec{'ID'}] $rec{'Subject'}</li>\n" unless ($#children);

  # kinds actually exist? display them...
  print "<li>[$rec{'ID'}] $rec{'Subject'}<ul>\n";
  do_tree($child) for my $child (@children);
  print "</ul></li>\n";
}