|
version 1.10, 2004/06/29 14:56:32
|
version 1.11, 2004/07/15 18:58:20
|
|
Line 488 sub modify_course {
|
Line 488 sub modify_course {
|
| $newattr{'authtype'} = $ENV{'form.login'}; |
$newattr{'authtype'} = $ENV{'form.login'}; |
| $newattr{'authtype'} .= $ENV{'form.krbver'}; |
$newattr{'authtype'} .= $ENV{'form.krbver'}; |
| $newattr{'autharg'} = $ENV{'form.krbarg'}; |
$newattr{'autharg'} = $ENV{'form.krbarg'}; |
| $newattr{'autharg'} =~ tr/a-z/A-Z/; |
|
| } elsif ($ENV{'form.login'} eq 'int') { |
} elsif ($ENV{'form.login'} eq 'int') { |
| $newattr{'authtype'} ='internal'; |
$newattr{'authtype'} ='internal'; |
| if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) { |
if ((defined($ENV{'form.intarg'})) && ($ENV{'form.intarg'})) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmodifycourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface