Changeset 812 for trunk/cgi-bin

Timestamp:

03/08/16 13:56:43 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Update listSummary() to slice by VRF. See #54.

File:

• trunk/cgi-bin/IPDB.pm (modified) (1 diff)

trunk/cgi-bin/IPDB.pm

@@ -896 +896 @@
 sub listSummary {
   my $dbh = shift;
-
-  my $mlist = $dbh->selectall_arrayref("SELECT cidr AS master,id,vrf FROM allocations ".
-        "WHERE type='mm' ORDER BY cidr",
-        { Slice => {} });
+  my $vrf = shift;
+
+  my $mlist = $dbh->selectall_arrayref("SELECT cidr AS master,id FROM allocations ".
+        "WHERE type='mm' AND vrf = ? ORDER BY cidr",
+        { Slice => {} }, $vrf);
 
   foreach (@{$mlist}) {