loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.631, 2005/05/02 23:34:43	version 1.632, 2005/05/03 19:22:22
Line 3913 sub unmark_as_readonly {	Line 3913 sub unmark_as_readonly {
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}) {
if ($$locker[0].$$locker[1] eq $symb_crs) {	my $compare=$locker;
	if (ref($locker)) { $compare=join('',@{$locker}) };
	if ($compare eq $symb_crs) {
if (defined($file_name) && ($file_name ne $file)) {	if (defined($file_name) && ($file_name ne $file)) {
push(@new_locks, $what);	push(@new_locks, $what);
}	}