Index: trunk/dns.cgi
===================================================================
--- trunk/dns.cgi	(revision 68)
+++ trunk/dns.cgi	(revision 69)
@@ -1008,4 +1008,5 @@
   my $root = shift;
   my $cur = shift;
+  my $indent = shift || '    ';
 
   my @childlist;
@@ -1015,13 +1016,14 @@
   return if $#childlist == -1;
   my @grouplist;
-  my $foome = 0;
   foreach (@childlist) {
     my %row;
     $row{grpname} = groupName($dbh,$_);
-    $row{grpname} = "<b>$row{grpname}</b>" if $_ == $cur;
-    $row{subs} = fill_grptree($_,$cur);
-    $row{last} = 1 if ++$foome > $#childlist;
+	# for all that HTML::Template is supposed to keep the HTML out of the Perl, this is so much more compact...
+    $row{grpdisp} = ($_ == $cur ? "<b>$row{grpname}</b>" : $row{grpname});
+    $row{subs} = fill_grptree($_,$cur,$indent.'    ');
+    $row{indent} = $indent;
     push @grouplist, \%row;
   }
+  $grptree->param(indent => $indent);
   $grptree->param(treelvl => \@grouplist);
   return $grptree->output;