--- loncom/loncnew	2003/08/03 00:44:31	1.17
+++ loncom/loncnew	2003/08/06 09:52:29	1.18
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # lonc maintains the connections to remote computers
 #
-# $Id: loncnew,v 1.17 2003/08/03 00:44:31 foxr Exp $
+# $Id: loncnew,v 1.18 2003/08/06 09:52:29 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -45,6 +45,9 @@
 
 # Change log:
 #    $Log: loncnew,v $
+#    Revision 1.18  2003/08/06 09:52:29  foxr
+#    Also needed to remember to fail in-flight transactions if their sends fail.
+#
 #    Revision 1.17  2003/08/03 00:44:31  foxr
 #    1. Correct handling of connection failure: Assume it means the host is
 #       unreachable and fail all of the queued transactions.  Note that the
@@ -928,6 +931,7 @@ sub LondWritable {
 	    # We'll treat this as if the socket got disconnected:
 	    Log("WARNING", "Connection to ".$RemoteHost.
 		" has been disconnected");
+	    FailTransaction($ActiveTransactions{$Socket});
 	    $Watcher->cancel();
 	    KillSocket($Socket);
 	    return;