loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.312, 2002/12/09 19:04:44	version 1.313, 2002/12/09 22:09:58
Line 2350 sub modifyuser {	Line 2350 sub modifyuser {
}	}
}	}
# -------------------------------------------------------------- Add names, etc	# -------------------------------------------------------------- Add names, etc
my %names=&get('environment',	my @tmp=&get('environment',
['firstname','middlename','lastname','generation'],	['firstname','middlename','lastname','generation'],
$udom,$uname);	$udom,$uname);
if ($names{'firstname'} =~ m/^error:.*/) { %names=(); }	my %names;
	if ($tmp[0] =~ m/^error:.*/) {
	%names=();
	} else {
	%names = @tmp;
	}
if ($first) { $names{'firstname'} = $first; }	if ($first) { $names{'firstname'} = $first; }
if ($middle) { $names{'middlename'} = $middle; }	if ($middle) { $names{'middlename'} = $middle; }
if ($last) { $names{'lastname'} = $last; }	if ($last) { $names{'lastname'} = $last; }