|
version 1.749, 2006/06/16 22:37:35
|
version 1.750, 2006/06/19 21:01:01
|
|
Line 4846 sub get_marked_as_readonly_hash {
|
Line 4846 sub get_marked_as_readonly_hash {
|
| if (ref($value) eq "ARRAY"){ |
if (ref($value) eq "ARRAY"){ |
| foreach my $stored_what (@{$value}) { |
foreach my $stored_what (@{$value}) { |
| if (ref($stored_what) eq 'ARRAY') { |
if (ref($stored_what) eq 'ARRAY') { |
| if ($stored_what eq $what) { |
foreach my $lock_descriptor(@{$stored_what}) { |
| $readonly_files{$file_name} = 'locked'; |
if ($lock_descriptor eq 'graded') { |
| } elsif (!defined($what)) { |
$readonly_files{$file_name} = 'graded'; |
| $readonly_files{$file_name} = 'locked'; |
} elsif ($lock_descriptor eq 'handback') { |
| |
$readonly_files{$file_name} = 'handback'; |
| |
} else { |
| |
if (!exists($readonly_files{$file_name})) { |
| |
$readonly_files{$file_name} = 'locked'; |
| |
} |
| |
} |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
| } |
} |
|
Line 4917 sub dirlist {
|
Line 4923 sub dirlist {
|
| if(defined($alternateDirectoryRoot)) { |
if(defined($alternateDirectoryRoot)) { |
| $dirRoot = $alternateDirectoryRoot; |
$dirRoot = $alternateDirectoryRoot; |
| $dirRoot =~ s/\/$//; |
$dirRoot =~ s/\/$//; |
| } |
}Clay Greene |
| |
|
| if($udom) { |
if($udom) { |
| if($uname) { |
if($uname) { |
![[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