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

Diff for /loncom/interface/portfolio.pm between versions 1.269 and 1.271

version 1.269, 2024/09/07 01:07:21 version 1.271, 2024/09/07 19:13:00
Line 267  sub display_directory_line { Line 267  sub display_directory_line {
   
 sub display_directory {  sub display_directory {
     my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload,      my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload,
         $can_modify,$can_delete,$can_setacl,$can_viewacl)=@_;          $can_modify,$can_delete,$can_setacl,$can_viewacl,$caller)=@_;
     my $iconpath= $r->dir_config('lonIconsURL') . "/";      my $iconpath= $r->dir_config('lonIconsURL') . "/";
     my $select_mode;      my $select_mode;
     my $checked_files;      my $checked_files;
Line 315  sub display_directory { Line 315  sub display_directory {
            .'</p>'             .'</p>'
         );          );
         my ($acl_helpfile,$acl_helplink);          my ($acl_helpfile,$acl_helplink);
         if ($can_setacl) {          if ($caller eq 'coursegrp_portfolio') {
             $acl_helpfile = 'Portfolio ShareFile';  
         } elsif ($caller eq 'coursegrp_portfolio') {  
             $acl_helpfile = 'Portfolio ShareFile Group';              $acl_helpfile = 'Portfolio ShareFile Group';
           } elsif ($can_setacl) {
               $acl_helpfile = 'Portfolio ShareFile';
         }          }
         unless ($can_setacl || $can_viewacl) {          unless ($can_setacl || $can_viewacl) {
             $acl_helpfile = 'Portfolio ShareFile Off';              $acl_helpfile = 'Portfolio ShareFile Off';
Line 2764  sub handler { Line 2764  sub handler {
         $can_modify = 1;          $can_modify = 1;
         $can_delete = 1;          $can_delete = 1;
         $can_upload = 1;          $can_upload = 1;
         if (&Apache::lonnet::usertools_access('','','portaccess',          if (&Apache::lonnet::usertools_access($uname,$udom,'portaccess',
                                               undef,'tools')) {                                                undef,'tools')) {
             $can_viewacl = 1;              $can_viewacl = 1;
             $can_setacl = 1;              $can_setacl = 1;
Line 3031  sub handler { Line 3031  sub handler {
  $can_upload,$group);   $can_upload,$group);
         &display_directory($r,$url,$current_path,$is_empty,$dirlistref,$group,          &display_directory($r,$url,$current_path,$is_empty,$dirlistref,$group,
                            $can_upload,$can_modify,$can_delete,$can_setacl,                             $can_upload,$can_modify,$can_delete,$can_setacl,
                            $can_viewacl);                             $can_viewacl,$caller);
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     return OK;      return OK;
Removed from v.1.269  
changed lines
  Added in v.1.271

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