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; |
} |
} |
} |
} |