--- loncom/interface/loncommon.pm 2009/07/09 08:53:39 1.853 +++ loncom/interface/loncommon.pm 2009/07/10 15:10:26 1.856 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.853 2009/07/09 08:53:39 droeschl Exp $ +# $Id: loncommon.pm,v 1.856 2009/07/10 15:10:26 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3871,8 +3871,41 @@ sub build_block_table { } $output .= &end_data_table(); } - sub blocking_status { + my $blocked = blocking_status_print(@_); + my ($activity,$uname,$udom) = @_; + if(!wantarray) { + return $blocked; + } + my $output; + my $querystring; + $querystring = "?activity=$activity"; + if(defined($uname)) { + $querystring .= "&uname=$uname"; + }if(defined($udom)) { + $querystring .= "&udom=$udom"; + } + + $output .= <<"END_MYBLOCK"; + +END_MYBLOCK + my $popupUrl = "/adm/blockingstatus/$querystring"; + $output.="\nBlocking Table"; + + return ($blocked, $output); +} +sub blocking_status_print { my ($activity,$uname,$udom) = @_; my %setters; my ($blocked,$output,$ownitem,$is_course); @@ -5513,8 +5546,7 @@ table.LC_prior_match tr td { border: 1px solid #000000; } -td.LC_nobreak, -span.LC_nobreak { +.LC_nobreak { white-space: nowrap; } @@ -6104,11 +6136,6 @@ div.LC_columnSection>* { overflow:hidden; } -.clear { - clear: both; - margin: 0; -} - .LC_loginpage_container { text-align:left; margin : 0 auto;