[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

[raeburn]

raeburn		Mon Dec  8 08:50:58 2003 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  Modifications to support standalone use of modify_student_enrollment routine in lonnet.pm. Fixed a scope issue, parameters passed to determine homeserver of a course, and list passed to classlist.db
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.456 loncom/lonnet/perl/lonnet.pm:1.457
--- loncom/lonnet/perl/lonnet.pm:1.456	Fri Dec  5 11:45:02 2003
+++ loncom/lonnet/perl/lonnet.pm	Mon Dec  8 08:50:57 2003
@@ -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 @@
     }
     $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 @@
     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;