version 1.131, 2006/11/09 22:25:27
|
version 1.132, 2006/11/20 23:36:40
|
Line 781 END
|
Line 781 END
|
$currentauth=~/^internal:/ or |
$currentauth=~/^internal:/ or |
$currentauth=~/^localauth:/ |
$currentauth=~/^localauth:/ |
) { # bad authentication scheme |
) { # bad authentication scheme |
if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
&initialize_authen_forms(); |
&initialize_authen_forms(); |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'err' => "ERROR", |
'err' => "ERROR", |
Line 804 $lt{'uuas'} ($currentauth). $lt{'sldb'}.
|
Line 804 $lt{'uuas'} ($currentauth). $lt{'sldb'}.
|
<p>$authformloc</p> |
<p>$authformloc</p> |
ENDBADAUTH |
ENDBADAUTH |
} else { |
} else { |
# This user is not allowed to modify the users |
# This user is not allowed to modify the user's |
# authentication scheme, so just notify them of the problem |
# authentication scheme, so just notify them of the problem |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'err' => "ERROR", |
'err' => "ERROR", |
Line 813 ENDBADAUTH
|
Line 813 ENDBADAUTH
|
); |
); |
$r->print(<<ENDBADAUTH); |
$r->print(<<ENDBADAUTH); |
<hr /> |
<hr /> |
<script type="text/javascript" language="Javascript"> |
|
$loginscript |
|
</script> |
|
<font color="#ff0000"> $lt{'err'}: </font> |
<font color="#ff0000"> $lt{'err'}: </font> |
$lt{'uuas'} ($currentauth). $lt{'adcs'}. |
$lt{'uuas'} ($currentauth). $lt{'adcs'}. |
<hr /> |
<hr /> |
Line 846 ENDBADAUTH
|
Line 843 ENDBADAUTH
|
"<p>$authformint</p><p>$authformfsys</p>"; |
"<p>$authformint</p><p>$authformfsys</p>"; |
} |
} |
$authformcurrent.=' <i>(will override current values)</i><br />'; |
$authformcurrent.=' <i>(will override current values)</i><br />'; |
if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('mau',$ccdomain)) { |
# Current user has login modification privileges |
# Current user has login modification privileges |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'ccld' => "Change Current Login Data", |
'ccld' => "Change Current Login Data", |
Line 864 $loginscript
|
Line 861 $loginscript
|
<h3>$lt{'enld'}</h3> |
<h3>$lt{'enld'}</h3> |
$authform_other |
$authform_other |
ENDOTHERAUTHS |
ENDOTHERAUTHS |
|
} else { |
|
if (&Apache::lonnet::allowed('mau',$env{'request.role.domain'})) { |
|
my %lt=&Apache::lonlocal::texthash( |
|
'ccld' => "Change Current Login Data", |
|
'yodo' => "You do not have privileges to modify the authentication configuration for this user.", |
|
'ifch' => "If a change is required, contact a domain coordinator for the domain", |
|
); |
|
$r->print(<<ENDNOPRIV); |
|
<hr /> |
|
<h3>$lt{'ccld'}</h3> |
|
$lt{'yodo'} $lt{'ifch'}: $ccdomain |
|
ENDNOPRIV |
|
} |
} |
} |
} ## End of "check for bad authentication type" logic |
} ## End of "check for bad authentication type" logic |
} ## End of new user/old user logic |
} ## End of new user/old user logic |