version 1.240.2.3, 2009/12/15 05:04:17
|
version 1.240.2.4, 2009/12/20 04:11:27
|
Line 449 ENDENTERKEY
|
Line 449 ENDENTERKEY
|
|
|
if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) { |
if (($cnum) && ($role ne 'ca') && ($role ne 'aa')) { |
my $msg; |
my $msg; |
|
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
if (($env{'form.orgurl'}) && |
if (($env{'form.orgurl'}) && |
Line 462 ENDENTERKEY
|
Line 464 ENDENTERKEY
|
} |
} |
$dest .= 'symb='.$env{'form.symb'}; |
$dest .= 'symb='.$env{'form.symb'}; |
} |
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
|
if (($ferr) && ($tadv)) { |
if (($ferr) && ($tadv)) { |
&error_page($r,$ferr,$dest); |
&error_page($r,$ferr,$dest); |
} else { |
} else { |
Line 482 ENDENTERKEY
|
Line 482 ENDENTERKEY
|
.'<p>'.&mt('Please try again.').'</p>' |
.'<p>'.&mt('Please try again.').'</p>' |
.'<p>'.$ferr.'</p>'; |
.'<p>'.$ferr.'</p>'; |
} |
} |
if (&Apache::lonnet::allowed('adv') eq 'F') { $tadv=1; } |
|
&Apache::lonnet::appenv({'request.role.adv'=>$tadv}); |
|
|
|
if (($ferr) && ($tadv)) { |
if (($ferr) && ($tadv)) { |
&error_page($r,$ferr,$furl); |
&error_page($r,$ferr,$furl); |