![[BACK]](/icons/back.gif){kind=icon}
Return to Autoupdate.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / enrollment|
Return to Autoupdate.pl CVS log | Up to [LON-CAPA] / loncom / enrollment |
| version 1.15, 2010/03/21 20:39:30 | version 1.16, 2010/03/21 21:06:00 |
|---|---|
| Line 128 | Line 128 |
| foreach my $field (@fields) { | foreach my $field (@fields) { |
| $userupdate{$field} = $instusers{$uname}{$field}; | $userupdate{$field} = $instusers{$uname}{$field}; |
| } | } |
| my $modresult = &Apache::lonnet::modifyuser($dom,$uname,$userupdate{'id'},undef,undef,$userupdate{'firstname'},$userupdate{'middlename'},$userupdate{'lastname'},$userupdate{'generation'},1,$hostid,$userupdate{'permanentemail'}); | my $modresult = &Apache::lonnet::modifyuser($dom,$uname,$userupdate{'id'},undef,undef,$userupdate{'firstname'},$userupdate{'middlename'},$userupdate{'lastname'},$userupdate{'generation'},1,$hostid,$userupdate{'permanentemail'},undef,\@fields); |
| if ($modresult eq 'ok') { | if ($modresult eq 'ok') { |
| print $fh "User change: $uname:$dom; New values: 1.Name: $userupdate{'firstname'} $userupdate{'middlename'} $userupdate{'lastname'} $userupdate{'generation'}; 2. StuID: $userupdate{'id'}; 3. Email: $userupdate{'permanentemail'}.\n"; | print $fh "User change: $uname:$dom; New values: 1.Name: $userupdate{'firstname'} $userupdate{'middlename'} $userupdate{'lastname'} $userupdate{'generation'}; 2. StuID: $userupdate{'id'}; 3. Email: $userupdate{'permanentemail'}.\n"; |
| if ($settings->{'classlists'} == 1) { | if ($settings->{'classlists'} == 1) { |