loncom/enrollment/Autoupdate.pl - diff

Return to Autoupdate.pl CVS log

Up to [LON-CAPA] / loncom / enrollment

version 1.13, 2009/03/09 05:25:49	version 1.15, 2010/03/21 20:39:30
Line 42	Line 42
exit;	exit;
}	}
my @info = ('inststatus','lockedname','internalname','lastname',	my @info = ('inststatus','lockedname','internalname','lastname',
'firstname','id','permanentemail');	'firstname','middlename','generation','id','permanentemail');
# Initialize language handler	# Initialize language handler
&Apache::lonlocal::get_language_handle();	&Apache::lonlocal::get_language_handle();
# find out which users we need to examine	# find out which users we need to examine
Line 112	Line 112
if ($settings->{'classlists'} == 1) {	if ($settings->{'classlists'} == 1) {
if ($field eq 'id') {	if ($field eq 'id') {
$changes{'id'} = 1;	$changes{'id'} = 1;
} elsif ($field eq 'lastname' \|\| $field eq 'firstname' \|\| $field eq 'middlename' \|\| $field eq 'gen') {	} elsif ($field eq 'lastname' \|\| $field eq 'firstname' \|\| $field eq 'middlename' \|\| $field eq 'generation') {
$changes{'fullname'} = 1;	$changes{'fullname'} = 1;
}	}
}	}
Line 121	Line 121
# Make the change	# Make the change
if ($changed) {	if ($changed) {
my %userupdate;	my %userupdate;
	foreach my $item ('lastname','firstname','middlename','generation','id',
	'permanentemail') {
	$userupdate{$item} = $userhash{$item};
	}
foreach my $field (@fields) {	foreach my $field (@fields) {
$userupdate{$field} = $instusers{$uname}{$field};	$userupdate{$field} = $instusers{$uname}{$field};
}	}