Annotation of loncom/interface/lonviewclasslist.pm, revision 1.14
1.1 matthew 1: # The LearningOnline Network with CAPA
2: # Handler to display the classlist
3: #
1.14 ! raeburn 4: # $Id: lonviewclasslist.pm,v 1.13 2010/03/25 17:38:43 raeburn Exp $
1.1 matthew 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: ##############################################################
30:
31: package Apache::lonviewclasslist;
32:
33: use strict;
34: use Apache::loncoursedata();
35: use Apache::loncommon();
36: use Apache::lonhtmlcommon();
1.14 ! raeburn 37: use Apache::courseprefs();
1.1 matthew 38: use Apache::Constants qw(:common :http REDIRECT);
39: use Apache::lonlocal;
1.5 albertel 40: use Apache::lonnet;
1.1 matthew 41:
42:
43: ###################################################################
44: ###################################################################
45:
46: =pod
47:
48: =item &handler
49:
50: The typical handler you see in all these modules. Takes $r, the
51: http request, as an argument.
52:
53: =cut
54:
55: ###################################################################
56: ###################################################################
57: sub handler {
58: my $r=shift;
59: if ($r->header_only) {
60: &Apache::loncommon::content_type($r,'text/html');
61: $r->send_http_header;
62: return OK;
63: }
1.13 raeburn 64: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.14 ! raeburn 65: ['register','forceedit','action','symb','todocs']);
1.5 albertel 66: if (! ($env{'request.course.fn'})) {
67: $env{'user.error.msg'}=
1.1 matthew 68: "/adm/viewclasslist:not in course role";
69: return HTTP_NOT_ACCEPTABLE;
70: }
71: &Apache::loncommon::content_type($r,'text/html');
72: $r->send_http_header;
73: #
1.13 raeburn 74: my $start_page;
75: if ($env{'form.register'}) {
76: $start_page = &Apache::loncommon::start_page('Classlist',undef,
77: {'force_register' => $env{'form.register'}});
78: } else {
79: my $brcrum = [{'href' => 'adm/viewclasslist',
80: 'text' => 'View Classlist'},];
81: $start_page = &Apache::loncommon::start_page('Classlist',undef,
82: {'bread_crumbs' => $brcrum});
83: }
1.1 matthew 84: $r->print(<<ENDHEADER);
1.6 albertel 85: $start_page
1.1 matthew 86: ENDHEADER
1.8 raeburn 87:
88: # Get classlist view settings
89: my %viewsettings = &retrieve_view_settings();
90:
1.14 ! raeburn 91: if (($env{'form.forceedit'}) || ($env{'form.action'} eq 'setconfig')) {
! 92: if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
! 93: my $crstype = &Apache::loncommon::course_type();
! 94: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
! 95: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
! 96: my $rosterprefs = &roster_prefs($crstype);
! 97: my $allitems = {};
! 98: if ($env{'form.action'} eq 'setconfig') {
! 99: my %values=&Apache::lonnet::dump('environment',$cdom,$cnum);
! 100: if (keys(%values) > 0) {
! 101: my ($numchanged,%changes,%disallowed);
! 102: my $prefs = {
! 103: classlists => $rosterprefs,
! 104: };
! 105: $changes{'classlists'} = {};
! 106: &Apache::courseprefs::process_changes($cdom,'classlists',\%values,
! 107: $rosterprefs,
! 108: $changes{'classlists'},
! 109: $allitems,\%disallowed,$crstype);
! 110: my $message;
! 111: if (keys(%{$changes{'classlists'}}) > 0) {
! 112: my $actions = ['classlists'];
! 113: $message =
! 114: &Apache::courseprefs::store_changes($cdom,$cnum,$actions,
! 115: $actions,$prefs,\%values,
! 116: \%changes,$crstype);
! 117: } else {
! 118: if ($crstype eq 'Community') {
! 119: $message = &mt('No changes made to community settings.');
! 120: } else {
! 121: $message = &mt('No changes made to course settings.');
! 122: }
! 123: }
! 124: $r->print(&Apache::loncommon::confirmwrapper($message));
! 125: } else {
! 126: $r->print('<div class="LC_info">'.
! 127: &mt('Unable to retrieve current settings.').'<br />'.
! 128: &mt('No changes saved.').
! 129: '</div>');
! 130: }
! 131: } else {
! 132: my $current = {};
! 133: my @settings = ('student_classlist_view','student_classlist_opt_in',
! 134: 'student_classlist_portfiles');
! 135: foreach my $setting (@settings) {
! 136: $current->{$setting} = $env{"course.$env{'request.course.id'}.$setting"};
! 137: }
! 138: my ($output,$rowtotal) =
! 139: &Apache::courseprefs::print_config_box($r,$cdom,'display',
! 140: 'viewableroster',
! 141: $rosterprefs,$current,
! 142: $allitems,$crstype);
! 143: if ($output) {
! 144: $r->print('<form method="post" name="display" action="/adm/viewclasslist">'."\n".
! 145: '<input type="hidden" name="action" value="setconfig" />'."\n".
! 146: '<input type="hidden" name="register" value="'.$env{'form.register'}.'" />'."\n".
! 147: '<input type="hidden" name="forceedit" value="'.$env{'form.forceedit'}.'" />'."\n");
! 148: if ($env{'form.symb'}) {
! 149: $r->print('<input type="hidden" name="symb" value="'.$env{'form.symb'}.'" />'."\n");
! 150: }
! 151: if ($env{'form.symb'}) {
! 152: $r->print('<input type="hidden" name="todocs" value="'.$env{'form.todocs'}.'" />'."\n");
! 153: }
! 154: $r->print('<div class="LC_left_float">'.
! 155: $output.
! 156: '</div><br clear="all" />'.
! 157: '<input type="submit" value="'.&mt('Save').'" />'.
! 158: '</form>');
! 159: } else {
! 160: $r->print('<div class="LC_info">'.
! 161: &mt('No student-viewable course roster settings available.').
! 162: '</div>');
! 163: }
! 164: }
! 165: } else {
! 166: $r->print('<div class="LC_info">'.
! 167: &mt('You do not have rights to modify student-viewable course roster settings.').
! 168: '</div>');
! 169: }
1.8 raeburn 170: } else {
1.14 ! raeburn 171:
! 172: # Print classlist
! 173: if (keys(%viewsettings) > 0) {
! 174: $r->print(&html_classlist($r,\%viewsettings));
! 175: } else {
! 176: $r->print('<div class="LC_info">'.
! 177: &mt("Display of a student-viewable course roster is not currently enabled.").
! 178: '</div>');
! 179: }
1.1 matthew 180: }
181: #
182: # Finish up
1.6 albertel 183: $r->print(&Apache::loncommon::end_page());
1.1 matthew 184: return OK;
185: }
186:
1.8 raeburn 187: sub retrieve_view_settings {
188: my %viewsettings;
189: if (exists($env{'request.course.id'})) {
190: my $cid = $env{'request.course.id'};
191: my $viewpermission = 'course.'.$cid.'.student_classlist_view';
192: my $student_opt_in = 'course.'.$cid.'.student_classlist_opt_in';
193: my $portfiles_link = 'course.'.$cid.'.student_classlist_portfiles';
194: if (exists($env{$viewpermission}) &&
195: $env{$viewpermission} =~ /^(all|section)$/) {
196: $viewsettings{'permission'} = $env{$viewpermission};
197: if ($viewsettings{'permission'} =~ /^section$/i) {
198: $viewsettings{'limit_to_section'} = 1;
199: } else {
200: $viewsettings{'limit_to_section'} = 0;
201: }
202: $viewsettings{'student_opt_in'} = $env{$student_opt_in};
203: $viewsettings{'portfiles_link'} = $env{$portfiles_link};
204: }
1.1 matthew 205: }
1.8 raeburn 206: return %viewsettings;
1.1 matthew 207: }
208:
1.14 ! raeburn 209: sub roster_prefs {
! 210: my ($crstype) = @_;
! 211: my %lt;
! 212: if ($crstype eq 'Community') {
! 213: %lt = &Apache::lonlocal::texthash (
! 214: stuv => 'Member-viewable membership list options',
! 215: stul => 'Member agreement needed to be listed',
! 216: );
! 217: } else {
! 218: %lt = &Apache::lonlocal::texthash(
! 219: stuv => 'Student-viewable classlist options',
! 220: stul => 'Student agreement needed to be listed',
! 221: );
! 222: }
! 223: $lt{'incl'} = &mt('Include link to accessible portfolio files');
! 224:
! 225: return
! 226: { text => 'Student-viewable roster settings',
! 227: header => [ {col1 => 'Setting',
! 228: col2 => $lt{'stuv'}}],
! 229: ordered => ['student_classlist_view',
! 230: 'student_classlist_opt_in',
! 231: 'student_classlist_portfiles'],
! 232: itemtext => {
! 233: student_classlist_view => $lt{'stuv'},
! 234: student_classlist_opt_in => $lt{'stul'},
! 235: student_classlist_portfiles => $lt{'incl'},
! 236: },
! 237: };
! 238: }
! 239:
1.1 matthew 240: sub html_classlist {
1.8 raeburn 241: my ($r,$viewsettings) = @_;
242: my ($Str,$title,$secdisplay,$cid,$cdom,$cnum,$listtype,%publicroster);
243: my $fullroster = &Apache::loncoursedata::get_classlist();
244: my $classlist;
245:
246: if ($env{'form.action'} eq 'setenv') {
247: $Str .= &process_student_prefs();
248: }
249: $Str .= '<h3>'.&mt('Student-viewable course roster').'</h3>';
250:
251: $cid = $env{'request.course.id'};
252: $cdom = $env{'course.'.$cid.'.domain'};
253: $cnum = $env{'course.'.$cid.'.num'};
254:
255: if ($viewsettings->{'limit_to_section'}) {
1.5 albertel 256: if ($env{'request.course.sec'} eq '') {
1.8 raeburn 257: $title = '<h4>'.&mt('Students with no section').'</h4>';
258: $listtype = 'without a section';
259: } else {
260: $title ='<h4>'.&mt('Students in section "[_1]"',
261: $env{'request.course.sec'}).'</h4>';
262: $listtype = 'in the section';
263: $secdisplay = " ($env{'request.course.sec'}) ";
264: }
265: } else {
266: $title .= '<h4>'.&mt('Students in any section').'</h4>';
267: $listtype = 'in the course';
268: }
269:
270: if ($viewsettings->{'student_opt_in'}) {
271: if ($env{'request.role'} =~ /^st/) {
272: $Str .= &print_roster_form();
273: }
274: %publicroster = &Apache::lonnet::dump('publicroster',$cdom,$cnum);
275: }
276:
277: $Str .= $title;
278:
279: my $fullcount = 0;
280: my $publiccount = 0;
281: my $displaycount = 0;
282: my $sectionidx = &Apache::loncoursedata::CL_SECTION();
283: my $statusidx = &Apache::loncoursedata::CL_STATUS();
284:
285: foreach my $student (keys(%{$fullroster})) {
286: my $section = $fullroster->{$student}->[$sectionidx];
287: my $status = $fullroster->{$student}->[$statusidx];
288: next if (lc($status) ne 'active');
289: if ($viewsettings->{'limit_to_section'}) {
290: next if ($section ne $env{'request.course.sec'});
291: }
292: $fullcount ++;
293: if ($viewsettings->{'student_opt_in'}) {
294: if ($publicroster{$student}) {
295: $classlist->{$student} = $fullroster->{$student};
296: $publiccount ++;
297: }
298: } else {
299: $classlist->{$student} = $fullroster->{$student};
300: }
301: }
302: if ($viewsettings->{'student_opt_in'}) {
303: $displaycount = $publiccount;
304: if ($fullcount > $publiccount) {
305: if ($publiccount) {
306: $Str .= &mt('Only students who have opted to be listed in the roster ([_1] out of [_2] students) are shown.',$publiccount,$fullcount).'<br />';
307: } else {
308: if ($fullcount == 1) {
309: $Str .= &mt('The single student '.$listtype.'[_1] has opted not to be listed in the roster.',$secdisplay);
310: } else {
311: $Str .= &mt('None of the [_1] students '.$listtype.'[_2] have opted to be listed in the roster.',$fullcount,$secdisplay);
312: }
313: return $Str;
314: }
1.1 matthew 315: } else {
1.8 raeburn 316: if ($fullcount > 1) {
317: $Str .= &mt('All [_1] students '.$listtype.'[_2] have opted to be listed in the roster.',$fullcount,$secdisplay);
318: } elsif ($fullcount == 1) {
319: $Str .= &mt('The single student '.$listtype.'[_1] has opted to be listed in the roster.',$secdisplay);
320: }
321: }
322: } else {
323: $displaycount = $fullcount;
324: if ($fullcount > 1) {
325: $Str .= &mt('All [_1] students '.$listtype.'[_2] are listed in the roster.',$fullcount,$secdisplay);
326: } elsif ($fullcount == 1) {
327: $Str .= &mt('There is only a single student '.$listtype.'[_1]',$secdisplay);
1.1 matthew 328: }
329: }
1.8 raeburn 330: undef($fullroster);
331:
332: if (!$displaycount) {
333: $Str .= &mt('There are currently no students to display.');
334: return $Str;
335: }
336:
1.1 matthew 337: # Set up a couple variables.
338: my $usernameidx = &Apache::loncoursedata::CL_SNAME();
339: my $domainidx = &Apache::loncoursedata::CL_SDOM();
340: my $fullnameidx = &Apache::loncoursedata::CL_FULLNAME();
1.8 raeburn 341:
1.1 matthew 342: # Sort the students
343: my $sortby = $fullnameidx;
344: my @Sorted_Students = sort {
345: lc($classlist->{$a}->[$sortby]) cmp lc($classlist->{$b}->[$sortby])
346: } (keys(%$classlist));
1.8 raeburn 347: $Str .= '<br />'.&Apache::loncommon::start_data_table()."\n".
348: &Apache::loncommon::start_data_table_header_row()."\n".
1.1 matthew 349: '<th></th>'. # for the count
350: '<th>'.&mt('Student').'</th>'.
351: '<th>'.&mt('Username').'</th>';
1.8 raeburn 352: if (! $viewsettings->{'limit_to_section'}) {
1.1 matthew 353: $Str .= '<th>'.&mt('Section').'</th>';
354: }
1.8 raeburn 355: if ($viewsettings->{'portfiles_link'}) {
356: $Str .= '<th>'.&mt('Available Portfolio files').'</th>';
357: }
358: $Str .= &Apache::loncommon::end_data_table_header_row();
1.1 matthew 359: my $count ++;
360: foreach my $student (@Sorted_Students) {
361: my $username = $classlist->{$student}->[$usernameidx];
362: my $domain = $classlist->{$student}->[$domainidx];
363: my $fullname = $classlist->{$student}->[$fullnameidx];
364: if ($fullname =~ /^\s*$/) {
365: $fullname = &mt('Name not given');
366: }
367: my $section = $classlist->{$student}->[$sectionidx];
1.8 raeburn 368: if ($section eq '') {
369: $section = &mt('none');
1.1 matthew 370: }
1.8 raeburn 371: $Str .= &Apache::loncommon::start_data_table_row()."\n".
1.1 matthew 372: '<td>'.$count++.'</td>'.
373: '<td>'.&Apache::loncommon::aboutmewrapper($fullname,
374: $username,
375: $domain).'</td>'.
376: '<td>'.(' 'x2).
377: &Apache::loncommon::messagewrapper
1.2 raeburn 378: ('<img src="/adm/lonIcons/mailto.gif" border="0" /> '.
1.11 raeburn 379: $username.':'.$domain,$username,$domain).'</td>';
1.8 raeburn 380: if (! $viewsettings->{'limit_to_section'}) {
1.1 matthew 381: $Str .= '<td>'.$section.'</td>';
382: }
1.8 raeburn 383: if ($viewsettings->{'portfiles_link'}) {
384: my $filecounts = &Apache::lonaboutme::portfolio_files($r,'showlink',undef,undef,$domain,$username,$fullname);
385: my $link;
386: if (ref($filecounts) eq 'HASH') {
387: $link = &mt('[quant,_1,file,files,No files]',$filecounts->{'both'});
388: if ($filecounts->{'both'} > 0) {
389: $link = '<a href="/adm/'.$domain.'/'.$username.'/aboutme/portfolio?classlist">'.$link.'</a>';
390: }
391: } else {
1.9 albertel 392: $link = '<span class="LC_error">'.&mt("Error retrieving file information.").'</span>';
1.8 raeburn 393: }
394: $Str .= '<td>'.$link.'</td>';
395: }
396: $Str .= &Apache::loncommon::end_data_table_row()."\n";
1.1 matthew 397: }
1.8 raeburn 398: $Str .= &Apache::loncommon::end_data_table();
1.1 matthew 399: return $Str;
400: }
401:
1.8 raeburn 402: sub print_roster_form {
403: my $cid = $env{'request.course.id'};
404: my $showinroster = $env{'environment.internal.'.$cid.'.showinroster'};
405: my ($showoff,$showon);
406: if ($showinroster) {
407: $showon = ' checked="checked" ';
408: $showoff = ' ';
409: } else {
410: $showoff = ' checked="checked" ';
411: $showon = ' ';
412: }
413: my $output = '<hr /><h4>'.&mt('Your roster setting').'</h4>';
414: if ($showinroster) {
415: $output .= &mt('You are currently listed in the student-viewable roster.');
416: } else {
417: $output .= &mt('You are currently <b>not</b> listed in the student-viewable roster.');
418: }
419: $output .= '<br />'.&mt('Include yourself in the roster?').' '.
420: '<form name="studentparm" method="post">'.
421: '<span class="LC_nobreak"><label><input type="radio" name="showinroster" value="1"'.$showon.'/>'.&mt('Yes').'</label> <label>'.
422: '<input type="radio" name="showinroster" value="0"'.$showoff.'/>'.&mt('No').
423: '</label></span><br /><br />'.
424: '<input type="hidden" name="action" value="setenv" />'.
425: '<input type="submit" name="studentsubmit" value="'.&mt('Save').'" /></form><hr />';
426: return $output;
427: }
428:
429: sub process_student_prefs {
430: my $cid = $env{'request.course.id'};
431: my $cdom = $env{'course.'.$cid.'.domain'};
432: my $cnum = $env{'course.'.$cid.'.num'};
433: my $uname = $env{'user.name'};
434: my $udom = $env{'user.domain'};
435: my $student = $uname.':'.$udom;
436: my %pubroster = &Apache::lonnet::get('publicroster',[$student],$cdom,$cnum);
437: my $visibility = &mt('off');
438: my $showinroster = $env{'form.showinroster'};
439: if ($showinroster) {
440: $visibility = &mt('on');
441: }
442: my $sturoster = 0;
443: if ($pubroster{$student}) {
444: $sturoster = 1;
445: }
446: my $output;
447: if ($sturoster ne $showinroster) {
448: my %changeHash = (
449: 'environment.internal.'.$cid.'.showinroster' => $showinroster,
450: );
451: my $putresult = &Apache::lonnet::put('environment',
452: \%changeHash,$udom,$uname);
453: if ($putresult eq 'ok') {
1.10 raeburn 454: &Apache::lonnet::appenv(\%changeHash);
1.8 raeburn 455: my $result = &Apache::lonnet::put('publicroster',{$student => $showinroster,},$cdom,$cnum);
456: if ($result eq 'ok') {
457: $output .= &mt('Display of your name in the student-viewable roster set to <b>[_1]</b>.',$visibility);
458: } else {
1.9 albertel 459: $output .= '<span class="LC_error">'.&mt('Error occurred saving display setting.').'</span>';
1.8 raeburn 460: }
461: } else {
1.9 albertel 462: $output .= '<span class="LC_error">'.&mt('Error occurred saving display setting.').'</span>';
1.8 raeburn 463: }
464: } else {
465: $output .= &mt('Display of your name in the student-viewable roster unchanged (set to <b>[_1]</b>).',$visibility);
466: }
467: return $output;
468: }
469:
470:
471:
472:
1.1 matthew 473: ###################################################################
474: ###################################################################
475:
476: 1;
477: __END__
478:
479:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonviewclasslist.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface