[BACK]Return to portfolio.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/portfolio.pm between versions 1.153 and 1.154

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">&nbsp;</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>'); 
Removed from v.1.153  
changed lines
  Added in v.1.154

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>