|
version 1.384, 2003/07/01 20:45:17
|
version 1.385, 2003/07/02 15:25:46
|
|
Line 2800 sub modifyuser {
|
Line 2800 sub modifyuser {
|
| } else { |
} else { |
| %names = @tmp; |
%names = @tmp; |
| } |
} |
| if ($first) { $names{'firstname'} = $first; } |
if (defined($first)) { $names{'firstname'} = $first; } |
| if ($middle) { $names{'middlename'} = $middle; } |
if (defined($middle)) { $names{'middlename'} = $middle; } |
| if ($last) { $names{'lastname'} = $last; } |
if (defined($last)) { $names{'lastname'} = $last; } |
| if ($gene) { $names{'generation'} = $gene; } |
if (defined($gene)) { $names{'generation'} = $gene; } |
| 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; } |
| &logthis('Success modifying user '.$udom.', '.$uname.', '.$uid.', '. |
&logthis('Success modifying user '.$udom.', '.$uname.', '.$uid.', '. |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl