--- loncom/auth/lonroles.pm 2002/08/08 19:29:30 1.40 +++ loncom/auth/lonroles.pm 2003/02/04 16:25:37 1.51 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.40 2002/08/08 19:29:30 matthew Exp $ +# $Id: lonroles.pm,v 1.51 2003/02/04 16:25:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -36,9 +36,7 @@ # 12/08,12/28, # YEAR=2001 # 01/15/01 Gerd Kortemeyer -# 02/27/01 Scott Harrison # 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer -# 12/21 Scott Harrison # 12/29 Gerd Kortemeyer # ### @@ -118,16 +116,17 @@ sub handler { &Apache::loncommon::no_cache($r); $r->send_http_header; my $swinfo=&Apache::lonmenu::rawconfig($r); + my $bodytag=&Apache::loncommon::bodytag('Switching Role'); print (<Entering Course - +$bodytag -$msg +

$msg

ENDREDIR @@ -138,7 +137,7 @@ ENDREDIR } } } - + # =============================================================== No Roles Init @@ -148,11 +147,16 @@ ENDREDIR return OK if $r->header_only; my $swinfo=&Apache::lonmenu::rawconfig($r); + my $bodytag=&Apache::loncommon::bodytag('User Roles'); + my $helptag=&Apache::loncommon::help_open_topic + ("General_Intro","CLICK HERE FOR HELP"); $r->print(< LON-CAPA User Roles - + +$bodytag +$helptag