--- loncom/auth/lonroles.pm 2009/04/14 23:52:07 1.219 +++ loncom/auth/lonroles.pm 2009/05/17 23:34:05 1.221 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # User Roles Screen # -# $Id: lonroles.pm,v 1.219 2009/04/14 23:52:07 raeburn Exp $ +# $Id: lonroles.pm,v 1.221 2009/05/17 23:34:05 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -444,11 +444,12 @@ ENDENTERKEY &Apache::lonnet::appenv( {"request.course.id" => $cdom.'_'.$cnum}); $furl='/adm/roles?tryagain=1'; - $msg= - '
' + .&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; } &Apache::lonnet::appenv({'request.role.adv'=>$tadv}); @@ -533,6 +534,12 @@ ENDENTERKEY $redirect_url); return OK; } + if ($role eq 'sc') { + my $redirect_url = '/adm/grades?command=scantronupload'; + &redirect_user($r,&mt('Loading Data Upload Page'), + $redirect_url); + return OK; + } } } }