Changeset 72 for trunk/dns.cgi

Timestamp:

02/16/11 18:04:21 (13 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint - adding sort-on-title-click to record list columns

• HTML seems complete
• Still need to store sort type, direction in session
• Still need to pass sort info into record retrieval sub in DNSDB.pm

File:

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

trunk/dns.cgi

@@ -252 +252 @@
     my ($count) = ($sth->fetchrow_array);
 
+##work
+# set up the headers
+  my @cols = ('host', 'type', 'val', 'distance', 'weight', 'port', 'ttl');
+  my %colheads = (host => 'Name', type => 'Type', val => 'Address',
+        distance => 'Distance', weight => 'Weight', port => 'Port', ttl => 'TTL');
+  my %custom = (id => $webvar{id}, defrec => $webvar{defrec});
+  fill_colheads($sortby, $sortorder, \@cols, \%colheads, \%custom);
+
 # fill the page-count and first-previous-next-last-all details
   fill_pgcount($count,"records",domainName($dbh,$webvar{id}));
@@ -1097 +1105 @@
   $page->param(minttl   => $soa{minttl});
   $page->param(ttl      => $soa{ttl});
+
+  $startwith = $session->param($webvar{page}.'startwith');
+  $filter = $session->param($webvar{page}.'filter');
 
 #  my @foo2 = getDomRecs($dbh,'def',1);
@@ -1484 +1495 @@
   my $cols = shift;
   my $colnames = shift;
+  my $custom = shift;
 
   my @headings;
@@ -1501 +1513 @@
       $coldata{order} = 'ASC';
     }
+    if ($custom) {
+      foreach my $ckey (keys %$custom) {
+        $coldata{$ckey} = $custom->{$ckey};
+      }
+    }
     push @headings, \%coldata;
   }