--- loncom/auth/lonroles.pm 2006/06/27 14:10:11 1.161 +++ loncom/auth/lonroles.pm 2006/06/29 17:51:37 1.162.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.161 2006/06/27 14:10:11 albertel Exp $ +# $Id: lonroles.pm,v 1.162.2.1 2006/06/29 17:51:37 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'}); } @@ -633,7 +635,7 @@ ENDHEADER # More than one possible role # ----------------------------------------------------------------------- Table unless (($advanced) || ($nochoose)) { - $r->print("

".&mt('Select a Course/Group to Enter')."

\n"); + $r->print("

".&mt('Select a Course to Enter')."

\n"); } $r->print('
'); unless ($nochoose) { $r->print(''); } @@ -1010,7 +1012,7 @@ sub allcourses_row { my ($dcdom,$rowtype) = @_; my $output = ''. '
 
'; - foreach my $type ('Course','Group') { + foreach my $type ('Course') { my $selectlink = &courselink($dcdom,$rowtype,$type); my $ccrole = &Apache::lonnet::plaintext('cc',$type); $output.= ''.$ccrole.''.