--- loncom/interface/Attic/londropadd.pm 2002/09/13 18:55:57 1.45.4.1 +++ loncom/interface/Attic/londropadd.pm 2002/09/13 18:59:53 1.45.6.2 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to drop and add students in courses # -# $Id: londropadd.pm,v 1.45.4.1 2002/09/13 18:55:57 matthew Exp $ +# $Id: londropadd.pm,v 1.45.6.2 2002/09/13 18:59:53 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -567,7 +567,8 @@ sub enroll_single_student { my $amode=''; my $genpwd=''; if ($ENV{'form.login'} eq 'krb') { - $amode='krb4'; + $amode='krb'; + $amode.=$ENV{'form.krbver'}; $genpwd=$ENV{'form.krbarg'}; } elsif ($ENV{'form.login'} eq 'int') { $amode='internal'; @@ -949,7 +950,8 @@ sub upfile_drop_add { my $amode = ''; my $genpwd = ''; if ($ENV{'form.login'} eq 'krb') { - $amode='krb4'; + $amode='krb'; + $amode.=$ENV{'form.krbver'}; $genpwd=$ENV{'form.krbarg'}; } elsif ($ENV{'form.login'} eq 'int') { $amode='internal';