--- loncom/auth/lonroles.pm 2009/04/14 23:52:07 1.219 +++ loncom/auth/lonroles.pm 2009/05/17 23:38:12 1.222 @@ -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.222 2009/05/17 23:38:12 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -170,7 +170,7 @@ $start_page $swinfo $navwindow -

$msg

+

$msg

$end_page ENDREDIR return; @@ -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; + $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; + } } } }