--- loncom/interface/lonblockingstatus.pm	2009/07/09 12:53:28	1.2
+++ loncom/interface/lonblockingstatus.pm	2009/07/26 20:39:46	1.3
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # displays the blocking status table
 #
-# $Id: lonblockingstatus.pm,v 1.2 2009/07/09 12:53:28 kalberla Exp $
+# $Id: lonblockingstatus.pm,v 1.3 2009/07/26 20:39:46 kalberla Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,6 +31,21 @@ package Apache::lonblockingstatus;
 use strict;
 use Apache::Constants qw(:common);
 use Apache::loncommon();
+use Apache::lonnet;
+use GDBM_File;
+use POSIX qw(strftime mktime);
+use Apache::lonmenu();
+use Apache::lonenc();
+use Apache::lonlocal;
+use Apache::lonnet();
+use HTML::Entities;
+use Apache::lonhtmlcommon();
+use Apache::loncoursedata();
+use Apache::lontexconvert();
+use Apache::lonclonecourse();
+use LONCAPA qw(:DEFAULT :match);
+use DateTime::TimeZone;
+use DateTime::Locale::Catalog;
 
 sub handler {
     my $r = shift;
@@ -43,8 +58,8 @@ sub handler {
         Apache::loncommon::start_page(
             'Communication Blocking Status Information',
             undef, {'only_body' => 1, }));
-
-    my ($blocked, $blocktext) = &Apache::loncommon::blocking_status_print('boards');
+    Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['activity']);
+    my ($blocked, $blocktext) = &Apache::loncommon::blocking_status_print($env{'form.activity'});
     $r->print($blocktext);
 
     $r->print(Apache::loncommon::end_page());