--- loncom/interface/lonchatfetch.pm	2009/02/25 18:44:29	1.34
+++ loncom/interface/lonchatfetch.pm	2009/07/26 16:53:40	1.35
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Chat Fetching
 #
-# $Id: lonchatfetch.pm,v 1.34 2009/02/25 18:44:29 bisitz Exp $
+# $Id: lonchatfetch.pm,v 1.35 2009/07/26 16:53:40 kalberla Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -178,10 +178,16 @@ sub handler {
         $refresh_cmd .= "&group=$group";
     }
     my $headarg;
-    my ($blocked,$blocktext) = &blockstatus();
+    my ($blocked,$blocktext) = blockstatus();
     if ($blocked) {
         $newstuff = $blocktext;
         $headarg =  {'only_body' => 1,};
+
+	$r->print(<<ENDSCRIPT);
+          <script type="text/javascript">
+            parent.location.href="/adm/blockingstatus/?activity=chat"
+          </script>
+ENDSCRIPT
     } else {
         $headarg = {'redirect'  => [5,$refresh_cmd,1],
                                     'only_body' => 1,};