--- loncom/lonnet/perl/lonnet.pm	2003/12/05 16:45:02	1.456
+++ loncom/lonnet/perl/lonnet.pm	2003/12/08 13:50:57	1.457
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.456 2003/12/05 16:45:02 albertel Exp $
+# $Id: lonnet.pm,v 1.457 2003/12/08 13:50:57 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3156,7 +3156,7 @@ sub modify_student_enrollment {
     }
     $chome=$ENV{'course.'.$cid.'.home'};
     if (!$chome) {
-	my $chome=&homeserver($uname,$udom);
+	$chome=&homeserver($cnum,$cdom);
     }
     if (!$chome) { return 'unknown_course'; }
     # Make sure the user exists
@@ -3188,7 +3188,7 @@ sub modify_student_enrollment {
     my $fullname = &Apache::loncoursedata::ProcessFullName($last,$gene,
                                                            $first,$middle);
     my $value=&escape($uname.':'.$udom).'='.
-	&escape(join(':',$end,$start,$uid,$usec,$fullname,undef,$type));
+	&escape(join(':',$end,$start,$uid,$usec,$fullname,$type));
     my $reply=critical('put:'.$cdom.':'.$cnum.':classlist:'.$value,$chome);
     unless (($reply eq 'ok') || ($reply eq 'delayed')) {
 	return 'error: '.$reply;