--- loncom/interface/loncommon.pm 2009/10/13 13:18:24 1.897 +++ loncom/interface/loncommon.pm 2009/10/16 00:17:25 1.898 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.897 2009/10/13 13:18:24 wenzelju Exp $ +# $Id: loncommon.pm,v 1.898 2009/10/16 00:17:25 raeburn 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') {