Changeset 816 for trunk/cgi-bin

Timestamp:

03/10/16 15:07:44 (9 years ago)

Author:

Kris Deugau

Message:

/trunk

Add getVRF() to retrieve default location for the add new master page. See #54.

Location:

trunk/cgi-bin

Files:

• IPDB.pm (modified) (1 diff)
• main.cgi (modified) (2 diffs)

trunk/cgi-bin/IPDB.pm

@@ -675 +675 @@
   return ('OK',$newvrf);
 } # end addVRF()
+
+
+## IPDB::getVRF()
+# Retrieve additional fields from DB for a VRF
+sub getVRF {
+  my $dbh = shift;
+  my $vrf = shift;
+
+  return $dbh->selectrow_hashref("SELECT comment,location FROM vrfs WHERE vrf = ?", {Slice=>{}}, $vrf);
+} # end getVRF()
 
 

trunk/cgi-bin/main.cgi

@@ -154 +154 @@
   }
 
+  my $vrf = getVRF($ip_dbh, $webvar{vrf});
+
   # Retrieve the list of DNS locations if we've got a place to grab them from
   if ($IPDB::rpc_url) {
@@ -159 +161 @@
         rpcuser => $authuser,
         group => 1,     # bleh
-        defloc => '',
+        defloc => $vrf->{location},
         );
     my $result = IPDB::_rpc('getLocDropdown', %rpcargs);