Changeset 446 for trunk/dns.cgi

Timestamp:

01/04/13 17:06:46 (11 years ago)

Author:

Kris Deugau

Message:

/trunk

Fine-tune new reverse zone process to support setting a default
location.
Also make sure that an initial new location will be created as a
two-character alphabetic ID, since we're being paranoid about what
tinydns will accept for these.

File:

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

trunk/dns.cgi

@@ -449 +449 @@
 
   fill_grouplist("grouplist");
+  my $loclist = getLocDropdown($dbh, $curgroup);
+  $page->param(loclist => $loclist);
 
   # prepopulate revpatt with the matching default record
@@ -473 +475 @@
 
   my ($code,$msg) = addRDNS($dbh, $webvar{revzone}, $webvar{revpatt}, $webvar{group},
-        ($webvar{makeactive} eq 'on' ? 1 : 0));
+        ($webvar{makeactive} eq 'on' ? 1 : 0), $webvar{location});
 
   if ($code eq 'OK') {