--- loncom/interface/Attic/londropadd.pm	2002/08/22 21:22:30	1.45.2.1
+++ loncom/interface/Attic/londropadd.pm	2002/08/21 17:18:08	1.46
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to drop and add students in courses 
 #
-# $Id: londropadd.pm,v 1.45.2.1 2002/08/22 21:22:30 albertel Exp $
+# $Id: londropadd.pm,v 1.46 2002/08/21 17:18:08 www 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,8 +546,7 @@ sub enroll_single_student {
 	my $amode='';
         my $genpwd='';
         if ($ENV{'form.login'} eq 'krb') {
-           $amode='krb';
-	   $amode.=$ENV{'form.krbver'};
+           $amode='krb4';
            $genpwd=$ENV{'form.krbarg'};
         } elsif ($ENV{'form.login'} eq 'int') {
            $amode='internal';
@@ -931,8 +928,7 @@ sub upfile_drop_add {
     my $amode  = '';
     my $genpwd = '';
     if ($ENV{'form.login'} eq 'krb') {
-        $amode='krb';
-	$amode.=$ENV{'form.krbver'};
+        $amode='krb4';
         $genpwd=$ENV{'form.krbarg'};
     } elsif ($ENV{'form.login'} eq 'int') {
         $amode='internal';
