loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.456, 2003/12/05 16:45:02	version 1.457, 2003/12/08 13:50:57
Line 3156 sub modify_student_enrollment {	Line 3156 sub modify_student_enrollment {
}	}
$chome=$ENV{'course.'.$cid.'.home'};	$chome=$ENV{'course.'.$cid.'.home'};
if (!$chome) {	if (!$chome) {
my $chome=&homeserver($uname,$udom);	$chome=&homeserver($cnum,$cdom);
}	}
if (!$chome) { return 'unknown_course'; }	if (!$chome) { return 'unknown_course'; }
# Make sure the user exists	# Make sure the user exists
Line 3188 sub modify_student_enrollment {	Line 3188 sub modify_student_enrollment {
my $fullname = &Apache::loncoursedata::ProcessFullName($last,$gene,	my $fullname = &Apache::loncoursedata::ProcessFullName($last,$gene,
$first,$middle);	$first,$middle);
my $value=&escape($uname.':'.$udom).'='.	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);	my $reply=critical('put:'.$cdom.':'.$cnum.':classlist:'.$value,$chome);
unless (($reply eq 'ok') \|\| ($reply eq 'delayed')) {	unless (($reply eq 'ok') \|\| ($reply eq 'delayed')) {
return 'error: '.$reply;	return 'error: '.$reply;