');
+ $r->print($image);
+
+ $r->print('Kontakt');
+ $r->print(&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).''.&Apache::lonrss::advertisefeeds($cnum,$cdom));
+
+
}
+
if ($allowed) {
+ if ($env{'form.popup'}) {
+ $r->print('
');
+ }
$r->print('');
}
- if ($target ne 'tex') {$r->print('');} else {$r->print('\\\\');}
+ if ($target ne 'tex') {$r->print('
');} else {$r->print('\\\\');}
} else {
$r->print('
'.&mt('No personal information provided').'.
');
}
- if ($env{'request.course.id'}) {
- if (&Apache::lonnet::allowed('srm',$env{'request.course.id'})) {
- if ($target ne 'tex') {
- $r->print('
');
- $r->print('
'.
- &mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').' '.
- &mt('Shared by course faculty and staff').
- &Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").
-'
');
- &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
- $r->print('
');
- if (&Apache::lonnet::allowed('vsa',
- $env{'request.course.id'}) ||
- &Apache::lonnet::allowed('vsa',
- $env{'request.course.id'}.'/'.
- $env{'request.course.sec'})) {
- $r->print(&Apache::loncommon::track_student_link
- ('View recent activity by this student',
- $cnum,$cdom).(' 'x2));
- }
- $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
- } else {
- $r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\');
- &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
+
+ if ($target ne 'tex') {
+ # &print_portfiles_link($r,$is_course); #old Print files
+
+ }
+
+ if ($env{'request.course.id'}
+ && &Apache::lonnet::allowed('srm',$env{'request.course.id'})
+ && &in_course($cdom,$cnum)) {
+ if ($target ne 'tex') {
+ $r->print('
');
+ $r->print('
'.
+ &mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').' '.
+ &mt('Shared by course faculty and staff').
+ &Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").
+ '
');
+ &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
+ $r->print('
');
+ if (&Apache::lonnet::allowed('vsa',
+ $env{'request.course.id'}) ||
+ &Apache::lonnet::allowed('vsa',
+ $env{'request.course.id'}.'/'.
+ $env{'request.course.sec'})) {
+ $r->print(&Apache::loncommon::track_student_link
+ ('View recent activity by this student',
+ $cnum,$cdom).(' 'x2));
}
- }
+ $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
+ } else {
+ $r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\');
+ &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
+ }
}
if ($target ne 'tex') {
+ if ($env{'form.popup'}) {
+ $r->print('
'.&mt('Close window').' ');
+ }
+ $r->print('
';
+ $output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).' '.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).' ';
+ $output .= ''.$lt{'difl'}.
+ ' ';
+ } 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('[quant,_1,file is,files are] publicly accessible.',$filecounts->{'withoutpass'}).' ';
+ }
+ if ($filecounts->{'withpass'}) {
+ $output .= ''.&mt('[quant,_1,file requires,files require] a passphrase for access.',$filecounts->{'withpass'}).' ';
+ }
+ $output .= ' ';
+ $output .=' ';
+ }
+ $r->print($output);
+ return;
+}
+
+sub build_query_string {
+ my ($new_items) = @_;
+ my $query_string;
+ my @formelements = ('register');
+ my $new = 0;
+ if (ref($new_items) eq 'HASH') {
+ $new = 1;
+ if (!defined($new_items->{'forceedit'}) &&
+ !defined($new_items->{'forcestudent'})) {
+ push(@formelements,('forceedit','forcestudent'));
+ }
+ } else {
+ push(@formelements,('forceedit','forcestudent'));
+ }
+ foreach my $element (@formelements) {
+ if (exists($env{'form.'.$element})) {
+ if ((!$new) || (!defined($new_items->{$element}))) {
+ $query_string .= '&'.$element.'='.$env{'form.'.$element};
+ }
+ }
+ }
+ if ($new) {
+ foreach my $key (keys(%{$new_items})) {
+ $query_string .= '&'.$key.'='.$new_items->{$key};
+ }
+ }
+ $query_string =~ s/^\&/\?/;
+ return $query_string;
+}
+
+sub display_portfolio_header {
+ my ($r,$is_course) = @_;
+ my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);
+ my $query_string = &build_query_string();
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ my $forcestudent='';
+ if ($env{'form.forcestudent'}) { $forcestudent='student'; };
+
+ my $output;
+ if ($is_course) {
+ $output =
+ &Apache::loncommon::start_page('Viewable group portfolio files',undef,
+ {'function' => $forcestudent,
+ 'domain' => $cdom,});
+ $output .= '
'.&mt('Group Portfolio files').' ';
+ } else {
+ $output =
+ &Apache::loncommon::start_page('Viewable portfolio files',undef,
+ {'function' => $forcestudent,
+ 'domain' => $cdom,});
+ 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,$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,$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,$is_course,$cdom,$cnum,$name) = @_;
+ my $filecounts = {
+ withpass => 0,
+ withoutpass => 0,
+ both => 0,
+ };
+ my $current_permissions =
+ &Apache::lonnet::get_portfile_permissions($cdom,$cnum);
+ my %access_controls =
+ &Apache::lonnet::get_access_controls($current_permissions);
+ my $portaccess;
+ if ($mode eq 'showlink') {
+ $portaccess = 'both';
+ } else {
+ $portaccess = 'withoutpass';
+ if (exists($env{'form.portaccess'})) {
+ $portaccess = $env{'form.portaccess'};
+ }
+ }
+
+ 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 '
';
+ }
+ sub portfolio_row_start {
+ $count++;
+ my $class = ($count%2)?'LC_odd_row'
+ :'LC_even_row';
+ return '';
+ }
+}
+
+sub build_hierarchy {
+ my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info,
+ $allfileshash,$group) = @_;
+ foreach my $filename (sort(keys(%{$access_info}))) {
+ my $access_status =
+ &Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,$group, $$access_info{$filename});
+ if ($portaccess eq 'both') {
+ if (($access_status ne 'ok') &&
+ ($access_status !~ /^[^:]+:guest_/)) {
+ next;
+ }
+ } elsif ($portaccess eq 'withoutpass') {
+ if ($access_status ne 'ok') {
+ next;
+ }
+ } elsif ($portaccess eq 'withpass') {
+ if ($access_status !~ /^[^:]+:guest_/) {
+ next;
+ }
+ }
+ if ($mode eq 'listfiles') {
+ $filename =~ s/^\///;
+ my @pathitems = split('/',$filename);
+ my $lasthash = $allfileshash;
+ while (@pathitems > 1) {
+ my $newlevel = shift(@pathitems);
+ if (!exists($lasthash->{$newlevel})) {
+ $lasthash->{$newlevel} = {};
+ }
+ $lasthash = $lasthash->{$newlevel};
+ }
+ $lasthash->{$pathitems[0]} = $filename;
+ }
+ if ($access_status eq 'ok') {
+ $filecounts->{'withoutpass'} ++;
+ } elsif ($access_status =~ /^[^:]+:guest_/) {
+ $filecounts->{'withpass'} ++;
+ }
+ }
+ $filecounts->{'both'} = $filecounts->{'withoutpass'} +
+ $filecounts->{'withpass'};
+ my $output;
+ if ($mode eq 'listfiles') {
+ if ($filecounts->{'both'} > 0) {
+ $output = &portfolio_table_start();
+ $output .= &parse_directory($r,0,$allfileshash,'',$is_course,
+ $group);
+ $output .= '
';
+ }
+ }
+ return $output;
+}
+
+sub parse_directory {
+ my ($r,$depth,$currhash,$path,$is_course,$group) = @_;
+ my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);
+ $depth++;
+ my $output;
+
+ my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum,
+ $group);
+ my $getpropath = 1;
+ my %dirlist = map {
+ ((split('&',$_,2))[0],1)
+ } &Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath);
+ foreach my $item (sort(keys(%{$currhash}))) {
+ $output .= &portfolio_row_start();
+ $output .= '
';
+ 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 $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 .= '
'.
+ ' ';
+ $output.='
';
+ if ($have_meta) {
+ $output.= ' ';
+ }
+ }
+ return $output;
+}
1;
__END__