|
version 1.45.4.1, 2002/09/13 18:55:57
|
version 1.45.6.2, 2002/09/13 18:59:53
|
|
Line 567 sub enroll_single_student {
|
Line 567 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 949 sub upfile_drop_add {
|
Line 950 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