--- loncom/loncnew	2003/11/21 19:27:18	1.32
+++ loncom/loncnew	2003/12/11 23:18:37	1.34
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.32 2003/11/21 19:27:18 albertel Exp $
+# $Id: loncnew,v 1.34 2003/12/11 23:18:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -305,6 +305,14 @@ sub Tick {
 	my $Socket = $ActiveTransactions{$item}->getServer();
 	$Socket->Tick();
     }
+    foreach my $item (keys %ActiveConnections) {
+	my $State = $ActiveConnections{$item}->data->GetState();
+	if ($State ne 'Idle' && $State ne 'SendingRequest' &&
+	    $State ne 'ReceivingReply') {
+	    Debug(5,"Ticking Socket $State $item");
+	    $ActiveConnections{$item}->data->Tick();
+	}
+    }
     # Do we have work in the queue, but no connections to service them?
     # If so, try to make some new connections to get things going again.
     #
@@ -350,7 +358,7 @@ Trigger disconnections of idle sockets.
 
 sub SetupTimer {
     Debug(6, "SetupTimer");
-    Event->timer(interval => 1, debug => 1, cb => \&Tick );
+    Event->timer(interval => 1, cb => \&Tick );
 }
 
 =pod