Changeset 42 for trunk/dns.cgi

Timestamp:

12/07/09 17:33:42 (15 years ago)

Author:

Kris Deugau

Message:

/trunk

checkpoint - start coding support for filter/search on groups

File:

• trunk/dns.cgi (modified) (3 diffs)

trunk/dns.cgi

@@ -656 +656 @@
   $page->param(grptree => $tmpgrplist);
 
+  $page->param(inlogingrp => $curgroup == $logingroup);
+
   # stuff for menu group change.  nb: this is icky.
   fill_grouplist("grouplist");
@@ -664 +666 @@
   $tmp_ruri =~ s/\&action=[^&]+//g;
 # and any bits from the "starts with" letter block - (ab)using this widget
-# to fill the bulk of the URI so the template doesn't grow to insanity
+# to fill the bulk of the URI so various templates don't grow to insanity
   $tmp_ruri =~ s/\&startwith=[a-z09-]+//g;
 #  $page->param(whereami => $ENV{REQUEST_URI});
@@ -999 +1001 @@
   fill_fpnla($count);
 
+  $sortby = 'group';
+# sort/order
+  $sortby = $webvar{sortby} if $webvar{sortby};
+  $sortorder = $webvar{order} if $webvar{order};
+
+if (0){
+##fixme: yick
+  if ($sortby eq 'group') {
+    $page->param(grporder => ($sortorder eq 'ASC' ? 'DESC' : 'ASC'));
+    $page->param(parentorder => 'ASC');
+    $page->param(nusersorder => 'ASC');
+    $page->param(ndomainsorder => 'ASC');
+    $page->param(sortgrp => 1);
+  } elsif ($sortby eq 'parent') {
+    $page->param(grporder => 'ASC');
+    $page->param(parentorder => ($sortorder eq 'ASC' ? 'DESC' : 'ASC'));
+    $page->param(nusersorder => 'ASC');
+    $page->param(ndomainsorder => 'ASC');
+    $page->param(sortparent => 1);
+  } elsif ($sortby eq 'nusers') {
+    $page->param(grporder => 'ASC');
+    $page->param(parentorder => 'ASC');
+    $page->param(nusersorder => ($sortorder eq 'ASC' ? 'DESC' : 'ASC'));
+    $page->param(ndomainsorder => 'ASC');
+    $page->param(sortnusers => 1);
+  } elsif ($sortby eq 'ndomains') {
+    $page->param(grporder => 'ASC');
+    $page->param(parentorder => 'ASC');
+    $page->param(nusersorder => 'ASC');
+    $page->param(ndomainsorder => ($sortorder eq 'ASC' ? 'DESC' : 'ASC'));
+    $page->param(sortndomains => 1);
+  } else {
+    $page->param(grporder => 'ASC');
+    $page->param(parentorder => 'ASC');
+    $page->param(nusersorder => 'ASC');
+    $page->param(ndomainsorder => 'ASC');
+  }
+
+  $page->param(sortorder => $sortorder);
+}
+
+my @cols = ('group','parent','nusers','ndomains');
+
+my @headings;
+
+  $sortorder = $webvar{sortorder} if $webvar{sortorder};
+foreach my $colhead (@cols) {
+  my %coldata;
+  $coldata{firstcol} = 1 if $colhead eq $cols[0];
+  $coldata{sid} = $sid;
+  $coldata{page} = $webvar{page};
+  $coldata{offset} = $webvar{offset} if $webvar{offset};
+  $coldata{sortby} = $colhead;
+  if ($colhead eq $sortby) {
+push @debugbits, "$colhead $sortby $sortorder<br>\n";
+    $coldata{order} = ($sortorder eq 'ASC' ? 'DESC' : 'ASC');
+    $coldata{sortorder} = $sortorder;
+  } else {
+    $coldata{order} = 'ASC';
+  }
+  push @headings, \%coldata;
+}
+
+$page->param(colheads => \@headings);
+
   my @grouplist;
   $sth = $dbh->prepare("SELECT g.group_id, g.group_name, g2.group_name, ".