--- loncom/interface/loncommon.pm 2009/09/07 13:11:33 1.889 +++ loncom/interface/loncommon.pm 2009/09/25 13:51:58 1.890 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.889 2009/09/07 13:11:33 raeburn Exp $ +# $Id: loncommon.pm,v 1.890 2009/09/25 13:51:58 droeschl Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3925,23 +3925,24 @@ sub parse_block_record { } sub blocking_status { - my $blocked; my ($activity,$uname,$udom) = @_; my %setters; + + # check for active blocking my ($startblock,$endblock)=&blockcheck(\%setters,$activity,$uname,$udom); - if ($startblock && $endblock) { - $blocked = 1; - } - if(!wantarray) { - return $blocked; - } - my $output; - my $querystring; - $querystring = "?activity=$activity"; - $output .= <<"END_MYBLOCK"; - END_MYBLOCK + + $output = Apache::lonhtmlcommon::scripttag($output); + my $popupUrl = "/adm/blockingstatus/$querystring"; + my $text = mt('Communication Blocked'); + $output .= <<"END_BLOCK";