Changeset 383 for trunk/DNSDB.pm

Timestamp:

08/13/12 17:26:35 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Checkpoint adding location support to UI. See #10.

• Add location entries to new domain, record list, and record add/edit templates
• Add UI sub to fill location dropdown on new domain and record add/edit templates
• Fix thinko in initial setting of location_view permission
• Handle display properly if user does not have location_view permission
• Add DB-interfacing subs in DNSDB.pm to get the default location set on a zone, and to return a list of locations suitable for a UI dropdown

File:

• trunk/DNSDB.pm (modified) (4 diffs)

trunk/DNSDB.pm

@@ -42 +42 @@
         &loadConfig &connectDB &finish
         &addDomain &delZone &domainName &revName &domainID &revID &addRDNS
-        &getZoneCount &getZoneList
+        &getZoneCount &getZoneList &getZoneLocation
         &addGroup &delGroup &getChildren &groupName
         &getGroupCount &getGroupList
@@ -69 +69 @@
                 &loadConfig &connectDB &finish
                 &addDomain &delZone &domainName &revName &domainID &revID &addRDNS
-                &getZoneCount &getZoneList
+                &getZoneCount &getZoneList &getZoneLocation
                 &addGroup &delGroup &getChildren &groupName
                 &getGroupCount &getGroupList
@@ -2182 +2182 @@
 
 
+## DNSDB::getZoneLocation()
+# Retrieve the default locatino for a zone.
+# Takes a database handle, forward/reverse flag, and zone ID
+sub getZoneLocation {
+  my $dbh = shift;
+  my $revrec = shift;
+  my $zoneid = shift;
+
+  my ($loc) = $dbh->selectrow_array("SELECT default_location FROM ".
+        ($revrec eq 'n' ? 'domains WHERE domain_id = ?' : 'revzones WHERE rdns_id = ?'),
+        undef, ($zoneid));
+  return $loc;
+} # end getZoneLocation()
+
+
 ## DNSDB::addGroup()
 # Add a group
@@ -3101 +3116 @@
 
 ## DNSDB::getLocDropdown()
+# Get a list of location names for use in a dropdown menu.
+# Takes a database handle, current group, and optional "tag this as selected" flag.
+# Returns a reference to a list of hashrefs suitable to feeding to HTML::Template
+sub getLocDropdown {
+  my $dbh = shift;
+  my $grp = shift;
+  my $sel = shift || '';
+
+  my $sth = $dbh->prepare(qq(
+        SELECT description,location FROM locations
+        WHERE group_id=?
+        ORDER BY description
+        ) );
+  $sth->execute($grp);
+
+  my @loclist;
+  push @loclist, { locname => "(None/public)", loc => '', selected => ($sel ? 0 : ($sel eq '' ? 1 : 0)) };
+  while (my ($locname, $loc) = $sth->fetchrow_array) {
+    my %row = (
+        locname => $locname,
+        loc => $loc,
+        selected => ($sel eq $loc ? 1 : 0)
+        );
+    push @loclist, \%row;
+  }
+  return \@loclist;
+} # end getLocDropdown()