|
version 1.649, 2005/08/05 19:46:22
|
version 1.650, 2005/08/09 16:33:03
|
|
Line 4074 sub unmark_as_readonly {
|
Line 4074 sub unmark_as_readonly {
|
| my ($tmp)=keys(%current_permissions); |
my ($tmp)=keys(%current_permissions); |
| if ($tmp=~/^error:/) { undef(%current_permissions); } |
if ($tmp=~/^error:/) { undef(%current_permissions); } |
| my @readonly_files = &get_marked_as_readonly($domain,$user,$what); |
my @readonly_files = &get_marked_as_readonly($domain,$user,$what); |
| foreach my $file(@readonly_files){ |
foreach my $file (@readonly_files) { |
| my $current_locks = $current_permissions{$file}; |
if (defined($file_name) && ($file_name ne $file)) { next; } |
| |
my $current_locks = $current_permissions{$file}; |
| my @new_locks; |
my @new_locks; |
| my @del_keys; |
my @del_keys; |
| if (ref($current_locks) eq "ARRAY"){ |
if (ref($current_locks) eq "ARRAY"){ |
| foreach my $locker (@{$current_locks}) { |
foreach my $locker (@{$current_locks}) { |
| my $compare=$locker; |
my $compare=$locker; |
| if (ref($locker)) { $compare=join('',@{$locker}) }; |
if (ref($locker)) { $compare=join('',@{$locker}) }; |
| if ($compare eq $symb_crs) { |
if ($compare ne $symb_crs) { |
| if (defined($file_name) && ($file_name ne $file)) { |
push(@new_locks, $locker); |
| push(@new_locks, $what); |
|
| } |
|
| } else { |
|
| push(@new_locks, $what); |
|
| } |
} |
| } |
} |
| if (@new_locks > 0) { |
if (scalar(@new_locks) > 0) { |
| $current_permissions{$file} = \@new_locks; |
$current_permissions{$file} = \@new_locks; |
| } else { |
} else { |
| push(@del_keys, $file); |
push(@del_keys, $file); |
| &del('file_permissions',\@del_keys, $domain, $user); |
&del('file_permissions',\@del_keys, $domain, $user); |
| delete $current_permissions{$file}; |
delete($current_permissions{$file}); |
| } |
} |
| } |
} |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl