--- loncom/interface/Attic/londropadd.pm	2002/08/21 17:18:08	1.46
+++ loncom/interface/Attic/londropadd.pm	2002/08/22 21:05:25	1.47
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.46 2002/08/21 17:18:08 www Exp $
+# $Id: londropadd.pm,v 1.47 2002/08/22 21:05:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -546,7 +546,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';
@@ -928,7 +929,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';