loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.559, 2004/11/03 00:11:42	version 1.560, 2004/11/03 21:12:12
Line 3786 sub diskusage {	Line 3786 sub diskusage {
sub mark_as_readonly {	sub mark_as_readonly {
my ($domain,$user,$files,$what) = @_;	my ($domain,$user,$files,$what) = @_;
my %current_permissions = &Apache::lonnet::dump('file_permissions',$domain,$user);	my %current_permissions = &Apache::lonnet::dump('file_permissions',$domain,$user);
foreach my $file ($files) {	foreach my $file (@{$files}) {
$current_permissions{$file}.=':'.$what.':';	push (@{$current_permissions{$file}},$what);
}	}
&Apache::lonnet::put('file_permissions',{ 'locked_files' => %current_permissions },$domain,$user);	&Apache::lonnet::put('file_permissions',\%current_permissions,$domain,$user);
return;	return;
}	}

Line 3797 sub mark_as_readonly {	Line 3797 sub mark_as_readonly {

sub unmark_as_readonly {	sub unmark_as_readonly {
my ($domain,$user,$file,$what) = @_;	my ($domain,$user,$file,$what) = @_;
my $current_permissions = &Apache::lonnet::get('file_permissions',$file,$domain,$user);	my $current_permissions = &Apache::lonnet::dump('file_permissions',$domain,$user);
$current_permissions =~ s/:$file://;
&Apache::lonnet::put('file_permissions',{ $file => $current_permissions },$domain,$user);	&Apache::lonnet::put('file_permissions',$current_permissions,$domain,$user);
return;	return;
}	}