--- loncom/interface/portfolio.pm 2004/10/18 20:37:30 1.49 +++ loncom/interface/portfolio.pm 2004/11/02 14:35:42 1.53 @@ -44,8 +44,10 @@ sub display_common { $r->print('
'); my $displayOut = ''; $r->print($displayOut); @@ -53,6 +55,8 @@ sub display_common { $displayOut = ''; $r->print($displayOut); @@ -78,6 +82,12 @@ sub display_directory { my ($r,$current_path,$is_empty,$dir_list)=@_; my $iconpath= $r->dir_config('lonIconsURL') . "/"; my $display_out; + my %locked_files=&Apache::lonnet::dump('file_permissions', + $ENV{'user.domain'},$ENV{'user.name'}); + my $locked_file; + foreach my $key (keys %locked_files) { + $locked_file .= $locked_files{$key}.':'; + } if ($is_empty && ($current_path ne '/')) { $display_out = ' |