--- loncom/lond	2009/05/13 03:01:49	1.410.2.1
+++ loncom/lond	2009/02/10 11:31:26	1.411
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.410.2.1 2009/05/13 03:01:49 raeburn Exp $
+# $Id: lond,v 1.411 2009/02/10 11:31:26 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,7 +59,7 @@ my $DEBUG = 0;		       # Non zero to ena
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.410.2.1 $'; #' stupid emacs
+my $VERSION='$Revision: 1.411 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid="default";
 my $currentdomainid;
@@ -562,8 +562,13 @@ sub InstallFile {
 
 #
 #   ConfigFileFromSelector: converts a configuration file selector
-#                 (one of host or domain at this point) into a 
-#                 configuration file pathname.
+#                 into a configuration file pathname.
+#                 It's probably no longer necessary to preserve
+#                 special handling of hosts or domain as those
+#                 files have been superceded by dns_hosts, dns_domain.
+#                 The default action is just to prepend the directory
+#                 and append .tab
+#
 #
 #  Parameters:
 #      selector  - Configuration file selector.
@@ -580,7 +585,7 @@ sub ConfigFileFromSelector {
     } elsif ($selector eq "domain") {
 	$tablefile = $tabledir."domain.tab";
     } else {
-	return undef;
+	$tablefile =  $tabledir.$selector.'.tab';
     }
     return $tablefile;
 
@@ -4309,12 +4314,12 @@ sub dump_domainroles_handler {
             my ($start,$end) = split(/:/,&unescape($value));
             my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,&unescape($key));
             unless ($startfilter eq '.' || !defined($startfilter)) {
-                if ((defined($start)) && ($start >= $startfilter)) {
+                if ($start >= $startfilter) {
                     $match = 0;
                 }
             }
             unless ($endfilter eq '.' || !defined($endfilter)) {
-                if ((defined($end)) && ($end <= $endfilter)) {
+                if ($end <= $endfilter) {
                     $match = 0;
                 }
             }