[LON-CAPA-cvs] cvs: loncom(version_1_2_X) /interface loncommon.pm

[albertel]

albertel		Fri Sep 24 16:52:32 2004 EDT

  Modified files:              (Branch: version_1_2_X)
    /loncom/interface	loncommon.pm 
  Log:
  - backport 1.213
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.205 loncom/interface/loncommon.pm:1.205.2.1
--- loncom/interface/loncommon.pm:1.205	Tue Aug 17 14:30:14 2004
+++ loncom/interface/loncommon.pm	Fri Sep 24 16:52:32 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.205 2004/08/17 18:30:14 www Exp $
+# $Id: loncommon.pm,v 1.205.2.1 2004/09/24 20:52:32 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3651,6 +3651,14 @@
     return $iconname;
 } 
 
+sub connection_aborted {
+    my ($r)=@_;
+    $r->print(" ");$r->rflush();
+    my $c = $r->connection;
+    &Apache::lonnet::logthis("checking :".$c->aborted());
+    return $c->aborted();
+}
+
 =pod
 
 =back