|
version 1.46, 2002/08/21 17:18:08
|
version 1.47, 2002/08/22 21:05:25
|
|
Line 546 sub enroll_single_student {
|
Line 546 sub enroll_single_student {
|
| my $amode=''; |
my $amode=''; |
| my $genpwd=''; |
my $genpwd=''; |
| if ($ENV{'form.login'} eq 'krb') { |
if ($ENV{'form.login'} eq 'krb') { |
| $amode='krb4'; |
$amode='krb'; |
| |
$amode.=$ENV{'form.krbver'}; |
| $genpwd=$ENV{'form.krbarg'}; |
$genpwd=$ENV{'form.krbarg'}; |
| } elsif ($ENV{'form.login'} eq 'int') { |
} elsif ($ENV{'form.login'} eq 'int') { |
| $amode='internal'; |
$amode='internal'; |
|
Line 928 sub upfile_drop_add {
|
Line 929 sub upfile_drop_add {
|
| my $amode = ''; |
my $amode = ''; |
| my $genpwd = ''; |
my $genpwd = ''; |
| if ($ENV{'form.login'} eq 'krb') { |
if ($ENV{'form.login'} eq 'krb') { |
| $amode='krb4'; |
$amode='krb'; |
| |
$amode.=$ENV{'form.krbver'}; |
| $genpwd=$ENV{'form.krbarg'}; |
$genpwd=$ENV{'form.krbarg'}; |
| } elsif ($ENV{'form.login'} eq 'int') { |
} elsif ($ENV{'form.login'} eq 'int') { |
| $amode='internal'; |
$amode='internal'; |
![[BACK]](/icons/back.gif){kind=icon}
Return to londropadd.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface