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

Diff for /loncom/interface/lonaboutme.pm between versions 1.155 and 1.157

version 1.155, 2013/09/17 15:04:30 version 1.157, 2014/06/19 00:36:29
Line 83  use Apache::lonrss(); Line 83  use Apache::lonrss();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonmsgdisplay();  use Apache::lonmsgdisplay();
 use Apache::lontemplate;  use Apache::lontemplate;
   use Apache::longroup;
 use HTML::Entities();  use HTML::Entities();
 use Image::Magick;  use Image::Magick;
   
Line 541  sub display_portfolio_header { Line 542  sub display_portfolio_header {
                           title => &mt('Go to personal information page for [_1]',$name),                            title => &mt('Go to personal information page for [_1]',$name),
                           no_mt => 1},                            no_mt => 1},
                          {href  => "/adm/$cdom/$cnum/aboutme/portfolio".$query_string,                           {href  => "/adm/$cdom/$cnum/aboutme/portfolio".$query_string,
                           text  => 'Viewable files',                            text  => &mt('Viewable files'),
                           title => &mt('Viewable portfolio files for [_1]',$name),                            title => &mt('Viewable portfolio files for [_1]',$name),
                           no_mt => 1}                            no_mt => 1}
                          ];                           ];
Line 630  sub portfolio_files { Line 631  sub portfolio_files {
     my $diroutput;      my $diroutput;
     if ($is_course) {      if ($is_course) {
         my %files_by_group;          my %files_by_group;
           my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
         foreach my $filename (sort(keys(%access_controls))) {          foreach my $filename (sort(keys(%access_controls))) {
             my ($group,$path) = split('/',$filename,2);              my ($group,$path) = split('/',$filename,2);
             $files_by_group{$group}{$path} = $access_controls{$filename};              if (exists($curr_groups{$group})) {
                   $files_by_group{$group}{$path} = $access_controls{$filename};
               }
         }          }
         foreach my $group (sort(keys(%files_by_group))) {          foreach my $group (sort(keys(%files_by_group))) {
             my %fileshash;              my %fileshash;
Removed from v.1.155  
changed lines
  Added in v.1.157

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