loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.95, 2021/12/24 11:07:42	version 1.96, 2022/01/16 16:50:40
Line 1164 sub process_changes {	Line 1164 sub process_changes {
$autocoowner = $domconf{'autoenroll'}{'co-owners'};	$autocoowner = $domconf{'autoenroll'}{'co-owners'};
}	}
}	}
unless ($autocoowner) {	if ($autocoowner) {
	$newvalues{'co-owners'} = $values->{'internal.co-owners'};
	} else {
my @keepcoowners = &Apache::loncommon::get_env_multiple('form.coowners');	my @keepcoowners = &Apache::loncommon::get_env_multiple('form.coowners');
my @pendingcoowners = &Apache::loncommon::get_env_multiple('form.pendingcoowners');	my @pendingcoowners = &Apache::loncommon::get_env_multiple('form.pendingcoowners');
my @invitecoowners = &Apache::loncommon::get_env_multiple('form.invitecoowners');	my @invitecoowners = &Apache::loncommon::get_env_multiple('form.invitecoowners');
Line 1209 sub process_changes {	Line 1211 sub process_changes {
if ($pendingcoowners ne '') {	if ($pendingcoowners ne '') {
@newpending = @pendingcoown;	@newpending = @pendingcoown;
}	}
	} else {
	@newcoown = @currcoown;
}	}
$newvalues{'pendingco-owners'} = join(',',sort(@newpending));	$newvalues{'pendingco-owners'} = join(',',sort(@newpending));
$newvalues{'co-owners'} = join(',',sort(@newcoown));	$newvalues{'co-owners'} = join(',',sort(@newcoown));