Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

Add wrapper function for user photoupload to determine a photoupload in lonnet.pm. This function is used in lonaboutme.pm. Changes in function finishuserfileupload in lonnet.pm to resize a upload Image to max. size 300x400.By Alexander Schulze and Niels Neumann

    1: # The LearningOnline Network
    2: # "About Me" Personal Information
    3: #
    4: # $Id: lonaboutme.pm,v 1.79 2008/12/09 11:31:56 amueller Exp $
    5: #
    6: # Copyright Michigan State University Board of Trustees
    7: #
    8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: #
   10: # LON-CAPA is free software; you can redistribute it and/or modify
   11: # it under the terms of the GNU General Public License as published by
   12: # the Free Software Foundation; either version 2 of the License, or
   13: # (at your option) any later version.
   14: #
   15: # LON-CAPA is distributed in the hope that it will be useful,
   16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: # GNU General Public License for more details.
   19: #
   20: # You should have received a copy of the GNU General Public License
   21: # along with LON-CAPA; if not, write to the Free Software
   22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: #
   24: # /home/httpd/html/adm/gpl.txt
   25: #
   26: # http://www.lon-capa.org/
   27: #
   28: 
   29: =pod
   30: 
   31: =head1 NAME
   32: 
   33: pache::lonaboutme
   34: 
   35: =head1 SYNOPSIS
   36: 
   37: (empty)
   38: 
   39: This is part of the LearningOnline Network with CAPA project
   40: described at http://www.lon-capa.org.
   41: 
   42: =head1 OVERVIEW
   43: 
   44: (empty)
   45: 
   46: 
   47: =head1 SUBROUTINES
   48: 
   49: =over
   50: 
   51: =item handler()
   52: 
   53: =item in_course()
   54: 
   55: =item aboutme_info()
   56: 
   57: =item print_portfiles_link()
   58: 
   59: =item build_query_string()
   60: 
   61: =item display_portfolio_header()
   62: 
   63: =item display_portfolio_files()
   64: 
   65: =item portfolio_files()
   66: 
   67: =item build_hierarchy()
   68: 
   69: =item parse_directory()
   70: 
   71: =back
   72: 
   73: =cut
   74: 
   75: 
   76: package Apache::lonaboutme;
   77: 
   78: use strict;
   79: use Apache::Constants qw(:common);
   80: use Apache::loncommon;
   81: use Apache::lonnet;
   82: use Apache::lontexconvert;
   83: use Apache::lonfeedback;
   84: use Apache::lonrss();
   85: use Apache::lonlocal;
   86: use Apache::lonmsgdisplay();
   87: use Apache::lontemplate;
   88: use HTML::Entities();
   89: 
   90: sub handler {
   91:     my $r = shift;
   92:     &Apache::loncommon::content_type($r,'text/html');
   93:     $r->send_http_header;
   94:     return OK if $r->header_only;
   95:     my $target=$env{'form.grade_target'};
   96: # ------------------------------------------------------------ Print the screen
   97:     if ($target eq 'tex') {
   98: 	$r->print(&Apache::lonprintout::print_latex_header($env{'form.latex_type'}));
   99:     }
  100:     my (undef,undef,$cdom,$cnum,undef,$action)=split(/\//,$r->uri);
  101:     my $is_course;
  102: # Is this even a user?
  103:     if (&Apache::lonnet::homeserver($cnum,$cdom) eq 'no_host') {
  104: 	&Apache::loncommon::simple_error_page($r,'No info',
  105: 					      'No user information available');
  106:         return OK;
  107:     } else {
  108:         $is_course = &Apache::lonnet::is_course($cdom,$cnum);
  109:     }
  110: 
  111:     my $candisplay = 1;
  112:     if (!$is_course) {
  113:         $candisplay = &Apache::lonnet::usertools_access($cnum,$cdom,'aboutme');
  114:         if ((!$candisplay) && ($env{'request.course.id'})) {
  115:             $candisplay = &aboutme_access($cnum,$cdom);
  116:         }
  117:         if (!$candisplay) {
  118:             if ($target eq 'tex') {
  119:                 $r->print('\noindent{\large\textbf{'.&mt('No user home page available').'}}\\\\\\\\');
  120:             } else {
  121:                 $r->print(&Apache::loncommon::start_page("Personal Information"));
  122:                 $r->print('<h2>'.&mt('No user home page available') .'</h2>'.
  123:                           &mt('This is a result of one of the following:').'<ul>'.
  124:                           '<li>'.&mt('The administrator of this domain has disabled home page functionality for this specific user.').'</li>'.
  125:                           '<li>'.&mt('The domain has been configured to disable, by default, home page functionality for all users in the domain.').'</li>'.
  126:                           '</ul>');
  127:                 $r->print(&Apache::loncommon::end_page());
  128:             }
  129:             return OK;
  130:         }
  131:     }
  132: 
  133: # --------------------------------------------------------- The syllabus fields
  134:     my %syllabusfields=&Apache::lonlocal::texthash(
  135:        'aaa_contactinfo'   => 'Contact Information',
  136:        'bbb_aboutme'       => 'About Me',
  137:        'ccc_webreferences' => 'Web References');
  138: 
  139: # ------------------------------------------------------------ Get Query String
  140:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  141: 					    ['forceedit','forcestudent',
  142: 					     'register','popup']);
  143: 
  144: # ----------------------------------------------- Available Portfolio file display 
  145:     if (($target ne 'tex') && ($action eq 'portfolio')) {
  146:         &display_portfolio_header($r,$is_course);
  147:         my ($blocked,$blocktext) = 
  148:            &Apache::loncommon::blocking_status('port',$cnum,$cdom);
  149:         if (!$blocked) {
  150:             &display_portfolio_files($r,$is_course);
  151:         } else {
  152:             $r->print($blocktext);
  153:         }
  154:         $r->print(&Apache::loncommon::end_page());
  155:         return OK;
  156:     }
  157: 
  158:     if ($is_course) {
  159:         if ($target ne 'tex') {
  160:             my $start_page =
  161:                 &Apache::loncommon::start_page(
  162:                     "Course Information",
  163:                      undef,
  164:                      {'function' => $env{'forcestudent'},
  165:                       'domain'   => $cdom,
  166:                       'force_register' => $env{'forceregister'},});
  167:             $r->print($start_page);
  168:             $r->print('<h2>'.&mt('Group files').'</h2>');
  169:             &print_portfiles_link($r,$is_course);
  170:             $r->print(&Apache::loncommon::end_page());
  171:         }
  172:         return OK;
  173:     }
  174: 
  175: # --------------------------------------------------------------- Force Student
  176:     my $forcestudent='';
  177:     if ($env{'form.forcestudent'}) { $forcestudent='student'; };
  178: 
  179:     my $forceregister = '';
  180:     if ($forcestudent eq '') {
  181:         $forceregister = $env{'form.register'};
  182:     }
  183:        
  184: # --------------------------------------- There is such a user, get environment
  185:     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
  186:     if ($target ne 'tex') {
  187: 	my $rss_link = &Apache::lonrss::rss_link($cnum,$cdom);
  188:         my $args = {'function' => $forcestudent,
  189:                     'domain'   => $cdom,
  190:                     'force_register' => $forceregister};
  191:         if ($env{'form.popup'}) {
  192:             $args->{'no_nav_bar'} = 1;
  193:         }
  194: 	my $start_page = 
  195: 	    &Apache::loncommon::start_page("Personal Information",$rss_link,$args);
  196: 	$r->print($start_page);
  197: 	$r->print('<h2>'.&Apache::loncommon::plainname($cnum,$cdom).'</h2>');
  198:     } else {
  199: 	$r->print('\noindent{\large\textbf{'.&Apache::loncommon::plainname($cnum,$cdom).'}}\\\\\\\\');
  200:     }
  201:     if ($courseenv{'nickname'}) {
  202:        $r->print(
  203:          '<h2>&quot;'.$courseenv{'nickname'}.
  204:          '&quot;</h2>');
  205:     }
  206:     if ($target ne 'tex') {
  207: 	$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>');#OLD SendMessage POS
  208:     } else {
  209: 	$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\');
  210:     }
  211:     my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum);
  212:     my $allowed=0;
  213: 
  214: # does this user have privileges to post, etc?
  215: 
  216:        my $privleged=$allowed=(($env{'user.name'} eq $cnum) && 
  217: 			       ($env{'user.domain'} eq $cdom));
  218:        if ($forcestudent or $target eq 'tex') { $allowed=0; }
  219:  
  220:        if ($allowed) {
  221:            my $query_string = &build_query_string({'forcestudent' => '1','popup' => $env{'form.popup'}});
  222: 	   $r->print('<p><b>'.&mt('Privacy Note').':</b> '.
  223: 		     &mt('The information you submit can be viewed by anybody who is logged into LON-CAPA. Do not provide information that you are not ready to share publicly.').
  224: 		     '</p>'.
  225: 		     &Apache::loncommon::help_open_topic('Uploaded_Templates_TextBoxes',&mt('Help with filling in text boxes')).'</p><p><a href="'.$r->uri.$query_string.'">'.&mt('Show Public View').'</a>'.
  226: 		     &Apache::loncommon::help_open_topic('Uploaded_Templates_PublicView').'</p>');
  227:        } elsif ($privleged && $target ne 'tex') {
  228:            my $query_string = &build_query_string({'forceedit' => '1','popup' => $env{'form.popup'}});
  229: 	   $r->print('<p><a href="'.$r->uri.$query_string.'">'.
  230: 		     &mt('Edit').'</a></p>');
  231:        }
  232:       if (($env{'form.uploaddoc.filename'}) &&
  233:           ($env{'form.storeupl'}) && ($allowed)) {
  234:  	  if ($env{'form.uploaddoc.filename'}=~/\.(gif|jpg|png|jpeg)$/i) {
  235: 	      if ($syllabus{'uploaded.photourl'}) {
  236: 		  &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
  237: 	      }
  238: 	      $syllabus{'uploaded.photourl'}=
  239:                  &Apache::lonnet::userphotoupload('uploaddoc','aboutme');
  240:  	  }
  241:           $syllabus{'uploaded.lastmodified'}=time;
  242:           &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
  243:        }
  244:     if ($allowed && $env{'form.delupl'}) {
  245: 	if ($syllabus{'uploaded.photourl'}) {
  246: 	    &Apache::lonnet::removeuploadedurl($syllabus{'uploaded.photourl'});
  247: 	    delete($syllabus{'uploaded.photourl'});
  248: 	    &Apache::lonnet::del('aboutme',['uploaded.photourl'],$cdom,$cnum);
  249: 	}
  250:     }
  251:        if (($allowed) && ($env{'form.storesyl'})) {
  252: 	   foreach my $syl_field (keys(%syllabusfields)) {
  253:                my $field=$env{'form.'.$syl_field};
  254:                $field=~s/\s+$//s;
  255:                $field=&Apache::lonfeedback::clear_out_html($field,
  256:                                                            $env{'user.adv'});
  257: 	       $syllabus{$syl_field}=$field;
  258:            }
  259:            $syllabus{'uploaded.lastmodified'}=time;
  260:            &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
  261:        }
  262: 
  263: my $lastmod;
  264: my $image; 
  265: # ---------------------------------------------------------------- Get syllabus
  266:     if (($syllabus{'uploaded.lastmodified'}) || ($allowed)) {
  267:        $lastmod=$syllabus{'uploaded.lastmodified'};
  268:        $lastmod=($lastmod?&Apache::lonlocal::locallocaltime($lastmod):&mt('never'));
  269:        # $r->print(&mt('Last updated').': '.$lastmod); #Old Last Modifi Pos
  270:        if ($syllabus{'uploaded.photourl'}) {
  271: 	   &Apache::lonnet::allowuploaded('/adm/aboutme',
  272: 					  $syllabus{'uploaded.photourl'});
  273: 	   $image=qq{<img name="userPhoto" src="$syllabus{'uploaded.photourl'}" />};
  274: 
  275: 	   if ($target eq 'tex') {
  276: 	       $image=&Apache::lonxml::xmlparse($r,'tex',$image);
  277: 	   }
  278: 	  # $r->print($image); #Print old Image
  279:        }
  280:        if ($allowed) {
  281:            $r->print(
  282: 	 '<form method="post">
  283:                <input type="submit" name="delupl" value="'.&mt('Delete Photo').'" />
  284:           </form>'.
  285: 	 '<form method="post" enctype="multipart/form-data">'.
  286:          '<h3>'.&mt('Upload a Photo').'</h3>'.
  287:          '<input type="file" name="uploaddoc" size="50" />'.
  288:          '<input type="submit" name="storeupl" value="'.&mt('Upload').'" />'.
  289:          '<input type="hidden" name="popup" value="'.$env{'form.popup'}.'" />'.
  290: 	 '</form><form method="post">');
  291: 
  292:        }
  293: 	&Apache::lontemplate::start_columnSection($r);
  294: 	&Apache::lontemplate::print_content_template($r,$allowed,$target,\%syllabusfields,\%syllabus);
  295:        if($target ne 'tex')
  296:        {
  297: 		&Apache::lontemplate::print_image($r,$image);
  298: 		  &print_portfiles_link($r,$is_course);
  299:       		 $r->print('</div>');
  300: 			$r->print('<p>');
  301:         
  302: 
  303: 	$r->print('Kontakt');
  304: 	$r->print(&Apache::loncommon::messagewrapper(&mt('Send me a message'),$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom));
  305: 
  306: 
  307:        }
  308: 
  309:        if ($allowed) {
  310:            if ($env{'form.popup'}) {
  311:                $r->print('<input type="hidden" name="popup" value="'.
  312:                          $env{'form.popup'}.'" />');
  313:            }
  314: 	   $r->print('</form>');
  315:        }
  316:        if ($target ne 'tex') {$r->print('<br />');} else {$r->print('\\\\');}
  317:     } else {
  318:        $r->print('<p>'.&mt('No personal information provided').'.</p>');
  319:     }
  320: 
  321:     if ($target ne 'tex') {
  322:         # &print_portfiles_link($r,$is_course); #old Print files
  323: 
  324:     }
  325: 
  326:     if ($env{'request.course.id'}
  327: 	&& &Apache::lonnet::allowed('srm',$env{'request.course.id'})
  328: 	&& &in_course($cdom,$cnum)) {
  329: 	if ($target ne 'tex') {
  330: 	    $r->print('<a name="coursecomment" />');
  331: 	    $r->print('<hr /><h3>'.
  332: 		      &mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'</h3>'.
  333: 		      &mt('Shared by course faculty and staff').
  334: 		      &Apache::loncommon::help_open_topic("Course_Face_To_Face_Records,Course_Critical_Message").
  335: 		      '<br />');
  336: 	    &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
  337: 	    $r->print('<hr />');
  338: 	    if (&Apache::lonnet::allowed('vsa',
  339: 					 $env{'request.course.id'}) ||
  340: 		&Apache::lonnet::allowed('vsa',
  341: 					 $env{'request.course.id'}.'/'.
  342: 					 $env{'request.course.sec'})) {
  343: 		$r->print(&Apache::loncommon::track_student_link
  344: 			  ('View recent activity by this student',
  345: 			   $cnum,$cdom).('&nbsp;'x2));
  346: 	    }
  347: 	    $r->print(&Apache::loncommon::noteswrapper('Add Records',$cnum,$cdom));
  348: 	} else {
  349: 	    $r->print('\\\\\textbf{'.&mt('User Notes, Records of Face-To-Face Discussions, and Critical Messages in Course').'}\\\\'.&mt('Shared by course faculty and staff').'\\\\\\\\');
  350: 	    &Apache::lonmsgdisplay::disfacetoface($r,$cnum,$cdom);
  351: 	}
  352:     }
  353:     if ($target ne 'tex') {
  354:         if ($env{'form.popup'}) {
  355:             $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a>');
  356:         }
  357: 	$r->print('<br />'.&mt('Last updated').': '.$lastmod);
  358: 	&Apache::lontemplate::end_columnSection($r);
  359: 	$r->print(&Apache::loncommon::end_page());
  360:     } else {
  361: 	$r->print('\end{document}');
  362:     }
  363: 
  364:   
  365: 	
  366:     return OK;
  367: }
  368: 
  369: sub in_course {
  370:     my ($udom,$uname,$cdom,$cnum,$type) = @_;
  371:     $type ||= 'any';
  372:     if (!defined($cdom) || !defined($cnum)) {
  373: 	my $cid  = $env{'request.course.id'};
  374: 	$cdom = $env{'course.'.$cid.'.domain'};
  375: 	$cnum = $env{'course.'.$cid.'.num'};
  376:     }
  377:     my %roles = &Apache::lonnet::dump('roles',$udom,$uname);
  378:     my @course_roles = grep(m{^/\Q$cdom\E/\Q$cnum\E[/_]}, keys(%roles));
  379:     return 0 if (!@course_roles);
  380:     return 1 if ($type eq 'any');
  381:     my $now = time();
  382:     foreach my $role (@course_roles) {
  383: 	my (undef,$role_end,$role_start)=split(/\_/,$roles{$role});
  384: 	my $status = 'active';
  385: 	if ($role_start > 0 && $now < $role_start) {
  386: 	    $status = 'future';
  387: 	}
  388: 	if ($role_end > 0 && $now > $role_end) {
  389: 	    $status = 'previous';
  390: 	}
  391: 	return 1 if ($status eq $type);
  392:     }
  393:     return 0;
  394: }
  395: 
  396: sub aboutme_info {
  397:     my ($r,$is_course) = @_;
  398:     my (undef,undef,$cdom,$cnum)=split(/\//,$r->uri);
  399:     my $name;
  400:     if (!$is_course) {
  401:         $name = &Apache::loncommon::plainname($cnum,$cdom);
  402:     }
  403:     return ($cdom,$cnum,$name);
  404: }
  405: 
  406: sub print_portfiles_link {
  407:     my ($r,$is_course) = @_;
  408:     my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);
  409:     my $filecounts = &portfolio_files($r,'showlink',undef,$is_course,
  410:                                       $cdom,$cnum,$name);
  411:     my $query_string = &build_query_string();
  412:     my $output;
  413:     my %lt = &Apache::lonlocal::texthash(
  414:                          vpfi => 'Viewable portfolio files',
  415:                          vgpf => 'Viewable group portfolio files',
  416:                          difl => 'Display file listing',
  417:              );                     
  418:     if ($filecounts->{'both'} > 0) {
  419: 	$output = '<div class="ContentBoxSpecial"><h4 class="hcell">';
  420: 	$output .= ($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h4>';
  421:         
  422: 	#$output = '<h4>'.($is_course?$lt{'vgpf'}:$lt{'vpfi'}).'</h4>';
  423:         $output .= '<a href="/adm/'.$cdom.'/'.$cnum.'/aboutme/portfolio'.
  424:                    $query_string.'">'.$lt{'difl'}.
  425:                    '</a><br /><br />';
  426:         if ($filecounts->{'both'} == 1) {
  427:             if ($is_course) {
  428:                 $output .= &mt('One group portfolio file is available.').'<ul>';
  429:             } else {
  430:                 $output .= &mt('One portfolio file owned by [_1] is available.',$name).'<ul>';
  431:             }
  432:         } else {
  433:             if ($is_course) {
  434:                 $output .= &mt('A total of [_1] group portfolio files are available.',$filecounts->{'both'}).'<ul>';
  435:             } else {
  436:                 $output .= &mt('A total of [_1] portfolio files owned by [_2] are available.',$filecounts->{'both'},$name).'<ul>';
  437:             }
  438:         }
  439:         if ($filecounts->{'withoutpass'}) {
  440: 	    $output .= '<li>'.&mt('[quant,_1,file is,files are] publicly accessible.',$filecounts->{'withoutpass'}).'</li>';
  441:         }
  442:         if ($filecounts->{'withpass'}) {
  443: 	    $output .= '<li>'.&mt('[quant,_1,file requires,files require] a passphrase for access.',$filecounts->{'withpass'}).'</li>';
  444:         }
  445:         $output .= '</ul>';
  446: 	$output .='</p>';
  447:     }
  448:     $r->print($output);
  449:     return;
  450: }
  451: 
  452: sub build_query_string {
  453:     my ($new_items) = @_;
  454:     my $query_string;
  455:     my @formelements = ('register'); 
  456:     my $new = 0;
  457:     if (ref($new_items) eq 'HASH') {
  458:         $new = 1;
  459:         if (!defined($new_items->{'forceedit'}) && 
  460:             !defined($new_items->{'forcestudent'})) {
  461:             push(@formelements,('forceedit','forcestudent'));
  462:         }
  463:     } else {
  464:         push(@formelements,('forceedit','forcestudent'));
  465:     }
  466:     foreach my $element (@formelements) {
  467:         if (exists($env{'form.'.$element})) {
  468:             if ((!$new) || (!defined($new_items->{$element}))) {
  469:                 $query_string .= '&amp;'.$element.'='.$env{'form.'.$element};
  470:             }
  471:         }
  472:     }
  473:     if ($new) {
  474:         foreach my $key (keys(%{$new_items})) {
  475:             $query_string .= '&amp;'.$key.'='.$new_items->{$key};
  476:         }
  477:     }
  478:     $query_string =~ s/^\&amp;/\?/;
  479:     return $query_string;
  480: }
  481: 
  482: sub display_portfolio_header {
  483:     my ($r,$is_course) = @_;
  484:     my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);
  485:     my $query_string = &build_query_string();
  486:     &Apache::lonhtmlcommon::clear_breadcrumbs();
  487:     my $forcestudent='';
  488:     if ($env{'form.forcestudent'}) { $forcestudent='student'; };
  489: 
  490:     my $output;
  491:     if ($is_course) {
  492:         $output = 
  493:             &Apache::loncommon::start_page('Viewable group portfolio files',undef,
  494:                                             {'function' => $forcestudent,
  495:                                              'domain'   => $cdom,});
  496:         $output .= '<h3>'.&mt('Group Portfolio files').'</h3>';
  497:     } else {
  498:         $output  =
  499:             &Apache::loncommon::start_page('Viewable portfolio files',undef,
  500:                                             {'function' => $forcestudent,
  501:                                              'domain'   => $cdom,});
  502:         if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) {
  503:             &Apache::lonhtmlcommon::add_breadcrumb
  504:                 ({href=>"/adm/$cdom/$cnum/aboutme".$query_string,
  505:                   text=>"Personal information - $name",
  506:                   title=>"Go to personal information page for $name"},                 {href=>"/adm/$cdom/$cnum/aboutme/portfolio",
  507:                   text=>"Viewable files - $name",
  508:                   title=>"Viewable portfolio files for $name"}
  509:             );
  510:             $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Viewable portfolio files.'));
  511:         }
  512:         $output .= '<h3>'.&mt('Portfolio files for [_1]',$name).'</h3>';
  513:     }
  514:     $r->print($output);
  515:     return;
  516: }
  517: 
  518: sub display_portfolio_files {
  519:     my ($r,$is_course) = @_;
  520:     my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);
  521:     my %lt = ( withoutpass => 'passphrase not required',
  522: 	       withpass    => 'passphrase protected',
  523: 	       both        => 'all access types ',);
  524:     %lt = &Apache::lonlocal::texthash(%lt);
  525: 
  526:     my $portaccess = 'withoutpass';
  527:     if (exists($env{'form.portaccess'})) {
  528:         $portaccess = $env{'form.portaccess'};
  529:     }
  530: 
  531:     my $output = '<form action="'.&HTML::Entities::encode($r->uri,'<>&"')
  532: 	.'" name="displaystatus" method="post">'.
  533: 	&mt('File access type: ').'<select name="portaccess">';
  534:     foreach my $type ('withoutpass','withpass','both') {
  535:         $output .= '<option value="'.$type.'" ';
  536:         if ($portaccess eq $type) {
  537:             $output .= 'selected="selected"';
  538:         }
  539:         $output .= '>'.$lt{$type}.'</option>';
  540:     }
  541:     $output .= '</select>'."\n".
  542:                '<input type="submit" name="portaccessbutton" value="'.
  543:                &mt('Update display').'" />';
  544:     $output .= '</form><br /><br />';
  545:     $r->print($output);
  546:     my $filecounts = &portfolio_files($r,'listfiles',\%lt,$is_course,
  547:                                       $cdom,$cnum,$name);
  548:     if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) {
  549:         my $query_string = &build_query_string();
  550:         $r->print('<br /><br /><a href="/adm/'.$cdom.'/'.$cnum.
  551:                   '/aboutme'.$query_string.'">');
  552:         if ($is_course) {
  553:             $r->print(&mt('Course Information page'));
  554:         } else {
  555:             $r->print(&mt('Information about [_1]',$name));
  556:         }
  557:         $r->print('</a>');
  558:     }
  559:     return;
  560: }
  561: 
  562: sub portfolio_files {
  563:     my ($r,$mode,$lt,$is_course,$cdom,$cnum,$name) = @_;
  564:     my $filecounts = {
  565:                        withpass    => 0,
  566:                        withoutpass => 0,
  567:                        both        => 0,
  568:                      };
  569:     my $current_permissions =
  570: 	&Apache::lonnet::get_portfile_permissions($cdom,$cnum);
  571:     my %access_controls = 
  572: 	&Apache::lonnet::get_access_controls($current_permissions);
  573:     my $portaccess;
  574:     if ($mode eq 'showlink') {
  575:         $portaccess = 'both';
  576:     } else {
  577:         $portaccess = 'withoutpass';
  578:         if (exists($env{'form.portaccess'})) {
  579:             $portaccess = $env{'form.portaccess'};
  580:         }
  581:     }
  582: 
  583:     my $diroutput;
  584:     if ($is_course) {
  585:         my %files_by_group;
  586:         foreach my $filename (sort(keys(%access_controls))) {
  587:             my ($group,$path) = split('/',$filename,2);
  588:             $files_by_group{$group}{$path} = $access_controls{$filename}; 
  589:         }
  590:         foreach my $group (sort(keys(%files_by_group))) {
  591:             my %fileshash;
  592:             my $grpout .= &build_hierarchy($r,$cdom,$cnum,$portaccess,
  593:                                            $is_course,$filecounts,$mode,
  594:                                            $files_by_group{$group},
  595:                                            \%fileshash,$group);
  596:             if ($grpout) {
  597:                 $diroutput .= '<h3>'.$group.'</h3>'.$grpout.'<br />';
  598:             }
  599:         }
  600:     } else {
  601:         my %allfileshash;
  602:         $diroutput = &build_hierarchy($r,$cdom,$cnum,$portaccess,$is_course,
  603:                                       $filecounts,$mode,\%access_controls,
  604:                                       \%allfileshash);
  605:     }
  606:     if ($mode eq 'listfiles') {
  607:         if ($filecounts->{'both'}) {
  608:              $r->print($diroutput);
  609:         } else {
  610:             my $access_text;
  611:             if (ref($lt) eq 'HASH') {
  612:                 $access_text = $lt->{$portaccess};   
  613:             }
  614:             $r->print(&mt('There are no available files of the specified access type: [_1]',$access_text));
  615:         }
  616:     }
  617:     return $filecounts;
  618: }
  619: 
  620: { 
  621:     my $count=0;
  622:     sub portfolio_table_start {
  623: 	$count=0;
  624: 	return '<table class="LC_aboutme_port">';
  625:     }
  626:     sub portfolio_row_start {
  627: 	$count++;
  628: 	my $class = ($count%2)?'LC_odd_row'
  629: 	                      :'LC_even_row';
  630: 	return '<tr class="'.$class.'">';
  631:     }
  632: }
  633: 
  634: sub build_hierarchy {
  635:     my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info,
  636:         $allfileshash,$group) = @_;
  637:     foreach my $filename (sort(keys(%{$access_info}))) {
  638:         my $access_status =
  639:            &Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,$group,                                                 $$access_info{$filename});
  640:         if ($portaccess eq 'both') {
  641:             if (($access_status ne 'ok') &&
  642:                 ($access_status !~  /^[^:]+:guest_/)) {
  643:                 next;
  644:             }
  645:         } elsif ($portaccess eq 'withoutpass') {
  646:             if ($access_status ne 'ok') {
  647:                 next;
  648:             }
  649:         } elsif ($portaccess eq 'withpass') {
  650:             if ($access_status !~  /^[^:]+:guest_/) {
  651:                 next;
  652:             }
  653:         }
  654:         if ($mode eq 'listfiles') {
  655:             $filename =~ s/^\///;
  656:             my @pathitems = split('/',$filename);
  657:             my $lasthash = $allfileshash;
  658:             while (@pathitems > 1) {
  659:                 my $newlevel = shift(@pathitems);
  660:                 if (!exists($lasthash->{$newlevel})) {
  661:                     $lasthash->{$newlevel} = {};
  662:                 }
  663:                 $lasthash = $lasthash->{$newlevel};
  664:             }
  665:             $lasthash->{$pathitems[0]} = $filename;
  666:         }
  667:         if ($access_status eq 'ok') {
  668:             $filecounts->{'withoutpass'} ++;
  669:         } elsif ($access_status =~  /^[^:]+:guest_/) {
  670:             $filecounts->{'withpass'} ++;
  671:         }
  672:     }
  673:     $filecounts->{'both'} =  $filecounts->{'withoutpass'} +
  674:                               $filecounts->{'withpass'};
  675:     my $output;
  676:     if ($mode eq 'listfiles') {
  677:         if ($filecounts->{'both'} > 0) {
  678:             $output = &portfolio_table_start();
  679:             $output .= &parse_directory($r,0,$allfileshash,'',$is_course,
  680:                                         $group);
  681:             $output .= '</table>';
  682:         }
  683:     }
  684:     return $output;
  685: }
  686: 
  687: sub parse_directory {
  688:     my ($r,$depth,$currhash,$path,$is_course,$group) = @_;
  689:     my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);
  690:     $depth++;
  691:     my $output;
  692: 
  693:     my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum,
  694:                                                                 $group);
  695:     my $getpropath = 1;
  696:     my %dirlist = map {
  697: 	    ((split('&',$_,2))[0],1)
  698: 	} &Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath);
  699:     foreach my $item (sort(keys(%{$currhash}))) {
  700:         $output .= &portfolio_row_start();
  701:         $output .= '<td style="padding-left: '.($depth*25).'px">';
  702:         if (ref($currhash->{$item}) eq 'HASH') {
  703:             my $title=&HTML::Entities::encode($item,'<>&"');
  704:             $output .= '<img src="'.&Apache::loncommon::lonhttpdurl("/adm/lonIcons/navmap.folder.open.gif").'" alt="'.&mt('Folder').' '.$title.'" class="LC_icon" />&nbsp;'.$title;
  705: 	    $output .= '</td><td></td></tr>';
  706:             $output .= &parse_directory($r,$depth,$currhash->{$item},
  707: 					$path.'/'.$item,$is_course,$group);
  708:         } else {
  709: 	    my $file_name; 
  710: 	    if ($currhash->{$item} =~ m|/([^/]+)$|) {
  711: 		$file_name = $1;
  712: 	    } else {
  713: 		$file_name = $currhash->{$item};
  714: 	    }
  715: 	    my $have_meta = exists($dirlist{$file_name.'.meta'});
  716:             my $url;
  717:             if ($is_course) {
  718:                 $url = '/uploaded/'.$cdom.'/'.$cnum.'/groups/'.$group.
  719:                        '/portfolio/'.$currhash->{$item};
  720:             } else { 
  721: 	        $url = '/uploaded/'.$cdom.'/'.$cnum.'/portfolio/'.
  722: 		       $currhash->{$item};
  723:             }
  724:             my $showname;
  725: 	    if ($have_meta) {
  726: 		$showname = &Apache::lonnet::metadata($url,'title');
  727: 	    }
  728: 	    if ($showname eq '') {
  729: 		$showname = $file_name;
  730: 	    } else {
  731: 		$showname = $file_name.' ('.$showname.')';
  732: 	    }
  733: 
  734:             $showname=&HTML::Entities::encode($showname,'<>&"');
  735:             $output .= '<a href="'.$url.'">'.
  736: 		'<img alt="" src="'.&Apache::loncommon::icon($currhash->{$item}).'" class="LC_icon" />'.
  737: 		'&nbsp;'.$showname.'</a>';
  738: 	    $output.='</td><td>';
  739: 	    if ($have_meta) {
  740: 		$output.= '<a href="'.$url.'.meta"><img alt="'.&mt('Catalog Information').'" src="'.
  741: 		&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').
  742: 		'" class="LC_icon" /></a>';
  743: 	    }
  744: 	    $output .= '</td></tr>';
  745:         }
  746:     }
  747:     return $output;
  748: }
  749: 
  750: sub aboutme_access {
  751:     my ($uname,$udom) = @_;
  752:     my $privcheck = $env{'request.course.id'};
  753:     my $sec;
  754:     if ($env{'request.course.sec'} ne '') {
  755:         $sec = $env{'request.course.sec'};
  756:         $privcheck .= '/'.$sec;
  757:     }
  758:     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
  759:     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
  760:     if (($cdom eq '') || ($cnum eq '')) {
  761:         my %coursehash = &coursedescription($env{'request.course.id'});
  762:         $cdom = $coursehash{'domain'};
  763:         $cnum = $coursehash{'cnum'};
  764:     }
  765:     if ((&allowed('srm',$privcheck)) || (&allowed('dff',$privcheck))) {
  766:         if (&in_course($uname,$udom,$cnum,$cdom)) {
  767:             return 1;
  768:         }
  769:     }
  770:     return;
  771: }
  772: 
  773: 1;
  774: __END__