--- loncom/interface/loncommon.pm 2012/05/06 22:09:14 1.1074 +++ loncom/interface/loncommon.pm 2012/05/15 23:01:24 1.1075.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1074 2012/05/06 22:09:14 raeburn Exp $ +# $Id: loncommon.pm,v 1.1075.2.1 2012/05/15 23:01:24 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -5058,13 +5058,14 @@ sub bodytag { # } - if ($env{'request.noversionuri'} =~ m{^/res/adm/pages/}) { - if ($dc_info) { - $dc_info = qq|$dc_info|; - } - $bodytag .= qq|
$name $role
- $realm $dc_info
|; + unless ($env{'request.noversionuri'} =~ m{/res/adm/pages/bookmarkmenu/}) { + if ($dc_info) { + $dc_info = qq|$dc_info|; + } + $bodytag .= qq|
$name $role
+ $realm $dc_info
|; + } return $bodytag; } @@ -7655,16 +7656,21 @@ sub validate_page { sub start_scrollbox { - my ($outerwidth,$width,$height,$id)=@_; + my ($outerwidth,$width,$height,$id,$bgcolor)=@_; unless ($outerwidth) { $outerwidth='520px'; } unless ($width) { $width='500px'; } unless ($height) { $height='200px'; } - my ($table_id,$div_id); + my ($table_id,$div_id,$tdcol); if ($id ne '') { $table_id = " id='table_$id'"; $div_id = " id='div_$id'"; } - return "
"; + if ($bgcolor ne '') { + $tdcol = "background-color: $bgcolor;"; + } + return <<"END"; +
+END } sub end_scrollbox {