loncom/interface/courseprefs.pm - diff

Return to courseprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.103, 2022/02/16 00:06:04	version 1.104, 2022/02/16 15:58:28
Line 1501 sub process_linkprot {	Line 1501 sub process_linkprot {
if (grep(/^\Q$home\E$/,@ids)) {	if (grep(/^\Q$home\E$/,@ids)) {
if (ref($domdefs{'privhosts'}) eq 'ARRAY') {	if (ref($domdefs{'privhosts'}) eq 'ARRAY') {
if (grep(/^\Q$home\E$/,@{$domdefs{'privhosts'}})) {	if (grep(/^\Q$home\E$/,@{$domdefs{'privhosts'}})) {
my %privhash = &Apache::lonnet::restore_dom('lti','private',$cdom,$home,1);	my %privhash = &Apache::lonnet::restore_dom('lti','private',$cdom,$home,1);
$privkey = $privhash{'key'};	$privkey = $privhash{'key'};
$privnum = $privhash{'version'};	$privnum = $privhash{'version'};
if (($privnum) && ($privkey ne '')) {	if (($privnum) && ($privkey ne '')) {
Line 1593 sub process_linkprot {	Line 1593 sub process_linkprot {
my $reqitem = 'form.linkprot_requser_'.$idx;	my $reqitem = 'form.linkprot_requser_'.$idx;
$env{$reqitem} =~ s/(`)/'/g;	$env{$reqitem} =~ s/(`)/'/g;
unless ($idx eq 'add') {	unless ($idx eq 'add') {
if ($current{'requser'} ne $env{$reqitem}) {	if ((!$current{'requser'} && $env{$reqitem}) \|\|
	($current{'requser'} && !$env{$reqitem})) {
$haschanges{$itemid} = 1;	$haschanges{$itemid} = 1;
}	}
}	}