--- loncom/lonnet/perl/lonnet.pm	2007/04/04 00:10:15	1.863
+++ loncom/lonnet/perl/lonnet.pm	2007/04/04 00:48:23	1.864
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.863 2007/04/04 00:10:15 albertel Exp $
+# $Id: lonnet.pm,v 1.864 2007/04/04 00:48:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7685,7 +7685,12 @@ sub get_dns {
 	    $domain{$name} = \%this_domain;
 	}
     }
-    
+
+    sub reset_domain_info {
+	undef($loaded);
+	undef(%domain);
+    }
+
     sub load_domain_tab {
 	&get_dns('/adm/dns/domain',\&parse_domain_tab);
 	my $fh;
@@ -7733,6 +7738,15 @@ sub get_dns {
 	    }
 	}
     }
+    
+    sub reset_hosts_info {
+	&reset_domain_info();
+	&reset_hosts_ip_info();
+	undef(%hostname);
+	undef(%hostdom);
+	undef(%libserv);
+	undef($loaded);
+    }
 
     sub load_hosts_tab {
 	&get_dns('/adm/dns/hosts',\&parse_hosts_tab);
@@ -7819,6 +7833,12 @@ sub get_dns {
 	}
 	return;
     }
+    
+    sub reset_hosts_ip_info {
+	undef(%iphost);
+	undef(%name_to_ip);
+	undef(%lonid_to_ip);
+    }
 
     sub get_host_ip {
 	my ($lonid) = @_;
@@ -7838,7 +7858,7 @@ sub get_dns {
 	if (%iphost) { return %iphost; }
 	my %hostname = &all_hostnames();
 	foreach my $id (keys(%hostname)) {
-	    my $name=$hostname{$id};
+	    my $name=&hostname($id);
 	    my $ip;
 	    if (!exists($name_to_ip{$name})) {
 		$ip = gethostbyname($name);