');
+ $r->print($line); # contains first two cells of table
+ if ($$version_flag{$filename}) { # versioned can't be versioned, so TRUE when root file
+ $r->print('
');
+ $r->print('
'.$$version_flag{$filename}.'
');
+ } else { # this is a graded or handed back file
+ 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('
'.$/);
}
sub display_directory {
- my ($r,$url,$current_path,$is_empty,$dir_list,$can_upload,
+ my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload,
$can_modify,$can_delete,$can_setacl)=@_;
my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $display_out;
my $select_mode;
my $checked_files;
- my $port_path = &get_port_path($group);
- my ($uname,$udom) = &get_name_dom($group);
+ my $port_path = &get_port_path();
+ my ($uname,$udom) = &get_name_dom();
my $access_admin_text = &mt('View Status');
if ($can_setacl) {
$access_admin_text = &mt('View/Change Status');
@@ -206,11 +257,11 @@ sub display_directory {
if ($select_mode eq 'true') {
$r->print('