Changeset 185
Legend:
- Unmodified
- Added
- Removed
-
trunk/DNSDB.pm
r175 r185 1520 1520 ##fixme: do we care about trying to return a "no such record/domain/user/group" error? 1521 1521 warn $dbh->errstr." $sql, $id" if $dbh->errstr; 1522 last;1523 1522 } 1524 1523 # group 1 is its own parent. need this here more to break strange loops than for detecting a parent -
trunk/dns.cgi
r183 r185 1604 1604 $row{grpnum} = $_; 1605 1605 $row{whereami} = $uri_self; 1606 # for all that HTML::Template is supposed to keep the HTML out of the Perl, this is so much more compact... 1607 # $row{grpdisp} = ($_ == $cur ? "<b>$row{grpname}</b>" : $row{grpname}); 1608 $row{curgrp} = ($_ == $cur); 1609 $row{expanded} = isParent($dbh, $_, 'group', $cur, 'group'); 1610 $row{expanded} = 1 if $_ == $cur; 1606 $row{curgrp} = ($_ == $cur); 1607 $row{expanded} = isParent($dbh, $_, 'group', $cur, 'group'); 1608 $row{expanded} = 1 if $_ == $cur; 1611 1609 $row{subs} = fill_grptree($_,$cur,$indent.' '); 1612 1610 $row{indent} = $indent;
Note:
See TracChangeset
for help on using the changeset viewer.