--- loncom/interface/loncommon.pm 2009/10/12 08:01:08 1.896 +++ loncom/interface/loncommon.pm 2009/10/22 13:13:12 1.900 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.896 2009/10/12 08:01:08 amueller Exp $ +# $Id: loncommon.pm,v 1.900 2009/10/22 13:13:12 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -4397,6 +4397,9 @@ sub bodytag { if ($env{'request.role'} !~ /^cr/) { $role = &Apache::lonnet::plaintext($role,&course_type()); } + if ($env{'request.course.sec'}) { + $role .= (' 'x2).'- '.&mt('section:').' '.$env{'request.course.sec'}; + } $realm = $env{'course.'.$env{'request.course.id'}.'.description'}; } else { $role = &Apache::lonnet::plaintext($role); @@ -4436,7 +4439,7 @@ sub bodytag { $dc_info = '('.$dc_info.')'; } - $role = "($role)" if $role; + $role = '('.$role.')' if $role; &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']); if ($env{'environment.remote'} eq 'off') { @@ -4501,7 +4504,7 @@ sub bodytag { :''.&mt('Switch to Inline Menu Mode').''); $bodytag .= qq|
-