--- loncom/LondConnection.pm	2004/06/17 09:26:09	1.31
+++ loncom/LondConnection.pm	2004/06/17 10:15:46	1.32
@@ -1,7 +1,7 @@
 #   This module defines and implements a class that represents
 #   a connection to a lond daemon.
 #
-# $Id: LondConnection.pm,v 1.31 2004/06/17 09:26:09 foxr Exp $
+# $Id: LondConnection.pm,v 1.32 2004/06/17 10:15:46 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -42,7 +42,7 @@ use LONCAPA::lonssl;
 
 
 
-my $DebugLevel=11;
+my $DebugLevel=0;
 my %hostshash;
 my %perlvar;
 my $LocalDns = "";		# Need not be defined for managers.
@@ -153,6 +153,12 @@ Dump the internal state of the object: F
 
 sub Dump {
     my $self   = shift;
+    my $level  = shift;
+    
+    if ($level <= $DebugLevel) {
+	return;
+    }
+
     my $key;
     my $value;
     print STDERR "Dumping LondConnectionObject:\n";
@@ -315,7 +321,7 @@ sub new {
     # return the object :
 
     Debug(9, "Initial object state: ");
-    $self->Dump();
+    $self->Dump(9);
 
     return $self;
 }
@@ -978,7 +984,7 @@ sub CreateCipher {
     if($cipher) {
 	$self->{Cipher} = $cipher;
 	Debug("Cipher created  dumping socket: ");
-	$self->Dump();
+	$self->Dump(9);
 	return 1;
     }
     else {