[LON-CAPA-cvs] cvs: loncom /interface lonchatfetch.pm

[kalberla]

kalberla		Sun Jul 26 16:53:40 2009 EDT

  Modified files:              
    /loncom/interface	lonchatfetch.pm 
  Log:
  while communication blocking is active, chat is now redirected to blocking table popup
  
  
Index: loncom/interface/lonchatfetch.pm
diff -u loncom/interface/lonchatfetch.pm:1.34 loncom/interface/lonchatfetch.pm:1.35
--- loncom/interface/lonchatfetch.pm:1.34	Wed Feb 25 18:44:29 2009
+++ loncom/interface/lonchatfetch.pm	Sun Jul 26 16:53:40 2009
@@ -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 @@
         $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,};