--- loncom/interface/lonblockingstatus.pm 2009/07/07 19:50:47 1.1 +++ loncom/interface/lonblockingstatus.pm 2009/07/09 12:53:28 1.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # displays the blocking status table # -# $Id: lonblockingstatus.pm,v 1.1 2009/07/07 19:50:47 droeschl Exp $ +# $Id: lonblockingstatus.pm,v 1.2 2009/07/09 12:53:28 kalberla Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,8 +44,8 @@ sub handler { 'Communication Blocking Status Information', undef, {'only_body' => 1, })); - my $table = 'Status table goes here'; - $r->print($table); + my ($blocked, $blocktext) = &Apache::loncommon::blocking_status_print('boards'); + $r->print($blocktext); $r->print(Apache::loncommon::end_page()); return OK;