loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

-version 1.558, 2004/11/02 23:22:47
+version 1.559, 2004/11/03 00:11:42
  Line 3781  sub diskusage {
      return $listing;
  }
+ # ------------------------------------------------------------- Mark as Read Only
+ sub mark_as_readonly {
+     my ($domain,$user,$files,$what) = @_;
+     my %current_permissions = &Apache::lonnet::dump('file_permissions',$domain,$user);
+     foreach my $file ($files) {
+         $current_permissions{$file}.=':'.$what.':';
+     }
+     &Apache::lonnet::put('file_permissions',{ 'locked_files' => %current_permissions },$domain,$user);
+     return;
+ }
+ # ------------------------------------------------------------ Unmark as Read Only
+ sub unmark_as_readonly {
+     my ($domain,$user,$file,$what) = @_;
+     my $current_permissions = &Apache::lonnet::get('file_permissions',$file,$domain,$user);
+     $current_permissions =~ s/:$file://;
+     &Apache::lonnet::put('file_permissions',{ $file => $current_permissions },$domain,$user);
+     return;
+ }
  # ------------------------------------------------------------ Directory lister