version 1.218, 2009/04/11 21:42:58
|
version 1.221, 2009/05/17 23:34:05
|
Line 423 ENDENTERKEY
|
Line 423 ENDENTERKEY
|
if (($env{'form.orgurl'}) && |
if (($env{'form.orgurl'}) && |
($env{'form.orgurl'}!~/^\/adm\/flip/)) { |
($env{'form.orgurl'}!~/^\/adm\/flip/)) { |
my $dest=$env{'form.orgurl'}; |
my $dest=$env{'form.orgurl'}; |
|
if ($env{'form.symb'}) { |
|
if ($dest =~ /\?/) { |
|
$dest .= '&'; |
|
} else { |
|
$dest .= '?' |
|
} |
|
$dest .= 'symb='.$env{'form.symb'}; |
|
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
if (($ferr) && ($tadv)) { |
if (($ferr) && ($tadv)) { |
Line 436 ENDENTERKEY
|
Line 444 ENDENTERKEY
|
&Apache::lonnet::appenv( |
&Apache::lonnet::appenv( |
{"request.course.id" => $cdom.'_'.$cnum}); |
{"request.course.id" => $cdom.'_'.$cnum}); |
$furl='/adm/roles?tryagain=1'; |
$furl='/adm/roles?tryagain=1'; |
$msg= |
$msg='<p><span class="LC_error">' |
'<h1><span class="LC_error">'. |
.&mt('Could not initialize [_1] at this time.', |
&mt('Could not initialize [_1] at this time.', |
$env{'course.'.$cdom.'_'.$cnum.'.description'}) |
$env{'course.'.$cdom.'_'.$cnum.'.description'}). |
.'</span></p>' |
'</span></h1><h3>'.&mt('Please try again.').'</h3>'.$ferr; |
.'<p>'.&mt('Please try again.').'</p>' |
|
.'<p>'.$ferr.'</p>'; |
} |
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
Line 525 ENDENTERKEY
|
Line 534 ENDENTERKEY
|
$redirect_url); |
$redirect_url); |
return OK; |
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; |
|
} |
} |
} |
} |
} |
} |
} |