loncom/interface/domainprefs.pm - diff

Return to domainprefs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.445, 2024/10/12 01:42:29	version 1.446, 2024/12/31 18:51:53
Line 13179 sub modify_ipaccess {	Line 13179 sub modify_ipaccess {
foreach my $idx (@items) {	foreach my $idx (@items) {
my $itemid = $itemids{$idx};	my $itemid = $itemids{$idx};
next unless ($itemid);	next unless ($itemid);
my %current;	my ($position,%current);
unless ($idx eq 'add') {	if ($idx eq 'add') {
	$position = $env{'form.ipaccess_pos_add'};
	} else {
	$position = $env{'form.ipaccess_pos_'.$itemid};
if (ref($domconfig{'ipaccess'}{$itemid}) eq 'HASH') {	if (ref($domconfig{'ipaccess'}{$itemid}) eq 'HASH') {
%current = %{$domconfig{'ipaccess'}{$itemid}};	%current = %{$domconfig{'ipaccess'}{$itemid}};
}	}
}	}
my $position = $env{'form.ipaccess_pos_'.$itemid};
$position =~ s/\D+//g;	$position =~ s/\D+//g;
if ($position ne '') {	if ($position ne '') {
$allpos[$position] = $itemid;	$allpos[$position] = $itemid;