--- loncom/interface/Attic/londropadd.pm	2002/08/08 19:27:35	1.45
+++ 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.45 2002/08/08 19:27:35 matthew Exp $
+# $Id: londropadd.pm,v 1.47 2002/08/22 21:05:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -59,15 +59,13 @@ use Apache::Constants qw(:common :http R
 # ================================================================ Print header
 
 sub header {
+    my $bodytag=&Apache::loncommon::bodytag('Enrollment Manager');
     return(<<ENDHEAD);
 <html>
 <head>
 <title>LON-CAPA Enrollment Manager</title>
 </head>
-<body bgcolor="#FFFFFF">
-<img align=right src=/adm/lonIcons/lonlogos.gif>
-<h1>$ENV{'course.'.$ENV{'request.course.id'}.'.description'}</h1>
-<h2>Enrollment Manager</h2>
+$bodytag
 <form method="post" enctype="multipart/form-data"  
       action="/adm/dropadd" name="studentform">
 ENDHEAD
@@ -548,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';
@@ -930,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';
