--- loncom/interface/lonchatfetch.pm	2009/02/25 16:39:54	1.33
+++ 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.33 2009/02/25 16:39:54 hauer 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,};
@@ -223,7 +229,7 @@ sub blockstatus {
     if ($startblock && $endblock) {
         $blocked = 1;
         my $endblocktime = &Apache::lonlocal::locallocaltime($endblock);
-        $output .= &mt('Chat Room will be unavailable to you until [_1] because communication is blocked in one or more of your courses: <br /><br />',$endblocktime); 
+        $output .= &mt('Chat Room will be unavailable to you until [_1] because communication is blocked in one or more of your courses:',$endblocktime).'<br /><br />';
         foreach my $course (keys(%setters)) {
             my %courseinfo=&Apache::lonnet::coursedescription($course);
             for (my $i=0; $i<@{$setters{$course}{staff}}; $i++) {