--- loncom/enrollment/Autoupdate.pl 2009/03/09 05:25:49 1.13 +++ loncom/enrollment/Autoupdate.pl 2009/09/06 02:11:46 1.14 @@ -1,7 +1,7 @@ #!/usr/bin/perl # # Automated Userinfo update script -# $Id: Autoupdate.pl,v 1.13 2009/03/09 05:25:49 raeburn Exp $ +# $Id: Autoupdate.pl,v 1.14 2009/09/06 02:11:46 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,7 +42,7 @@ exit; } my @info = ('inststatus','lockedname','internalname','lastname', - 'firstname','id','permanentemail'); + 'firstname','middlename','generation','id','permanentemail'); # Initialize language handler &Apache::lonlocal::get_language_handle(); # find out which users we need to examine @@ -121,6 +121,10 @@ # Make the change if ($changed) { my %userupdate; + foreach my $item ('lastname','firstname','middlename','generation','id', + 'permanentemail') { + $userupdate{$item} = $userhash{$item}; + } foreach my $field (@fields) { $userupdate{$field} = $instusers{$uname}{$field}; }