--- loncom/interface/loncommon.pm	2004/09/15 06:11:40	1.212
+++ loncom/interface/loncommon.pm	2004/09/24 22:07:34	1.214
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.212 2004/09/15 06:11:40 albertel Exp $
+# $Id: loncommon.pm,v 1.214 2004/09/24 22:07:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3699,6 +3699,13 @@ sub icon {
     return $iconname;
 } 
 
+sub connection_aborted {
+    my ($r)=@_;
+    $r->print(" ");$r->rflush();
+    my $c = $r->connection;
+    return $c->aborted();
+}
+
 =pod
 
 =back