Changeset 69 for trunk/dns.cgi
- Timestamp:
- 02/16/11 11:37:48 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/dns.cgi
r68 r69 1008 1008 my $root = shift; 1009 1009 my $cur = shift; 1010 my $indent = shift || ' '; 1010 1011 1011 1012 my @childlist; … … 1015 1016 return if $#childlist == -1; 1016 1017 my @grouplist; 1017 my $foome = 0;1018 1018 foreach (@childlist) { 1019 1019 my %row; 1020 1020 $row{grpname} = groupName($dbh,$_); 1021 $row{grpname} = "<b>$row{grpname}</b>" if $_ == $cur; 1022 $row{subs} = fill_grptree($_,$cur); 1023 $row{last} = 1 if ++$foome > $#childlist; 1021 # for all that HTML::Template is supposed to keep the HTML out of the Perl, this is so much more compact... 1022 $row{grpdisp} = ($_ == $cur ? "<b>$row{grpname}</b>" : $row{grpname}); 1023 $row{subs} = fill_grptree($_,$cur,$indent.' '); 1024 $row{indent} = $indent; 1024 1025 push @grouplist, \%row; 1025 1026 } 1027 $grptree->param(indent => $indent); 1026 1028 $grptree->param(treelvl => \@grouplist); 1027 1029 return $grptree->output;
Note:
See TracChangeset
for help on using the changeset viewer.