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

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

version 1.268, 2023/12/28 18:14:07 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 314  sub display_directory { Line 314  sub display_directory {
                 &mt('Using the portfolio file list'))                  &mt('Using the portfolio file list'))
            .'</p>'             .'</p>'
         );          );
           my ($acl_helpfile,$acl_helplink);
           if ($caller eq 'coursegrp_portfolio') {
               $acl_helpfile = 'Portfolio ShareFile Group';
           } elsif ($can_setacl) {
               $acl_helpfile = 'Portfolio ShareFile';
           }
           unless ($can_setacl || $can_viewacl) {
               $acl_helpfile = 'Portfolio ShareFile Off';
           }
           if ($acl_helpfile) {
               $acl_helplink = &Apache::loncommon::help_open_topic($acl_helpfile);
           }
         $r->print(&Apache::loncommon::start_data_table()          $r->print(&Apache::loncommon::start_data_table()
                  .&Apache::loncommon::start_data_table_header_row()                   .&Apache::loncommon::start_data_table_header_row()
                  .'<th colspan="2">'.&mt('Actions'). &Apache::loncommon::help_open_topic('Portfolio FileAction').'</th>'                   .'<th colspan="2">'.&mt('Actions'). &Apache::loncommon::help_open_topic('Portfolio FileAction').'</th>'
Line 323  sub display_directory { Line 335  sub display_directory {
                  .'<th>'.&mt('Size').'</th>'                   .'<th>'.&mt('Size').'</th>'
                  .'<th>'.&mt('Last Modified').'</th>'                   .'<th>'.&mt('Last Modified').'</th>'
                  .'<th>&nbsp;</th>'                   .'<th>&nbsp;</th>'
                  .'<th>'.&mt('Current Access Status').&Apache::loncommon::help_open_topic('Portfolio ShareFile').'</th>'                   .'<th>'.&mt('Current Access Status').$acl_helplink.'</th>'
                  .&Apache::loncommon::end_data_table_header_row());                   .&Apache::loncommon::end_data_table_header_row());
     }      }
   
Line 2752  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 3019  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.268  
changed lines
  Added in v.1.271

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