loncom/interface/lonaboutme.pm - view

File: [LON-CAPA] / loncom / interface / lonaboutme.pm
Revision 1.85: download - view: text, annotated - select for diffs
Mon Dec 15 16:37:44 2008 UTC (15 years, 5 months ago) by raeburn
Branches: MAIN
CVS tags: HEAD

- $brcrum is a reference to an anonymous array [] (use $brcrum not @brcrum).
- add sanity checking to confirm that the arg passed was an array ref.
- style
  - indentation
  - exists()

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