--- loncom/auth/lonroles.pm 2006/06/22 23:22:47 1.158 +++ loncom/auth/lonroles.pm 2006/06/29 17:10:39 1.162 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.158 2006/06/22 23:22:47 albertel Exp $ +# $Id: lonroles.pm,v 1.162 2006/06/29 17:10:39 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -266,15 +266,14 @@ ENDENTERKEY } return OK; } else { - my $type = 'Course/Group'; if (!$env{'request.course.id'}) { - $type = &Apache::loncommon::course_type(); &Apache::lonnet::appenv( "request.course.id" => $cdom.'_'.$cnum); $furl='/adm/roles?tryagain=1'; $msg= '

'. - &mt('Could not initialize '.lc($type).' at this time.'). + &mt('Could not initialize [_1] at this time.', + $env{'course.'.$cdom.'_'.$cnum.'.description'}). '

'.&mt('Please try again.').'

'.$ferr; } if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } @@ -303,7 +302,8 @@ ENDENTERKEY ) { my $startpage = &courseloadpage($courseid); unless ($startpage eq 'firstres') { - $msg = &mt('Entering '.lc($type).' ....'); + $msg = &mt('Entering [_1] ....', + $env{'course.'.$courseid.'.description'}); &redirect_user($r,&mt('New in course'), '/adm/whatsnew?refpage=start',$msg, $env{'environment.remotenavmap'}); @@ -316,8 +316,10 @@ ENDENTERKEY # Guess not ... $furl=&Apache::lonpageflip::first_accessible_resource(); } - $msg = &mt('Entering '.lc($type).' ...'); - &redirect_user($r,&mt('Entering '.$type), + $msg = &mt('Entering [_1] ...', + $env{'course.'.$courseid.'.description'}); + &redirect_user($r,&mt('Entering [_1]', + $env{'course.'.$courseid.'.description'}), $furl,$msg, $env{'environment.remotenavmap'}); } @@ -362,7 +364,7 @@ ENDENTERKEY my $start_page=&Apache::loncommon::start_page('User Roles'); my $standby=&mt('Role selected. Please stand by.'); $standby=~s/\n/\\n/g; - my $helptag='
'.&Apache::loncommon::help_open_menu('','General Intro','General_Intro','User Roles',1,undef,undef,undef,undef,,&mt("Click here for help")).'
'; + my $helptag='
'.&Apache::loncommon::help_open_menu('General Intro','General_Intro',1,undef,undef,undef,undef,&mt("Click here for help")).'
'; $r->print(< @@ -516,10 +518,8 @@ ENDHEADER if ($tremark) { $tremark.='
'; } $tremark.=&mt('Defined by ').$rauthor. &mt(' at ').$rdomain.'.'; - $trole=$rrole; - } else { - $trole=Apache::lonnet::plaintext($role); - } + } + $trole=Apache::lonnet::plaintext($role); my $ttype; my $twhere; my ($tdom,$trest,$tsection)=