Changeset 331 for trunk

Timestamp:

05/09/12 17:22:01 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Tweak getChildren() a little with a trailing sort-by-name. This
makes the ordering of groups predictable, and allows indentation
of the list in dropdowns.

This should probably be extended to be able to sort on some other
criteria.

File:

• trunk/DNSDB.pm (modified) (2 diffs)

trunk/DNSDB.pm

@@ -2134 +2134 @@
     # by definition, group 1 is the Root Of All Groups
     my $sth = $dbh->prepare("SELECT group_id FROM groups WHERE NOT (group_id=1)".
-        ($immed ne 'all' ? " AND parent_group_id=1" : ''));
+        ($immed ne 'all' ? " AND parent_group_id=1" : '')." ORDER BY group_name");
     $sth->execute;
     while (my @this = $sth->fetchrow_array) {
@@ -2140 +2140 @@
     }
   } else {
-    my $sth = $dbh->prepare("SELECT group_id FROM groups WHERE parent_group_id=?");
+    my $sth = $dbh->prepare("SELECT group_id FROM groups WHERE parent_group_id=? ORDER BY group_name");
     $sth->execute($rootgroup);
     return if $sth->rows == 0;