version 1.153, 2006/08/11 23:45:18
|
version 1.154, 2006/08/12 06:18:44
|
Line 174 sub display_directory_line {
|
Line 174 sub display_directory_line {
|
$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>'); |
$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>'); |
$r->print('<td>'.$$version_flag{$filename}.'</td>'); |
$r->print('<td>'.$$version_flag{$filename}.'</td>'); |
} else { # this is a graded or handed back file |
} else { # this is a graded or handed back file |
$r->print('<td colspan="2"> </td>'); |
my ($user,$domain) = &get_name_dom(); |
|
my $permissions_hash = &Apache::lonnet::get_portfile_permissions($domain,$user); |
|
my $lock_info; |
|
foreach my $key (keys(%$permissions_hash)) { |
|
$key =~ s|^/||; |
|
if ($key =~ /$filename/) { |
|
&Apache::lonnet::logthis("filename match"); |
|
my $value = $$permissions_hash{$key}; |
|
if (ref($value) eq 'ARRAY') { |
|
my $info = pop(@$value); |
|
my $info2 = pop(@$info); |
|
&Apache::lonnet::logthis("the info2 is $info2"); |
|
$lock_info = $info2; |
|
#foreach my $key2(keys(%hash)){ |
|
# &Apache::lonnet::logthis("a key2 is $key2"); |
|
#} |
|
foreach my $value_element (@$value) { |
|
#&Apache::lonnet::logthis("and the array element is $value_element"); |
|
foreach my $sub_value (@$value_element) { |
|
#&Apache::lonnet::logthis("subvalue is $sub_value"); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
$r->print('<td colspan="2">'.$lock_info.'</td>'); |
} |
} |
# $r->print('<td>'.$$version_flag{$filename}.'</td><td>'); |
# $r->print('<td>'.$$version_flag{$filename}.'</td><td>'); |
$r->print('<td>'.&make_anchor($href_location.$filename,undef,$filename).'</td>'); |
$r->print('<td>'.&make_anchor($href_location.$filename,undef,$filename).'</td>'); |