Index: /trunk/DNSDB.pm
===================================================================
--- /trunk/DNSDB.pm	(revision 494)
+++ /trunk/DNSDB.pm	(revision 495)
@@ -49,5 +49,5 @@
 	&addLoc &updateLoc &delLoc &getLoc
 	&getLocCount &getLocList &getLocDropdown
-	&getSOA	&updateSOA &getRecLine &getDomRecs &getRecCount
+	&getSOA	&updateSOA &getRecLine &getRecList &getRecCount
 	&addRec &updateRec &delRec
 	&getLogCount &getLogEntries
@@ -77,5 +77,5 @@
 		&addLoc &updateLoc &delLoc &getLoc
 		&getLocCount &getLocList &getLocDropdown
-		&getSOA &updateSOA &getRecLine &getDomRecs &getRecCount
+		&getSOA &updateSOA &getRecLine &getRecList &getRecCount
 		&addRec &updateRec &delRec
 		&getLogCount &getLogEntries
@@ -238,4 +238,6 @@
   $self->{dbh}->disconnect;
 }
+
+sub errstr { $DNSDB::errstr; }
 
 ##
@@ -3465,10 +3467,10 @@
 
 ##fixme: should use above (getRecLine()) to get lines for below?
-## DNSDB::getDomRecs()
-# Return records for a domain
-# Takes a database handle, default/live flag, group/domain ID, start,
+## DNSDB::getRecList()
+# Return records for a group or zone
+# Takes a default/live flag, group or zone ID, start,
 # number of records, sort field, and sort order
 # Returns a reference to an array of hashes
-sub getDomRecs {
+sub getRecList {
   $errstr = '';
   my $self = shift;
@@ -3518,6 +3520,7 @@
 
   my $ret = $dbh->selectall_arrayref($sql, { Slice => {} }, (@bindvars) );
+  $errstr = "Error retrieving records: ".$dbh->errstr if !$ret;
   return $ret;
-} # end getDomRecs()
+} # end getRecList()
 
 
Index: /trunk/dns-rpc.cgi
===================================================================
--- /trunk/dns-rpc.cgi	(revision 494)
+++ /trunk/dns-rpc.cgi	(revision 495)
@@ -52,5 +52,5 @@
 	'dnsdb.getSOA'		=> \&getSOA,
 	'dnsdb.getRecLine'	=> \&getRecLine,
-	'dnsdb.getDomRecs'	=> \&getDomRecs,
+	'dnsdb.getRecList'	=> \&getRecList,
 	'dnsdb.getRecCount'	=> \&getRecCount,
 	'dnsdb.addRec'		=> \&addRec,
@@ -341,5 +341,5 @@
 }
 
-sub getDomRecs {
+sub getRecList {
   my %args = @_;
 
@@ -353,5 +353,5 @@
   $args{direction} = 'ASC' if !$args{direction};
 
-  my $ret = $dnsdb->getDomRecs(defrec => $args{defrec}, revrec => $args{revrec}, id => $args{id},
+  my $ret = $dnsdb->getRecList(defrec => $args{defrec}, revrec => $args{revrec}, id => $args{id},
 	offset => $args{offset}, sortby => $args{sortby}, sortorder => $args{sortorder},
 	filter => $args{filter});
@@ -443,5 +443,5 @@
       # We need to strip the CIDR mask on IPv4 /32 assignments, or we just add a new record all the time.
       my $filt = ($cidr->{isv6} || $cidr->masklen != 32 ? "$cidr" : $cidr->addr);
-      my $reclist = $dnsdb->getDomRecs(defrec => 'n', revrec => 'y',
+      my $reclist = $dnsdb->getRecList(defrec => 'n', revrec => 'y',
         id => $zonelist->[0]->{rdns_id}, filter => $filt);
       if (scalar(@$reclist) == 0) {
@@ -477,5 +477,5 @@
     # that spans multiple reverse zones (eg, /23 CIDR -> 2 /24 rzones)
     foreach my $zdata (@$zonelist) {
-      my $reclist = $dnsdb->getDomRecs(defrec => 'n', revrec => 'y',
+      my $reclist = $dnsdb->getRecList(defrec => 'n', revrec => 'y',
         id => $zdata->{rdns_id}, filter => $zdata->{revnet});
       if (scalar(@$reclist) == 0) {
@@ -527,5 +527,5 @@
       if ($args{delsubs}) {
         # Delete ALL EVARYTHING!!one11!! in $args{cidr}
-        my $reclist = $dnsdb->getDomRecs(defrec => 'n', revrec => 'y', id => $zonelist->[0]->{rdns_id});
+        my $reclist = $dnsdb->getRecList(defrec => 'n', revrec => 'y', id => $zonelist->[0]->{rdns_id});
         foreach my $rec (@$reclist) {
           my $reccidr = new NetAddr::IP $rec->{val};
@@ -554,5 +554,5 @@
         # We need to strip the CIDR mask on IPv4 /32 assignments, or we can't find single-IP records
         my $filt = ($cidr->{isv6} || $cidr->masklen != 32 ? "$cidr" : $cidr->addr);
-        my $reclist = $dnsdb->getDomRecs(defrec => 'n', revrec => 'y',
+        my $reclist = $dnsdb->getRecList(defrec => 'n', revrec => 'y',
           id => $zonelist->[0]->{rdns_id}, filter => $filt, sortby => 'val', sortorder => 'DESC');
         foreach my $rec (@$reclist) {
@@ -582,5 +582,5 @@
     # that spans multiple reverse zones (eg, /23 CIDR -> 2 /24 rzones)
     foreach my $zdata (@$zonelist) {
-      my $reclist = $dnsdb->getDomRecs(defrec => 'n', revrec => 'y', id => $zdata->{rdns_id});
+      my $reclist = $dnsdb->getRecList(defrec => 'n', revrec => 'y', id => $zdata->{rdns_id});
       if (scalar(@$reclist) == 0) {
 # nothing to do?  or do we (re)add a record based on the parent?
Index: /trunk/dns.cgi
===================================================================
--- /trunk/dns.cgi	(revision 494)
+++ /trunk/dns.cgi	(revision 495)
@@ -1961,5 +1961,5 @@
   $page->param(ttl	=> $soa->{ttl});
 
-  my $foo2 = $dnsdb->getDomRecs(defrec => $def, revrec => $rev, id => $id, offset => $webvar{offset},
+  my $foo2 = $dnsdb->getRecList(defrec => $def, revrec => $rev, id => $id, offset => $webvar{offset},
 	sortby => $sortby, sortorder => $sortorder, filter => $filter);
 
Index: /trunk/textrecs.cgi
===================================================================
--- /trunk/textrecs.cgi	(revision 494)
+++ /trunk/textrecs.cgi	(revision 495)
@@ -63,5 +63,5 @@
 
 ##fixme:  do we support both HTML-plain and true plaintext?  could be done, with another $webvar{}
-# Don't die on bad parameters.  Saves munging the return from getDomRecs.
+# Don't die on bad parameters.  Saves munging the return from getRecList.
 #my $page = HTML::Template->new(filename => "$templatedir/textrecs.tmpl",
 #	loop_context_vars => 1, global_vars => 1, die_on_bad_params => 0);
@@ -74,5 +74,5 @@
 print qq(Press the "Back" button to return to the standard record list.\n\n);
 
-my $reclist = $dnsdb->getDomRecs(defrec => $webvar{defrec}, revrec => $webvar{revrec}, id => $webvar{id},
+my $reclist = $dnsdb->getRecList(defrec => $webvar{defrec}, revrec => $webvar{revrec}, id => $webvar{id},
 	sortby => ($webvar{revrec} eq 'n' ? 'type,host' : 'type,val'), sortorder => 'ASC');
 foreach my $rec (@$reclist) {