Changeset 402 for trunk

Timestamp:

10/04/12 13:38:42 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Oops.
Revert update to getZoneList() in r397; forgot the template gets
reused for reverse zones and the hash elements in the arrayref
myst have the same keys for both forward and reverse zones.

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -2212 +2212 @@
         ($args{offset} eq 'all' ? '' : " LIMIT $config{perpage}".
         " OFFSET ".$args{offset}*$config{perpage});
-
-  my $ret = $dbh->selectall_arrayref($sql, { Slice => {} }, (@filterargs) );
-  return $ret;
+  my $sth = $dbh->prepare($sql);
+  $sth->execute(@filterargs);
+  my $rownum = 0;
+
+  while (my @data = $sth->fetchrow_array) {
+    my %row;
+    $row{domain_id} = $data[0];
+    $row{domain} = $data[1];
+    $row{status} = $data[2];
+    $row{group} = $data[3];
+    push @zonelist, \%row;
+  }
+
+  return \@zonelist;
 } # end getZoneList()