- ';
+ } else {
+ $output .= &mt('One portfolio file owned by [_1] is available.',$name).'
- '.&mt('[quant,_1,file] are publicly accessible.',$filecounts->{'withoutpass'}).' '; + $output .= '
- '.&mt('[quant,_1,file is,files are] publicly accessible.',$filecounts->{'withoutpass'}).' '; } if ($filecounts->{'withpass'}) { - $output .= '
- '.&mt('[quant,_1,file] require a passphrase for access.',$filecounts->{'withpass'}).' '; + $output .= '
- '.&mt('[quant,_1,file requires,files require] a passphrase for access.',$filecounts->{'withpass'}).' '; } $output .= '
- ';
+ }
+ } else {
+ if ($is_course) {
+ $output .= &mt('A total of [_1] group portfolio files are available.',$filecounts->{'both'}).'
- ';
+ } else {
+ $output .= &mt('A total of [_1] portfolio files owned by [_2] are available.',$filecounts->{'both'},$name).'
- ';
+ }
+ }
if ($filecounts->{'withoutpass'}) {
- $output .= '
'.&mt('Group Portfolio files').'
'; + } else { + $output = + &Apache::loncommon::start_page('Viewable portfolio files',undef, + {'function' => $forcestudent, 'domain' => $cdom,}); - &Apache::lonhtmlcommon::add_breadcrumb - ({href=>"/adm/$cdom/$cnum/aboutme".$query_string, - text=>"Personal information - $name", - title=>"Go to personal information page for $name"}, - {href=>"/adm/$cdom/$cnum/aboutme/portfolio", - text=>"Viewable files - $name", - title=>"Viewable portfolio files for $name"} -); - $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Viewable portfolio files.')); - $output .= ''.&mt('Portfolio files for [_1]',$name).'
'; + if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/$cdom/$cnum/aboutme".$query_string, + text=>"Personal information - $name", + title=>"Go to personal information page for $name"}, {href=>"/adm/$cdom/$cnum/aboutme/portfolio", + text=>"Viewable files - $name", + title=>"Viewable portfolio files for $name"} + ); + $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Viewable portfolio files.')); + } + $output .= ''.&mt('Portfolio files for [_1]',$name).'
'; + } $r->print($output); return; } sub display_portfolio_files { - my ($r) = @_; - my ($cdom,$cnum,$name) = &aboutme_info($r); + my ($r,$is_course) = @_; + my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course); my %lt = ( withoutpass => 'passphrase not required', withpass => 'passphrase protected', both => 'all access types ',); @@ -366,24 +496,31 @@ sub display_portfolio_files { if ($portaccess eq $type) { $output .= 'selected="selected"'; } - $output .= '>'.&mt($type).''; + $output .= '>'.$lt{$type}.''; } $output .= ''."\n". ''; $output .= ''; $r->print($output); - my $filecounts = &portfolio_files($r,'listfiles',\%lt); - my $query_string = &build_query_string(); - $r->print('
'. - &mt('Information about [_1]',$name).''); + my $filecounts = &portfolio_files($r,'listfiles',\%lt,$is_course, + $cdom,$cnum,$name); + if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) { + my $query_string = &build_query_string(); + $r->print('
'); + if ($is_course) { + $r->print(&mt('Course Information page')); + } else { + $r->print(&mt('Information about [_1]',$name)); + } + $r->print(''); + } return; } sub portfolio_files { - my ($r,$mode,$lt) = @_; - my ($cdom,$cnum,$name) = &aboutme_info($r); + my ($r,$mode,$lt,$is_course,$cdom,$cnum,$name) = @_; my $filecounts = { withpass => 0, withoutpass => 0, @@ -393,7 +530,6 @@ sub portfolio_files { &Apache::lonnet::get_portfile_permissions($cdom,$cnum); my %access_controls = &Apache::lonnet::get_access_controls($current_permissions); - my %allfileshash; my $portaccess; if ($mode eq 'showlink') { $portaccess = 'both'; @@ -404,10 +540,63 @@ sub portfolio_files { } } - foreach my $filename (keys(%access_controls)) { - my $access_status = - &Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,undef, - $access_controls{$filename}); + my $diroutput; + if ($is_course) { + my %files_by_group; + foreach my $filename (sort(keys(%access_controls))) { + my ($group,$path) = split('/',$filename,2); + $files_by_group{$group}{$path} = $access_controls{$filename}; + } + foreach my $group (sort(keys(%files_by_group))) { + my %fileshash; + my $grpout .= &build_hierarchy($r,$cdom,$cnum,$portaccess, + $is_course,$filecounts,$mode, + $files_by_group{$group}, + \%fileshash,$group); + if ($grpout) { + $diroutput .= '
'.$group.'
'.$grpout.''; + } + } + } else { + my %allfileshash; + $diroutput = &build_hierarchy($r,$cdom,$cnum,$portaccess,$is_course, + $filecounts,$mode,\%access_controls, + \%allfileshash); + } + if ($mode eq 'listfiles') { + if ($filecounts->{'both'}) { + $r->print($diroutput); + } else { + my $access_text; + if (ref($lt) eq 'HASH') { + $access_text = $lt->{$portaccess}; + } + $r->print(&mt('There are no available files of the specified access type: [_1]',$access_text)); + } + } + return $filecounts; +} + +{ + my $count=0; + sub portfolio_table_start { + $count=0; + return '
| ';
@@ -487,27 +663,73 @@ sub parse_directory {
my $title=&HTML::Entities::encode($item,'<>&"');
$output .= ' | ';
+ if ($have_meta) {
+ $output.= '.
- ') ';
-
+ '" class="LC_icon" />';
+ }
$output .= ' | ';
}
}
return $output;
}
+sub aboutme_access {
+ my ($uname,$udom) = @_;
+ my $privcheck = $env{'request.course.id'};
+ my $sec;
+ if ($env{'request.course.sec'} ne '') {
+ $sec = $env{'request.course.sec'};
+ $privcheck .= '/'.$sec;
+ }
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+ if (($cdom eq '') || ($cnum eq '')) {
+ my %coursehash = &coursedescription($env{'request.course.id'});
+ $cdom = $coursehash{'domain'};
+ $cnum = $coursehash{'cnum'};
+ }
+ if ((&Apache::lonnet::allowed('srm',$privcheck)) ||
+ (&Apache::lonnet::allowed('dff',$privcheck))) {
+ if (&in_course($uname,$udom,$cnum,$cdom)) {
+ return 1;
+ }
+ }
+ return;
+}
+
1;
__END__