loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.295, 2002/10/10 13:06:08	version 1.296, 2002/10/10 14:34:05
Line 2328 sub modifystudent {	Line 2328 sub modifystudent {
if ($first eq '' \|\| $last eq '' \|\| $uid eq '') {	if ($first eq '' \|\| $last eq '' \|\| $uid eq '') {
# They did not supply us with enough data to enroll the student, so	# They did not supply us with enough data to enroll the student, so
# we need to pick up more information.	# we need to pick up more information.
my %tmp = dump('environment',$udom,$uname,	my %tmp = &dump('environment',$udom,$uname,
['firstname','middlename','lastname', 'generation','id']	['firstname','middlename','lastname', 'generation','id']
);	);
$first = $tmp{'firstname'} if (!defined($first) \|\| $first eq '');	$first = $tmp{'firstname'} if (!defined($first) \|\| $first eq '');