--- loncom/loncnew	2011/01/20 11:19:37	1.94
+++ loncom/loncnew	2011/01/25 11:02:35	1.96
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.94 2011/01/20 11:19:37 foxr Exp $
+# $Id: loncnew,v 1.96 2011/01/25 11:02:35 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -559,7 +559,8 @@ sub ClientWritable {
 	    if($errno == POSIX::EWOULDBLOCK   ||
 	       $errno == POSIX::EAGAIN        ||
 	       $errno == POSIX::EINTR) {
-		# No action taken?
+		# No action taken...the socket will be writable firing the event again
+		# which will result in a retry of the write.
 	    } else {		# Unanticipated errno.
 		&Debug(5,"ClientWritable error or peer shutdown".$RemoteHost);
 		$Watcher->cancel;	# Stop the watcher.
@@ -946,7 +947,8 @@ sub LondReadable {
 	    CompleteTransaction($Socket, 
 				$ActiveTransactions{$Socket});
 	} else {
-	    Log("SUCCESS", "Connection ".$ConnectionCount." to "
+	    my $count = $Socket->GetClientData();
+	    Log("SUCCESS", "Connection ".$count." to "
 		.$RemoteHost." now ready for action");
 	}
 	ServerToIdle($Socket);	# Next work unit or idle.
@@ -1240,6 +1242,7 @@ sub MakeLondConnection {
 	    &SetupTimer;	# Need to handle timeouts with connections...
 	}
 	$ConnectionCount++;
+	$Connection->SetClientData($ConnectionCount);
 	Debug(4, "Connection count = ".$ConnectionCount);
 	if($ConnectionCount == 1) { # First Connection:
 	    QueueDelayed;
@@ -1351,8 +1354,7 @@ sub QueueTransaction {
     }
 }
 
-#-------------------------- Lonc UNIX socket handling ---------------------
-
+#-------------------------- Lonc UNIX socket handling -------------------
 =pod
 
 =head2 ClientRequest