loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.387, 2003/07/05 10:07:11	version 1.388, 2003/07/06 10:30:21
Line 2801 sub modifyuser {	Line 2801 sub modifyuser {
} else {	} else {
%names = @tmp;	%names = @tmp;
}	}
	#
if (defined($first)) { $names{'firstname'} = $first; }	# Make sure to not trash student environment if instructor does not bother
	# to supply name and email information
	#
	if ($first) { $names{'firstname'} = $first; }
if (defined($middle)) { $names{'middlename'} = $middle; }	if (defined($middle)) { $names{'middlename'} = $middle; }
if (defined($last)) { $names{'lastname'} = $last; }	if ($last) { $names{'lastname'} = $last; }
if (defined($gene)) { $names{'generation'} = $gene; }	if (defined($gene)) { $names{'generation'} = $gene; }
if (defined($email)) { $names{'notification'} = $email;	if ($email) { $names{'notification'} = $email;
$names{'critnotification'} = $email; }	$names{'critnotification'} = $email; }

my $reply = &put('environment', \%names, $udom,$uname);	my $reply = &put('environment', \%names, $udom,$uname);
if ($reply ne 'ok') { return 'error: '.$reply; }	if ($reply ne 'ok') { return 'error: '.$reply; }