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; |