'; + $output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'
'; + + #$output = ''.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'
'; + $output .= ''.$lt{'difl'}. ''; - $output .= &mt('A total of [quant,_1,portfolio file] owned by [_2] are available.',$filecounts->{'both'},$name).'
- ';
+ if ($filecounts->{'both'} == 1) {
+ if ($is_course) {
+ $output .= &mt('One group portfolio file is available.').'
- '.&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 {
+ $output .= &mt('One portfolio file owned by [_1] is available.',$name).'
- ';
+ }
+ } 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?action=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,$lt) = @_; - 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 ',); + %lt = &Apache::lonlocal::texthash(%lt); + my $portaccess = 'withoutpass'; if (exists($env{'form.portaccess'})) { $portaccess = $env{'form.portaccess'}; } + my $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 +551,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 +561,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 '
| ';
if (ref($currhash->{$item}) eq 'HASH') {
my $title=&HTML::Entities::encode($item,'<>&"');
$output .= ' | '; + $output .= &parse_directory($r,$depth,$currhash->{$item}, + $path.'/'.$item,$is_course,$group); } else { - my $showname; - if ($currhash->{$item} =~ m|/([^/]+)$|) { - $showname = $1; - } else { - $showname = $currhash->{$item}; + my $file_name; + if ($currhash->{$item} =~ m|/([^/]+)$|) { + $file_name = $1; + } else { + $file_name = $currhash->{$item}; + } + my $have_meta = exists($dirlist{$file_name.'.meta'}); + my $url; + if ($is_course) { + $url = '/uploaded/'.$cdom.'/'.$cnum.'/groups/'.$group. + '/portfolio/'.$currhash->{$item}; + } else { + $url = '/uploaded/'.$cdom.'/'.$cnum.'/portfolio/'. + $currhash->{$item}; } + my $showname; + if ($have_meta) { + $showname = &Apache::lonnet::metadata($url,'title'); + } + if ($showname eq '') { + $showname = $file_name; + } else { + $showname = $file_name.' ('.$showname.')'; + } + $showname=&HTML::Entities::encode($showname,'<>&"'); - $output .= ' | ';
+ if ($have_meta) {
+ $output.= '.
+ ') ';
+ }
$output .= ' | ';
}
}