--- loncom/interface/loncoursegroups.pm 2006/06/28 23:38:09 1.29 +++ loncom/interface/loncoursegroups.pm 2006/06/30 03:33:50 1.31 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id: loncoursegroups.pm,v 1.29 2006/06/28 23:38:09 raeburn Exp $ +# $Id: loncoursegroups.pm,v 1.31 2006/06/30 03:33:50 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -89,6 +89,7 @@ sub handler { $idx{fullname} = &Apache::loncoursedata::CL_FULLNAME(); $idx{udom} = &Apache::loncoursedata::CL_SDOM(); $idx{uname} = &Apache::loncoursedata::CL_SNAME(); + $idx{section} = &Apache::loncoursedata::CL_SECTION(); my $rowColor1 = "#dddddd"; my $rowColor2 = "#eeeeee"; @@ -1402,8 +1403,8 @@ sub membership_options { $r->print(&Apache::lonhtmlcommon::role_select_row(\@roles)); if (@sections > 0) { @sections = sort {$a cmp $b} @sections; - unshift(@sections,'all'); # Put 'all' at the front of the list unshift(@sections,'none'); # Put 'no sections' next + unshift(@sections,'all'); # Put 'all' at the front of the list $r->print('  '. §ions_selection(\@sections,'sectionpick').''); @@ -1425,11 +1426,11 @@ sub sections_selection { } foreach my $sec (@{$sections}) { if ($sec eq 'all') { - $section_sel .= ' '."\n"; } elsif ($sec eq 'none') { - $section_sel .= ' '."\n"; } else { - $section_sel .= ' \n"; } } my $output = ' @@ -1766,6 +1767,7 @@ sub pick_new_members { '.&mt('Domain').' ID + Section '); if (@{$available} > 0) { $r->print(''.$lt{'func'}.''); @@ -1794,6 +1796,8 @@ sub pick_new_members { push(@{$Sortby{$members{$user}[$$idx{udom}]}},$user); } elsif ($env{'form.sortby'} eq 'id') { push(@{$Sortby{$members{$user}[$$idx{id}]}},$user); + } elsif ($env{'form.sortby'} eq 'section') { + push(@{$Sortby{$members{$user}[$$idx{section}]}},$user); } else { push(@{$Sortby{$members{$user}[$$idx{fullname}]}},$user); } @@ -1811,10 +1815,12 @@ sub pick_new_members { my $fullname = $members{$user}[$$idx{fullname}]; my $udom = $members{$user}[$$idx{udom}]; my $uname = $members{$user}[$$idx{uname}]; + my $section = $members{$user}[$$idx{section}]; $r->print(' '. $fullname.''.$uname.''. - $udom.''.$id.''); + $udom.''.$id.''. + ''.$section.''); if (@{$available} > 0) { $r->print(''. '       '); @@ -3266,6 +3272,7 @@ sub process_membership { } if ($roster_result eq 'ok') { $r->print('
'.&mt('[_1] membership list updated.',$ucgpterm)); + $r->print('

'.&mt("For full access to all of [_1]'s privileges, users will need to log out and log back in.",$groupname).'

'); } else { $r->print('
'.&mt('An error occurred while updating the [_1] membership list -',$gpterm).$roster_result.'
'); }