--- loncom/interface/loncommon.pm 2003/04/03 03:08:12 1.93 +++ loncom/interface/loncommon.pm 2003/04/19 15:34:06 1.96 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.93 2003/04/03 03:08:12 www Exp $ +# $Id: loncommon.pm,v 1.96 2003/04/19 15:34:06 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1635,6 +1635,9 @@ Returns: value of designparamter $which ############################################## sub designparm { my ($which,$domain)=@_; + if ($ENV{'environment.color.'.$which}) { + return $ENV{'environment.color.'.$which}; + } $domain=&determinedomain($domain); if ($designhash{$domain.'.'.$which}) { return $designhash{$domain.'.'.$which}; @@ -1715,32 +1718,32 @@ sub bodytag { END + my $upperleft=''; if ($bodyonly) { return $bodytag; } elsif ($ENV{'browser.interface'} eq 'textual') { -# -# Accessibility rendering -# +# Accessibility return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web', $forcereg). '

LON-CAPA: '.$title.'

'; } elsif ($ENV{'environment.remote'} eq 'off') { -# -# No-Remote rendering -# +# No Remote return $bodytag.&Apache::lonmenu::menubuttons($forcereg,'web', $forcereg). - '

LON-CAPA: '.$title.'

'; - } else { + '
'.$title. +'
'; + } + # -# Remote rendering +# Top frame rendering, Remote is up # - return(< - - -$messages + +$upperleft +$messages  @@ -1761,7 +1764,6 @@ $bodytag $realm 
ENDBODY - } } ###############################################