Changeset 76 for trunk/dns.cgi

Timestamp:

02/17/11 17:28:05 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Finalize record-list click-the-column-header-to-sort - mostly

a matter of copy-pasting the appropriate bits from the domain,
group, or user list setup, and adding a few tweaks specific
to the record list page

File:

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

trunk/dns.cgi

@@ -57 +57 @@
   $session->param('grpmansortby','group');
   $session->param('grpmanorder','ASC');
-  $session->param('reclistsortby','name');
+  $session->param('reclistsortby','host');
   $session->param('reclistorder','ASC');
 #  $session->param('filter','login');
@@ -251 +251 @@
     $sth->execute($webvar{id});
     my ($count) = ($sth->fetchrow_array);
+
+#  $sortby = 'host';
+# sort/order
+  $session->param($webvar{page}.'sortby', $webvar{sortby}) if $webvar{sortby};
+  $session->param($webvar{page}.'order', $webvar{order}) if $webvar{order};
+
+  $sortby = $session->param($webvar{page}.'sortby');
+  $sortorder = $session->param($webvar{page}.'order');
 
 ##work
@@ -1109 +1117 @@
   $filter = $session->param($webvar{page}.'filter');
 
-#  my @foo2 = getDomRecs($dbh,'def',1);
-  my $foo2 = getDomRecs($dbh,$def,$id,$perpage,$webvar{offset});
+  my $foo2 = getDomRecs($dbh,$def,$id,$perpage,$webvar{offset},$sortby,$sortorder);
 
   my $row = 0;