--- loncom/lonnet/perl/lonnet.pm	2004/01/29 00:53:03	1.466
+++ loncom/lonnet/perl/lonnet.pm	2004/01/30 14:42:00	1.467
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.466 2004/01/29 00:53:03 www Exp $
+# $Id: lonnet.pm,v 1.467 2004/01/30 14:42:00 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4491,7 +4491,7 @@ sub current_machine_domains {
     my $hostname=$hostname{$perlvar{'lonHostID'}};
     my @domains;
     while( my($id, $name) = each(%hostname)) {
-	&logthis("-$id-$name-$hostname-");
+#	&logthis("-$id-$name-$hostname-");
 	if ($hostname eq $name) {
 	    push(@domains,$hostdom{$id});
 	}
@@ -4503,7 +4503,7 @@ sub current_machine_ids {
     my $hostname=$hostname{$perlvar{'lonHostID'}};
     my @ids;
     while( my($id, $name) = each(%hostname)) {
-	&logthis("-$id-$name-$hostname-");
+#	&logthis("-$id-$name-$hostname-");
 	if ($hostname eq $name) {
 	    push(@ids,$id);
 	}