--- loncom/interface/loncoursegroups.pm 2005/11/22 00:01:41 1.4 +++ loncom/interface/loncoursegroups.pm 2017/03/19 17:59:15 1.127.2.1 @@ -1,3 +1,6 @@ +# The LearningOnline Network with CAPA +# +# $Id: loncoursegroups.pm,v 1.127.2.1 2017/03/19 17:59:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -26,18 +29,25 @@ package Apache::loncoursegroups; use strict; use Apache::lonnet; -use Apache::loncommon; -use Apache::lonhtmlcommon; +use Apache::loncommon(); +use Apache::lonhtmlcommon(); +use Apache::lonhtmlgateway; use Apache::lonlocal; -use Apache::lonnavmaps; +use Apache::lonnavmaps(); +use Apache::longroup(); +use Apache::portfolio(); use Apache::Constants qw(:common :http); +use HTML::Entities; +use LONCAPA::map(); +use lib '/home/httpd/lib/perl/'; +use LONCAPA; sub handler { my ($r) = @_; &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; - + if ($r->header_only) { return OK; } @@ -46,32 +56,33 @@ sub handler { if (! ($env{'request.course.fn'})) { # Not in a course $env{'user.error.msg'}= - "/adm/coursegroups:mdg:0:0:Cannot edit or view course groups"; + "/adm/coursegroups:mdg:0:0:Cannot edit or view course/community groups"; return HTTP_NOT_ACCEPTABLE; } &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['action','refpage']); - - my $function = &Apache::loncommon::get_users_function(); - my $tabcol = &Apache::loncommon::designparm($function.'.tabbg'); + ['action','refpage','state','groupname','branch']); my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; my $view_permission = - &Apache::lonnet::allowed('vcg',$env{'request.course.id'}); + &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); my $manage_permission = - &Apache::lonnet::allowed('mdg',$env{'request.course.id'}); - + &Apache::lonnet::allowed('mdg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); &Apache::lonhtmlcommon::clear_breadcrumbs(); + my $gpterm = &Apache::loncommon::group_term(); + my $ucgpterm = $gpterm; + $ucgpterm =~ s/^(\w)/uc($1)/e; + my $crstype = &Apache::loncommon::course_type(); + my %functions = ( - email => 'E-mail', - discussion => 'Discussion boards', - chat => 'Chat', - files => 'File repository', - roster => 'Membership roster', - homepage => 'Group home page', + email => 'Send Messages', + discussion => 'Discussion Boards', + chat => 'Chat Room', + files => 'Group Portfolio', + roster => 'Membership Roster', + homepage => $ucgpterm.' home page', ); my %idx = (); @@ -79,86 +90,202 @@ 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 $action = $env{'form.action'}; - if ($action eq 'create' || $action eq 'modify' || $action eq 'view') { + my $state = $env{'form.state'}; + if ((!defined($action)) || ($action eq 'view') || ($action eq 'modify') || ($action eq 'delete') || ($action eq 'reenable')) { + if (!defined($state)) { + $state = 'view'; + } + } + if ($action eq 'create' || $action eq 'modify' || $action eq 'view' || + $action eq 'delete' || $action eq 'reenable') { if ($view_permission || $manage_permission) { - &group_administration($r,$action,$cdom,$cnum,$function,$tabcol, - \%functions,\%idx,$view_permission,$manage_permission); + if ($state eq 'view') { + &print_main_menu($r,$cdom,$cnum,\%functions,\%idx, + $view_permission,$manage_permission, + $action,$state,$gpterm,$ucgpterm,$crstype); + } else { + &group_administration($r,$action,$state,$cdom,$cnum, + \%functions,\%idx,$view_permission, + $manage_permission,$gpterm,$ucgpterm, + $crstype); + } } else { - $r->print('You do not have group administration '. - 'privileges in this course'); + $r->print('
' + .&mt('You do not have '.$gpterm.' administration ' + .'privileges in this '.lc($crstype).'.') + .'
'); } } else { - &print_main_menu($r,$cdom,$cnum,$function,$tabcol,\%functions,\%idx, - $view_permission,$manage_permission); + &print_main_menu($r,$cdom,$cnum,\%functions,\%idx,$view_permission, + $manage_permission,$action,$state,$gpterm,$ucgpterm, + $crstype); } return OK; } sub print_main_menu { - my ($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,$view_permission, - $manage_permission) - = @_; - $r->print(&header('Course Groups',&mt('LON-CAPA Course Groups'), - undef,undef,undef,$function)); + my ($r,$cdom,$cnum,$functions,$idx,$view_permission,$manage_permission, + $action,$state,$gpterm,$ucgpterm,$crstype) = @_; + my $jscript = qq| +function changeSort(caller) { + document.$state.sortby.value = caller; + document.$state.submit(); +} +function openGroupRoster(group,status) { + var url = '/adm/grouproster?'; + url += 'group='+group+'&status='+status+'&ref=popup'; + var title = 'Group_Membership'; + var options = 'scrollbars=1,resizable=1,menubar=0'; + options += ',width=700,height=600'; + rosterbrowser = open(url,title,options,'1'); + rosterbrowser.focus(); +}\n|; + $r->print(&header('My Space',$jscript,$action,$state)); + if ($env{'form.refpage'} eq 'cusr') { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/createuser", + text=>"User Management"}); + } &Apache::lonhtmlcommon::add_breadcrumb ({href=>"/adm/coursegroups", - text=>"Course Groups",}); - $r->print(&Apache::lonhtmlcommon::breadcrumbs - (undef,'Course Groups')); - &display_groups($r,$cdom,$cnum,$function,$tabcol,$functions,$idx, - $view_permission,$manage_permission); + text=>"Groups"}); + my $helpitem; + if ($manage_permission) { + $helpitem = 'Creating_Groups'; + } + $r->print(&Apache::lonhtmlcommon::breadcrumbs('Groups',$helpitem)); + &display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission, + $manage_permission,$action,$state,$gpterm,$ucgpterm, + $crstype); $r->print(&footer()); return; } sub display_groups { - my ($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,$view_permission, - $manage_permission) = @_; + my ($r,$cdom,$cnum,$functions,$idx,$view_permission, + $manage_permission,$action,$state,$gpterm,$ucgpterm,$crstype) = @_; my %curr_groups = (); my %grp_info = (); - my $rowColor1 = "#dddddd"; - my $rowColor2 = "#eeeeee"; - - $r->print('

'); + my %actionlinks = ( + modify => '/adm/coursegroups?action=modify&refpage='. + $env{'form.refpage'}.'&state=pick_task&groupname=', + view => '', + delete => '/adm/coursegroups?action=delete&refpage='. + $env{'form.refpage'}.'&state=verify&groupname=', + reenable => '/adm/coursegroups?action=reenable&refpage='. + $env{'form.refpage'}.'&state=verify&groupname=', + ); + my %lt = &Apache::lonlocal::texthash( + modify => 'Modify', + view => 'View', + delete => 'Delete', + reenable => 'Re-enable', + act => 'Action', + gname => 'Group Name', + desc => 'Group Title', + crea => 'Creator', + crtd => 'Created', + last => 'Last Modified', + func => 'Collaborative Tools', + quot => 'Quota (MB)', + memb => 'Members', + file => 'Files', + dibd => 'Discussion Boards', + dius => 'Disk Use (%)', + nogr => 'No groups exist.', + crng => 'Create a new group', + redg => 'Re-enable a deleted group', + alth => 'Although your current role has privileges'. + ' to view any existing groups in this '. + lc($crstype).', you do not have privileges '. + 'to create new groups.', + ); if ($view_permission) { - my %curr_groups; - if (&Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum)) { - $r->print(&Apache::lonhtmlcommon::start_pick_box()); + if (!defined($action)) { + $action = 'view'; + } + my ($status,$reenable_link); + if ($action eq 'reenable') { + $status = 'deleted_groups'; + } else { + if ($manage_permission) { + my %deleted_groups = + &Apache::longroup::coursegroups($cdom,$cnum,undef,'deleted_groups'); + if (keys(%deleted_groups) > 0) { + $reenable_link = '    '.$lt{'redg'}.''; + } + } + } + my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,undef, + $status); + + if (%curr_groups) { + my $navmap=Apache::lonnavmaps::navmap->new(); + if (!defined($navmap)) { + $r->print('
'. + &mt('An error occurred retrieving information about resources in the course.').'
'. + &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this page.','',''). + '
'); + return; + } + if ($manage_permission) { + if ($action ne 'reenable') { + $r->print('
'.$lt{'crng'}.''); + } + if ($reenable_link) { + $r->print($reenable_link); + } + } + $r->print('

'); + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row()); + $r->print(<<"END"); - - - - - - - - - - - - - - - + + + + + + + + + + + + END + $r->print(&Apache::loncommon::end_data_table_header_row()); my %Sortby = (); foreach my $group (sort(keys(%curr_groups))) { %{$grp_info{$group}} = - &Apache::loncommon::get_group_settings( + &Apache::longroup::get_group_settings( $curr_groups{$group}); - my $members_result = &group_members($cdom,$cnum,$group,\%grp_info); - my $files_result = &group_files($group,\%grp_info); + my $members_result = &group_members($cdom,$cnum,$group, + \%grp_info); + my $port_path = '/userfiles/groups/'.$group.'/portfolio'; + my $totaldirs = 0; + my $totalfiles = 0; + &group_files($group,$port_path,\$totalfiles,\$totaldirs); + $grp_info{$group}{'totalfiles'} = $totalfiles; + $grp_info{$group}{'totaldirs'} = $totaldirs; + my $getpropath = 1; + my $diskuse = &Apache::lonnet::diskusage($cdom,$cnum,$port_path, $getpropath); + if ($grp_info{$group}{'quota'} > 0) { + my $pct_use = 0.1 * $diskuse/$grp_info{$group}{'quota'}; + $grp_info{$group}{'diskuse'} = sprintf("%.0f",$pct_use); + } else { + $grp_info{$group}{'diskuse'} = 'N/A'; + } + my ($groupboards,$boardshash)=&Apache::longroup::get_group_bbinfo( + $cdom,$cnum,$group); + $grp_info{$group}{'boards'} = scalar(@{$groupboards}); if ($env{'form.sortby'} eq 'groupname') { push(@{$Sortby{$group}},$group); } elsif ($env{'form.sortby'} eq 'description') { - push(@{$Sortby{$grp_info{$group}{'description'}}}, - $group); + push(@{$Sortby{$grp_info{$group}{'description'}}},$group); } elsif ($env{'form.sortby'} eq 'creator') { push(@{$Sortby{$grp_info{$group}{'creator'}}},$group); } elsif ($env{'form.sortby'} eq 'creation') { @@ -171,8 +298,7 @@ END push(@{$Sortby{$grp_info{$group}{'totalmembers'}}}, $group); } elsif ($env{'form.sortby'} eq 'totalfiles') { - push(@{$Sortby{$grp_info{$group}{'totalfiles'}}}, - $group); + push(@{$Sortby{$grp_info{$group}{'totalfiles'}}},$group); } elsif ($env{'form.sortby'} eq 'boards') { push(@{$Sortby{$grp_info{$group}{'boards'}}},$group); } elsif ($env{'form.sortby'} eq 'diskuse') { @@ -181,68 +307,136 @@ END push(@{$Sortby{$group}},$group); } } - my $rowNum = 0; - my $rowColor; foreach my $key (sort(keys(%Sortby))) { foreach my $group (@{$Sortby{$key}}) { - if ($rowNum %2 == 1) { - $rowColor = $rowColor1; - } else { - $rowColor = $rowColor2; - } my $description = - &Apache::lonnet::unescape($grp_info{$group}{'description'}); + &unescape($grp_info{$group}{'description'}); my $creator = $grp_info{$group}{'creator'}; my $creation = $grp_info{$group}{'creation'}; my $modified = $grp_info{$group}{'modified'}; my $quota = $grp_info{$group}{'quota'}; my $totalmembers = $grp_info{$group}{'totalmembers'}; my $totalfiles = $grp_info{$group}{'totalfiles'}; + my $totaldirs = $grp_info{$group}{'totaldirs'}; my $boards = $grp_info{$group}{'boards'}; my $diskuse = $grp_info{$group}{'diskuse'}; my $functionality; - foreach my $tool (sort keys(%{$functions})) { - if (defined($grp_info{$group}{functions}{$tool})) { + foreach my $tool (sort(keys(%{$functions}))) { + if ($grp_info{$group}{functions}{$tool} eq 'on') { $functionality .= ' '.$tool; } } if (!$functionality) { - $functionality = 'None available'; + $functionality = &mt('None available'); + } + my $link; + if ($action eq 'modify' || $action eq 'delete' || + $action eq 'reenable') { + $link = ''.$lt{$action}.''; + } else { + $link = + &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap); + if ($link) { + $link = ''.$lt{$action}.''; + } } - $r->print(''); - $rowNum ++; + if ($action eq 'view') { + if ($manage_permission) { + $link .= '  '.$lt{'modify'}.'  '.$lt{'delete'}.''; + } + } + $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense'). + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. + &Apache::loncommon::end_data_table_row()); + } + } + $r->print(&Apache::loncommon::end_data_table()); + $r->print(''); + if ($action eq 'view') { + if (!defined($state)) { + $state = 'view'; } + $r->print(''); } - $r->print('
ActionGroup NameDescriptionCreator - Created - Last Modified - Functionality - Quota (Mb)MembersFilesDiscussion boardsDisk use
$lt{'act'}$lt{'gname'}$lt{'desc'}$lt{'crea'}$lt{'crtd'}$lt{'last'}$lt{'func'}$lt{'quot'}$lt{'memb'}$lt{'file'}$lt{'dibd'}$lt{'dius'}
- View Modify'.$group.''.$description.''.$creator.''. &Apache::lonnavmaps::timeToHumanString($creation).''. &Apache::lonnavmaps::timeToHumanString($modified).''.$functionality.''.$quota.''.$totalmembers.''.$totalfiles.''.$boards.''.$diskuse.'
'.$link.''.$group.''.$description.''.$creator.''. &Apache::lonnavmaps::timeToHumanString($creation).''. &Apache::lonnavmaps::timeToHumanString($modified).''.$functionality.''.$quota.''.$totalmembers.''. + ''.&mt('Files: [_1]',$totalfiles).'
'. + ''.&mt('Folders: [_1]',$totaldirs).''. + '		'.$boards.''.$diskuse.'
'); - $r->print(&Apache::lonhtmlcommon::end_pick_box()); } else { - $r->print('No groups exist'); + $r->print($lt{'nogr'}); + if ($manage_permission) { + $r->print('

'.$lt{'crng'}.''); + if ($action ne 'reenable') { + if ($reenable_link) { + $r->print($reenable_link); + } + } + } else { + $r->print('

'.$lt{'alth'}); + } } } else { my @coursegroups = split(/:/,$env{'request.course.groups'}); if (@coursegroups > 0) { - my %curr_groups; - if (&Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum)) { + $r->print('

'); + my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); + if (%curr_groups) { + my $navmap=Apache::lonnavmaps::navmap->new(); + if (!defined($navmap)) { + $r->print('
'. + &mt('An error occurred retrieving information about resources in the course.').'
'. + &mt('It is recommended that you [_1]re-initialize the course[_2] and then return to this page.','',''). + '
'); + return; + } foreach my $group (@coursegroups) { - my %group_info = &Apache::loncommon::get_group_settings( - $curr_groups{$group}); - my $description = &Apache::lonnet::unescape( - $group_info{description}); - my ($uname,$udom) = split(/:/,$group_info{creator}); - $r->print(''.$group,'
'.$description.'

'); + my %group_info = &Apache::longroup::get_group_settings( + $curr_groups{$group}); + my $description = &unescape( + $group_info{description}); + my $link = + &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap). + '&ref=grouplist'; + $r->print(''.$group,'
'.$description.'

'); } } } else { - $r->print('You are not currently a member of any active groups in this course'); + $r->print( + '

' + .&mt('You are not currently a member of any active '.$gpterm.'s' + .' in this '.lc($crstype).'.') + .'

' + ); } } return; } sub group_administration { - my ($r,$action,$cdom,$cnum,$function,$tabcol,$functions,$idx, - $view_permission,$manage_permission) = @_; + my ($r,$action,$state,$cdom,$cnum,$functions,$idx,$view_permission, + $manage_permission,$gpterm,$ucgpterm,$crstype) = @_; my %sectioncount = (); my @tools = (); my @types = (); @@ -252,105 +446,153 @@ sub group_administration { my %userdata = (); my @members = (); my %usertools = (); + my %stored = (); + my %memchg; + my @member_changes = ('deletion','expire','activate','reenable', + 'changefunc','changepriv'); + my ($groupname,$description,$startdate,$enddate,$granularity,$specificity, + $quota,$validate_script); - my $state = $env{'form.state'}; - my ($groupname,$description,$startdate,$enddate); + if (defined($env{'form.groupname'})) { + $groupname = $env{'form.groupname'}; + } - if ($action eq 'create') { + if (($action eq 'create') && ($state eq '')) { + $state = 'pick_name'; + } + if (($action eq 'create') || + (($action eq 'modify') && ($state eq 'chgresult'))) { + ($startdate,$enddate) = &get_dates_from_form(); + if (defined($env{'form.description'})) { + $description = $env{'form.description'}; + } + if (defined($env{'form.tool'})) { + @tools=&Apache::loncommon::get_env_multiple('form.tool'); + } + if (defined($env{'form.granularity'})) { + $granularity=$env{'form.granularity'}; + } + if (defined($env{'form.specificity'})) { + $specificity=$env{'form.specificity'}; + } + if (defined($env{'form.quota'})) { + $quota=$env{'form.quota'}; + } + } + if (($action eq 'create') || (($action eq 'modify') + && (($state eq 'pick_privs') || ($state eq 'addresult')))) { + if (defined($env{'form.member'})) { + @members = &Apache::loncommon::get_env_multiple('form.member'); + foreach my $user (@members) { + %{$usertools{$user}} = (); + } + } + } + + if ($action eq 'modify') { if ($state eq '') { - $state = 'pick_name'; - } else { - ($startdate,$enddate) = &get_dates_from_form(); if (defined($env{'form.groupname'})) { - $groupname = $env{'form.groupname'}; + $state = 'pick_task'; } - if (defined($env{'form.description'})) { - $description = $env{'form.description'}; + } else { + %stored = &retrieve_settings($cdom,$cnum,$groupname,$action); + if (ref($stored{'types'}) eq 'ARRAY') { + @types = @{$stored{'types'}}; + } + if (ref($stored{'roles'}) eq 'ARRAY') { + @roles = @{$stored{'roles'}}; } - if (defined($env{'form.tool'})) { - @tools=&Apache::loncommon::get_env_multiple('form.tool'); + if (ref($stored{'sectionpick'}) eq 'ARRAY') { + @sections = @{$stored{'sectionpick'}}; } - if (defined($env{'form.member'})) { - @members = &Apache::loncommon::get_env_multiple('form.member'); - foreach my $user (@members) { - %{$usertools{$user}} = (); + unless ($state eq 'chgresult') { + if (ref($stored{'tool'}) eq 'ARRAY') { + @tools = @{$stored{'tool'}}; } + $startdate = $stored{'startdate'}; + $enddate = $stored{'enddate'}; + $description = $stored{'description'}; + $granularity = $stored{'granularity'}; + $specificity = $stored{'specificity'}; + $quota = $stored{'quota'}; } } } - my %toolprivs = (); - %{$toolprivs{'email'}} = ( - sgm => 'Send group mail', - sgb => 'Broadcast mail', - ); - %{$toolprivs{'discussion'}} = ( - cgb => 'Create boards', - pgd => 'Post', - pag => 'Anon. posts', - rgi => 'Get identities', - vgb => 'View boards', - ); - %{$toolprivs{'chat'}} = ( - pgc => 'Chat', - ); - %{$toolprivs{'files'}} = ( - rgf => 'Retrieve', - ugf => 'Upload', - dgf => 'Delete', - ); - %{$toolprivs{'roster'}} = ( - vgm => 'View', - ); - %{$toolprivs{'homepage'}} = ( - vgh => 'View page', - mgh => 'Modify page', - ); - my %fixedprivs = (); - %{$fixedprivs{'email'}} = ('sgm' => 1); - %{$fixedprivs{'discussion'}} = ('vgb' => 1); - %{$fixedprivs{'chat'}} = ('pgc' => 1); - %{$fixedprivs{'files'}} = ('rgf' => 1); - %{$fixedprivs{'roster'}} = ('vgm' => 1); - %{$fixedprivs{'homepage'}} = ('vgh' => 1); - - my %elements = (); - %{$elements{'create'}} = (); - %{$elements{'modify'}} = (); - %{$elements{'create'}{'pick_name'}} = ( - startdate_month => 'selectbox', - startdate_hour => 'selectbox', - enddate_month => 'selectbox', - enddate_hour => 'selectbox', - types => 'selectbox', - roles => 'selectbox', - startdate_day => 'text', - startdate_year => 'text', - startdate_minute => 'text', - startdate_second => 'text', - enddate_day => 'text', - enddate_year => 'text', - enddate_minute => 'text', - enddate_second => 'text', - groupname => 'text', - description => 'text', - tool => 'checkbox', - granularity => 'radio', - no_end_date => 'checkbox', - ); - %{$elements{'create'}{'pick_members'}} = ( - member => 'checkbox', - ); - if (($action eq 'create') && ($state eq 'pick_name')) { - my $numsections = &Apache::loncommon::get_sections($cdom,$cnum, - \%sectioncount); - if ($numsections > 0) { - $elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox'; + my $toolprivs = &Apache::longroup::get_tool_privs($gpterm); + + my $fixedprivs = &Apache::longroup::get_fixed_privs(); + + my %elements = + ( + create => { + pick_name => { + startdate_month => 'selectbox', + startdate_hour => 'selectbox', + enddate_month => 'selectbox', + enddate_hour => 'selectbox', + startdate_day => 'text', + startdate_year => 'text', + startdate_minute => 'text', + startdate_second => 'text', + enddate_day => 'text', + enddate_year => 'text', + enddate_minute => 'text', + enddate_second => 'text', + groupname => 'text', + description => 'text', + quota => 'text', + tool => 'checkbox', + granularity => 'radio', + no_end_date => 'checkbox', + }, + pick_members => { + member => 'checkbox', + defpriv => 'checkbox', + }, + }, + ); + + $elements{'modify'} = { + change_settings => { + %{$elements{'create'}{'pick_name'}}, + specificity => 'radio', + defpriv => 'checkbox', + autorole => 'checkbox', + autoadd => 'radio', + autodrop => 'radio', + }, + add_members => { + types => 'selectbox', + roles => 'selectbox', + }, + }; + + if (ref($stored{'autorole'}) eq 'ARRAY') { + foreach my $role (@{$stored{'autorole'}}) { + unless (($role eq 'cc') || ($role eq 'co')) { + $elements{'modify'}{'change_settings'}{'sec_'.$role} = + 'selectbox'; + } } } - - if (($action eq 'create') && (($state eq 'pick_members') || - ($state eq 'pick_privs'))) { + + if (($action eq 'create') && ($state eq 'pick_name')) { + $elements{'create'}{'pick_name'}{'types'} = 'selectbox'; + $elements{'create'}{'pick_name'}{'roles'} = 'selectbox'; + } + if ((($action eq 'create') && + (($state eq 'pick_name') || ($state eq 'pick_privs'))) || + (($action eq 'modify') && (($state eq 'change_settings') || + ($state eq 'add_members')))) { + %sectioncount = &Apache::loncommon::get_sections($cdom,$cnum); + $elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox'; + $elements{'modify'}{'change_mapping'}{'sectionpick'} = 'selectbox'; + $elements{'modify'}{'add_members'}{'sectionpick'} = 'selectbox'; + } + + if (($action eq 'create') || + ($action eq 'modify' && $state eq 'pick_members')) { if (defined($env{'form.types'})) { @types=&Apache::loncommon::get_env_multiple('form.types'); } @@ -359,171 +601,905 @@ sub group_administration { } if (defined($env{'form.sectionpick'})) { @sections=&Apache::loncommon::get_env_multiple('form.sectionpick'); - if (grep/^_all$/,@sections) { - @sections = sort {$a cmp $b} keys(%sectioncount); - } } - &build_members_list($cdom,$cnum,\@types,\@roles, - \@sections,\%users,\%userdata); + } + + if (($state eq 'pick_members') || ($state eq 'pick_privs') || ($state eq 'change_privs')) { + &build_members_list($cdom,$cnum,\@types,\@roles,\@sections,\%users, + \%userdata); + } + if ($state eq 'pick_members') { if ((keys(%users) > 0) && (@tools > 0)) { + if ($granularity eq 'Yes') { + $elements{$action}{'pick_members'}{'togglefunc'} = 'checkbox'; + } + foreach my $tool (@tools) { + if ($granularity eq 'Yes') { + $elements{$action}{'pick_members'}{'user_'.$tool} = 'checkbox'; + } + } + $elements{$action}{'pick_members'}{'specificity'} = 'radio'; + } + } + if ($state eq 'change_members') { + my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, + $groupname); + my $now = time; + my $num_expire = 0; + my $num_activate = 0; + my $num_reenable = 0; + my $num_deletion = 0; + my $numusers = 0; + foreach my $key (sort(keys(%membership))) { + if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) { + my $user = $1; + my($end,$start,@userprivs) = split(/:/,$membership{$key}); + unless ($start == -1) { + $numusers ++; + $num_deletion ++; + if (($end > 0) && ($end < $now)) { + $num_reenable ++; + next; + } elsif (($start > $now)) { + $num_activate ++; + next; + } else { + $num_expire ++; + next; + } + next; + } + if ($num_reenable && $num_activate && $num_expire) { + last; + } + } + } + if ($num_deletion) { + $elements{$action}{'change_members'}{'deletion'} = 'checkbox'; + } + if ($num_expire) { + $elements{$action}{'change_members'}{'expire'} = 'checkbox'; + } + if ($num_activate) { + $elements{$action}{'change_members'}{'activate'} = 'checkbox'; + } + if ($num_reenable) { + $elements{$action}{'change_members'}{'reenable'} = 'checkbox'; + } + if ($numusers) { + if ($granularity eq 'Yes') { + $elements{$action}{'change_members'}{'togglefunc'} = 'checkbox'; + } foreach my $tool (@tools) { - if ($env{'form.granularity'} eq 'Yes') { - $elements{'create'}{'pick_members'}{'user_'.$tool} = 'checkbox'; + if ($granularity eq 'Yes') { + $elements{$action}{'change_members'}{'user_'.$tool} = 'checkbox'; } } - $elements{'create'}{'pick_members'}{'specificity'} = 'radio'; + if ($specificity eq 'Yes') { + $elements{$action}{'change_members'}{'changepriv'} = 'checkbox'; + } } } - if (($action eq 'create') && (($state eq 'pick_privs') || (($state eq 'result') && - ($env{'form.specificity'} eq 'No')))) { + if (($state eq 'pick_privs') || ($state eq 'change_privs') || + (($specificity eq 'No') && + ($state eq 'memresult' || $state eq 'result' || $state eq 'addresult'))) { foreach my $tool (@tools) { my @values = &Apache::loncommon::get_env_multiple('form.user_'.$tool); foreach my $user (@values) { + if ($state eq 'pick_privs' || $state eq 'result' + || $state eq 'addresult') { + if (!grep(/^\Q$user\E$/,@members)) { + next; + } + } unless(exists($usertools{$user}{$tool})) { $usertools{$user}{$tool} = 1; } } } - if (($state eq 'pick_privs') && ($env{'form.specificity'} eq 'Yes')) { - foreach my $member (@members) { - foreach my $tool (keys(%{$usertools{$member}})) { - foreach my $priv (keys(%{$toolprivs{$tool}})) { - unless (exists($fixedprivs{$tool}{$priv})) { - $elements{'create'}{'pick_privs'}{'userpriv_'.$priv} = - 'checkbox'; + } + + if (($action eq 'modify') && (($state eq 'change_privs') || ($state eq 'memresult'))) { + foreach my $chg (@member_changes) { + if (defined($env{'form.'.$chg})) { + @{$memchg{$chg}} = &Apache::loncommon::get_env_multiple('form.'.$chg); + } + } + + if ($state eq 'change_privs') { + my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, + $groupname); + my $now = time; + foreach my $key (sort(keys(%membership))) { + if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) { + my $user = $1; + my $changefunc = 0; + my ($end,$start,@userprivs) = split(/:/,$membership{$key}); + unless ($start == -1) { + if (($end > 0) && ($end < $now)) { + unless (grep/^$user$/,$memchg{'reenable'}) { + next; + } + } + my @currtools = (); + if (@userprivs > 0) { + foreach my $tool (sort(keys(%{$fixedprivs}))) { + foreach my $priv (keys(%{$$fixedprivs{$tool}})) { + if (grep/^$priv$/,@userprivs) { + push(@currtools,$tool); + last; + } + } + } + } + foreach my $tool (@currtools) { + if (keys(%{$usertools{$user}}) > 0) { + if (!$usertools{$user}{$tool}) { + push(@{$memchg{'changefunc'}},$user); + $changefunc = 1; + last; + } + } else { + push(@{$memchg{'changefunc'}},$user); + $changefunc = 1; + } + } + if ($changefunc) { + next; + } + if (keys(%{$usertools{$user}}) > 0) { + foreach my $tool (keys(%{$usertools{$user}})) { + if (!grep/^$tool$/,@currtools) { + push(@{$memchg{'changefunc'}},$user); + $changefunc = 1; + last; + } + } + } + } + } + } + &check_changes(\@member_changes,\%memchg); + my %temptools; + foreach my $change (@member_changes) { + if (($change eq 'deletion') || ($change eq 'expire')) { + next; + } + foreach my $user (@{$memchg{$change}}) { + unless (exists($usertools{$user})) { + %{$usertools{$user}} = (); + } + %{$temptools{$user}} = %{$usertools{$user}}; + } + } + %usertools = %temptools; + } elsif ($state eq 'memresult') { + foreach my $change (@member_changes) { + if ($change eq 'expire' || $change eq 'deletion') { + next; + } + if (ref($memchg{$change}) eq 'ARRAY') { + my @users = @{$memchg{$change}}; + foreach my $user (@users) { + unless (exists($usertools{$user})) { + %{$usertools{$user}} = (); } } } } } } - - my $jscript; - if ($env{'form.action'} eq 'create') { - $jscript = &Apache::loncommon::check_uncheck_jscript(); + + if ((($state eq 'pick_privs') || ($state eq 'change_privs')) + && ($specificity eq 'Yes')) { + foreach my $user (sort(keys(%usertools))) { + foreach my $tool (keys(%{$usertools{$user}})) { + foreach my $priv (keys(%{$$toolprivs{$tool}})) { + unless (exists($$fixedprivs{$tool}{$priv})) { + $elements{$action}{$state}{'userpriv_'.$priv} = 'checkbox'; + } + } + } + } + } + + if (($action eq 'create' && $state eq 'pick_name') || + ($action eq 'modify' && $state eq 'change_settings')) { + my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,\%stored); + my $space_trim = '/^\s*|\s*\$/g,""'; + my $float_check = '/^([0-9]*\.?[0-9]*)$/'; + $validate_script = ' + var newquota = new String(document.'.$state.'.quota.value); + newquota.replace('.$space_trim.'); + if (newquota == "" ) { + document.'.$state.'.quota.value = 0; + newquota = "0"; + } + var maxposs = '.sprintf("%.2f",$maxposs).'; + if (newquota > maxposs) { + alert("The group portfolio quota you entered for this group ("+newquota+" MB) exceeds the maximum possible ("+maxposs+" MB). Please enter a smaller number."); + return; + } + var re_quota = '.$float_check.'; + var check_quota = newquota.match(re_quota); + if (check_quota == null) { + alert("The quota you entered contains invalid characters, the quota should only include numbers, with or without a decimal point."); + return; } + if (newquota == 0) { + var warn_zero = 0; + for (var i=0; iprint(&header('Course Groups Manager',&mt('LON-CAPA Groups Manager'), - $jscript,$action,$state,$function,$loaditems)); + $r->print(&header("Groups Manager", + $jscript,$action,$state,$page,$loaditems)); - if ($env{'form.refpage'} eq 'enrl') { + if ($env{'form.refpage'} eq 'cusr') { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>"/adm/dropadd", - text=>"Enrollment Manager", + ({href=>"/adm/createuser", + text=>"User Management", faq=>9,bug=>'Instructor Interface',}); - } else { + if ($action eq 'modify' || $action eq 'delete') { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/coursegroups?refpage=cusr&action=$action", + text=>"Groups", + faq=>9,bug=>'Instructor Interface',}); + } + } else { &Apache::lonhtmlcommon::add_breadcrumb - ({href=>"/adm/coursegroups", - text=>"Course Groups", - faq=>9,bug=>'Instructor Interface',}); + ({href=>"/adm/coursegroups", + text=>"Groups", + faq=>9,bug=>'Instructor Interface',}); + if ($env{'form.refpage'} eq 'grouplist') { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>"/adm/$cdom/$cnum/$env{'form.groupname'}/smppg?ref=grouplist", + text=>"Group: $description",}); + } } - my %states = (); - @{$states{'create'}} = ('pick_name','pick_members','pick_privs','result'); - @{$states{'modify'}} = (); - my %trail = (); - %{$trail{'create'}} = ( - pick_name => 'Group Settings', + %{$trail{'create'}} = &Apache::lonlocal::texthash ( + pick_name => $ucgpterm.' Settings', pick_members => 'Select Members', pick_privs => 'Choose Privileges', result => 'Creation Complete', ); - %{$trail{'modify'}} = (); - - if ((($action eq 'create') || ($action eq 'modify')) && + %{$trail{'modify'}} = &Apache::lonlocal::texthash( + pick_task => 'Choose Task', + change_settings => "$ucgpterm Settings", + change_members => 'Modify/Delete Members', + change_privs => 'Change Privileges', + change_mapping => 'Membership Mapping', + add_members => 'Add Members', + pick_members => 'Select Members', + pick_privs => 'Choose Privileges', + chgresult => 'Setting Changes Complete', + memresult => 'Modifications Complete', + addresult => 'Additions Complete', + ); + %{$trail{'delete'}} = &Apache::lonlocal::texthash( + verify => 'Verify deletion', + result => 'Deletion Complete' + ); + %{$trail{'reenable'}} = &Apache::lonlocal::texthash( + verify => 'Verify Re-enable', + result => 'Re-enabled' + ); + my %navbuttons = &Apache::lonlocal::texthash( + gtns => 'Next',#'Go to next step', + gtps => 'Back',#'Go to previous step', + crgr => 'Create '.$gpterm, + mose => 'Save',#'Modify settings', + gtpp => 'Back',#'Go to previous page', + adme => 'Add members', + ); + if ((($action eq 'create') || ($action eq 'modify') || ($action eq 'delete') || ($action eq 'reenable')) && ($manage_permission)) { for (my $i=0; $i<@{$states{$action}}; $i++) { if ($state eq $states{$action}[$i]) { &Apache::lonhtmlcommon::add_breadcrumb( {text=>"$trail{$action}{$state}"}); $r->print(&Apache::lonhtmlcommon::breadcrumbs - (undef,'Course Groups Manager')); - &display_control($r,$cdom,$cnum,$tabcol,$action,$state, - \%sectioncount,$groupname,$description,$functions, - \@tools,\%toolprivs,\%fixedprivs,$startdate,$enddate, - \%users,\%userdata,$idx,\@members,\%usertools); + ("Groups Manager","Creating_Groups")); + &display_control($r,$cdom,$cnum,$action,$state,$page, + \%sectioncount,$groupname,$description,$functions, + \@tools,$toolprivs,$fixedprivs,$startdate,$enddate, + \%users,\%userdata,$idx,\%memchg,\%usertools, + $view_permission,$manage_permission, + \%stored,$granularity,$quota,$specificity,\@types,\@roles, + \@sections,\%states,\%navbuttons,$gpterm,$ucgpterm, + $crstype); last; } else { - if ($state eq 'result' && $i > 0) { - &Apache::lonhtmlcommon::add_breadcrumb( + if (($action eq 'create') || ($action eq 'modify')) { + if (($state eq 'result') && ($i > 0)) { + &Apache::lonhtmlcommon::add_breadcrumb( {href=>"javascript:backPage(document.$state,'$states{$action}[0]')", text=>"$trail{$action}{$states{$action}[$i]}"}); - } else { - &Apache::lonhtmlcommon::add_breadcrumb( + } else { + &Apache::lonhtmlcommon::add_breadcrumb( {href=>"javascript:backPage(document.$state,'$states{$action}[$i]')", text=>"$trail{$action}{$states{$action}[$i]}"}); + } } - } + } } } elsif (($action eq 'view') && ($view_permission)) { &Apache::lonhtmlcommon::add_breadcrumb( - {text=>"View groups"}); + {text=>"View $gpterm".'s'}); $r->print(&Apache::lonhtmlcommon::breadcrumbs - (undef,'Course Groups Manager')); - &display_groups($r,$cdom,$cnum,$function,$tabcol,$functions,$idx, - $view_permission,$manage_permission); - + ('Groups Manager')); + &display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission, + $manage_permission,$action,$state,$gpterm,$ucgpterm, + $crstype); } $r->print(&footer()); return; } +sub retrieve_settings { + my ($cdom,$cnum,$groupname,$action) = @_; + my %curr_groups; + my $namespace; + if ($action eq 'reenable') { + $namespace = 'deleted_groups'; + } else { + $namespace = 'coursegroups'; + } + %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$groupname, + $namespace); + + return if (!%curr_groups); + + my %groupinfo = + &Apache::longroup::get_group_settings($curr_groups{$groupname}); + + my %stored; + + $stored{'description'} = + &unescape($groupinfo{'description'}); + $stored{'startdate'} = $groupinfo{'startdate'}; + $stored{'enddate'} = $groupinfo{'enddate'}; + if ($stored{'enddate'} == 0) { + $stored{'no_end_date'} = 1; + } + $stored{'granularity'} = $groupinfo{'granularity'}; + $stored{'specificity'} = $groupinfo{'specificity'}; + $stored{'creation'} = $groupinfo{'creation'}; + $stored{'creator'} = $groupinfo{'creator'}; + $stored{'quota'} = $groupinfo{'quota'}; + + foreach my $tool (sort(keys(%{$groupinfo{'functions'}}))) { + if ($groupinfo{functions}{$tool} eq 'on') { + push(@{$stored{tool}},$tool); + } + } + foreach my $role (@{$groupinfo{'roles'}}) { + push(@{$stored{roles}},$role); + } + foreach my $type (@{$groupinfo{'types'}}) { + push(@{$stored{types}},$type); + } + foreach my $section (@{$groupinfo{'sectionpick'}}) { + push(@{$stored{sectionpick}},$section); + } + foreach my $defpriv (@{$groupinfo{'defpriv'}}) { + push(@{$stored{defpriv}},$defpriv); + } + $stored{'autoadd'} = $groupinfo{'autoadd'}; + $stored{'autodrop'} = $groupinfo{'autodrop'}; + if (exists($groupinfo{'autosec'})) { + foreach my $role (sort(keys(%{$groupinfo{'autosec'}}))) { + if (ref($groupinfo{'autosec'}{$role}) eq 'ARRAY') { + foreach my $section (@{$groupinfo{'autosec'}{$role}}) { + + push (@{$stored{'sec_'.$role}},$section); + } + if (@{$groupinfo{'autosec'}{$role}} > 0) { + push(@{$stored{'autorole'}},$role); + } + } + } + } + return %stored; +} + sub display_control { - my ($r,$cdom,$cnum,$tabcol,$action,$state,$sectioncount,$groupname, + my ($r,$cdom,$cnum,$action,$state,$page,$sectioncount,$groupname, $description,$functions,$tools,$toolprivs,$fixedprivs,$startdate, - $enddate,$users,$userdata,$idx,$members,$usertools) = @_; + $enddate,$users,$userdata,$idx,$memchg,$usertools, + $view_permission,$manage_permission,$stored,$granularity,$quota, + $specificity,$types,$roles,$sections,$states,$navbuttons, + $gpterm,$ucgpterm,$crstype) = @_; if ($action eq 'create') { if ($state eq 'pick_name') { - &first_creation_form($r,$cdom,$cnum,$tabcol,$state,$functions, - $sectioncount); + &general_settings_form($r,$cdom,$cnum,$action,$state,$page, + $functions,$tools,$toolprivs,$fixedprivs, + $sectioncount,$stored,$states,$navbuttons, + $gpterm,$ucgpterm,$crstype); + } elsif ($state eq 'pick_members') { + &choose_members_form($r,$cdom,$cnum,$action,$state,$page, + $groupname,$description,$granularity,$quota, + $startdate,$enddate,$tools,$fixedprivs, + $toolprivs,$functions,$users,$userdata,$idx, + $stored,$states,$navbuttons,$gpterm,$ucgpterm, + $crstype); + } elsif ($state eq 'pick_privs') { + &choose_privs_form($r,$cdom,$cnum,$action,$state,$page, + $startdate,$enddate,$tools,$functions, + $toolprivs,$fixedprivs,$userdata,$usertools, + $idx,$states,$stored,$sectioncount,$navbuttons, + $gpterm,$ucgpterm,$crstype); + } elsif ($state eq 'result') { + &process_request($r,$cdom,$cnum,$action,$state,$page, + $groupname,$description,$specificity,$userdata, + $startdate,$enddate,$tools,$functions, + $toolprivs,$usertools,$idx,$types,$roles, + $sections,$states,$navbuttons,$memchg, + $sectioncount,$stored,$gpterm,$ucgpterm,$crstype); + } + } elsif ($action eq 'modify') { + my $groupname = $env{'form.groupname'}; + if ($state eq 'pick_task') { + &modify_menu($r,$groupname,$page,$gpterm); + } elsif ($state eq 'change_settings') { + &general_settings_form($r,$cdom,$cnum,$action,$state,$page, + $functions,$tools,$toolprivs,$fixedprivs, + $sectioncount,$stored,$states,$navbuttons, + $gpterm,$ucgpterm,$crstype); + } elsif ($state eq 'change_members') { + &change_members_form($r,$cdom,$cnum,$action,$state,$page, + $groupname,$description,$startdate,$enddate, + $tools,$fixedprivs,$functions,$users, + $userdata,$granularity,$quota,$specificity, + $idx,$states,$navbuttons,$gpterm,$ucgpterm); + } elsif ($state eq 'add_members') { + &add_members_form($r,$cdom,$cnum,$action,$state,$page,$startdate, + $enddate,$groupname,$description,$granularity, + $quota,$sectioncount,$tools,$functions,$stored, + $states,$navbuttons,$gpterm,$ucgpterm,$crstype); } elsif ($state eq 'pick_members') { - &second_creation_form($r,$cdom,$cnum,$tabcol,$state,$groupname, - $description,$startdate,$enddate,$tools, - $functions,$users,$userdata,$idx); + &choose_members_form($r,$cdom,$cnum,$action,$state,$page, + $groupname,$description,$granularity,$quota, + $startdate,$enddate,$tools,$fixedprivs, + $toolprivs,$functions,$users,$userdata,$idx, + $stored,$states,$navbuttons,$gpterm,$ucgpterm, + $crstype); } elsif ($state eq 'pick_privs') { - &third_creation_form($r,$cdom,$cnum,$tabcol,$state,$startdate, - $enddate,$tools,$functions,$toolprivs,$fixedprivs, - $userdata,$members,$usertools,$idx); + &choose_privs_form($r,$cdom,$cnum,$action,$state,$page, + $startdate,$enddate,$tools,$functions, + $toolprivs,$fixedprivs,$userdata,$usertools, + $idx,$states,$stored,$sectioncount,$navbuttons, + $gpterm,$ucgpterm,$crstype); + } elsif ($state eq 'change_privs') { + &change_privs_form($r,$cdom,$cnum,$action,$state,$page, + $startdate,$enddate,$tools,$functions, + $toolprivs,$fixedprivs,$userdata,$usertools, + $memchg,$idx,$states,$stored,$sectioncount, + $navbuttons,$gpterm,$ucgpterm); + } elsif ($state eq 'chgresult' || $state eq 'memresult' || + $state eq 'addresult') { + &process_request($r,$cdom,$cnum,$action,$state,$page, + $groupname,$description,$specificity,$userdata, + $startdate,$enddate,$tools,$functions, + $toolprivs,$usertools,$idx,$types,$roles, + $sections,$states,$navbuttons,$memchg, + $sectioncount,$stored,$gpterm,$ucgpterm,$crstype); + } + } elsif ($action eq 'delete') { + my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action); + if ($state eq 'verify') { + &verify_delete($r,$groupname,$state,$action,$page,$states, + \%stored,$crstype); + } elsif ($state eq 'result') { + &delete_group($r,$cdom,$cnum,$groupname,$crstype); + } + } elsif ($action eq 'reenable') { + my %stored = &retrieve_settings($cdom,$cnum,$groupname,$action); + if ($state eq 'verify') { + &verify_reenable($r,$groupname,$state,$action,$page,$states, + \%stored,$crstype); } elsif ($state eq 'result') { - &completed_creation($r,$cdom,$cnum,$tabcol,$state,$groupname, - $description,$userdata,$startdate,$enddate,$tools, - $functions,$toolprivs,$members,$usertools,$idx); + &reenable_group($r,$cdom,$cnum,$groupname,$crstype); } } } +sub verify_delete { + my ($r,$groupname,$formname,$action,$page,$states,$stored,$crstype) = @_; + $r->print(&Apache::lonhtmlcommon::echo_form_input([])); + $r->print(&mt('You have requested deletion of the group [_1].' + ,''.$stored->{'description'}.''). + '

'.&mt('When a group is deleted the following occurs:').'
    '. + '
  • '.&mt('All group membership is terminated.').'
    • '. + '
  • '.&mt('The group ceases to be available either for viewing or for modification of group settings and membership.').'
    • '); + if ($crstype eq 'Community') { + $r->print( '
  • '.&mt("The group folder is removed from the folder containing it - normally this is the 'Community Groups' folder which contains folders for all groups in the community.").'
    • '. + '
'.&mt("Although a deleted group is no longer accessible, the group name used for the group will be reserved, and will not be available for assignment to a new group in the same community in the future.")); + } else { + $r->print( '
  • '.&mt("The group folder is removed from the folder containing it - normally this is the 'Course Groups' folder which contains folders for all groups in the course.").'
    • '. + ''.&mt("Although a deleted group is no longer accessible, the group name used for the group will be reserved, and will not be available for assignment to a new group in the same course in the future.")); + } + my $prevtext = &mt('Go back'); + my $nexttext = &mt('Delete group'); + my $prev; + if ($env{'form.refpage'} eq 'cusr') { + $prev = 'view'; + } + &display_navbuttons($r,$formname,$prev,$prevtext, + $$states{$action}[$page+1],$nexttext); + return; +} + +sub delete_group { + my ($r,$cdom,$cnum,$groupname,$crstype) = @_; + my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, + $groupname); + my $now = time; + my $num_users = 0; + my $num_fail = 0; + my $num_ok = 0; + my @deleted; + my @undeleted; + my %usersettings; + my $context = 'deletegroup'; + foreach my $key (sort(keys(%membership))) { + if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) { + my $user = $1; + my($end,$start,$userprivs) = split(/:/,$membership{$key},3); + if ($start != -1) { + $num_users ++; + $usersettings{$groupname.':'.$user} = $now.':-1:'.$userprivs; + if (&Apache::lonnet::modify_group_roles($cdom,$cnum, + $groupname,$user, + $now,'-1',$userprivs, + '',$context) + eq 'ok') { + $num_ok ++; + push(@deleted,$user); + } else { + push(@undeleted,$user); + $num_fail ++; + } + } + } + } + if ($num_ok > 0) { + my $roster_result = + &Apache::lonnet::modify_coursegroup_membership($cdom,$cnum, + \%usersettings); + } + if ($num_fail > 0) { + $r->print('
    ' + .&mt('Group deletion failed because deletion of [_1] out of [_2] members failed.' + ,$num_fail,$num_users) + .'
    '); + } else { + my ($result,$message) = + &Apache::lonnet::toggle_coursegroup_status($cdom,$cnum, + $groupname,'delete'); + if ($result eq 'ok') { + my $outcome = &modify_folders($cdom,$cnum,$groupname,$crstype); + if ($outcome eq '') { + my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Group successfully deleted.')); + $message = &Apache::loncommon::confirmwrapper($message); + $r->print($message); + } else { + $r->print('
    '); + if ($crstype eq 'Community') { + $r->print(&mt("Although the group was deleted, an error occurred when removing the group's folder from the 'Community Groups' folder: [_1]",$outcome)); + } else { + $r->print(&mt("Although the group was deleted, an error occurred when removing the group's folder from the 'Course Groups' folder: [_1]",$outcome)); + } + $r->print('
    '); + } + } else { + my $msg = &Apache::lonhtmlcommon::confirm_success(&mt('Group deletion failed.'),1); + $msg = &Apache::loncommon::confirmwrapper($msg); + $r->print($msg); + } + } + return; +} + +sub reenable_folder { + my ($cdom,$cnum,$groupname,$description,$crstype) = @_; + my $outcome; + my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/'; + my $allgrpsmap = $crspath.'group_allfolders.sequence'; + my $foldertitle; + if ($crstype eq 'Community') { + $foldertitle = &mt("Community Folder -[_1]",$description); + } else { + $foldertitle = &mt("Course Folder -[_1]",$description); + } + my $mapurl = $crspath.'group_folder_'. + $groupname.'.sequence'; + my ($errtext,$fatal)=&LONCAPA::map::mapread($allgrpsmap); + if ($fatal) { + $outcome='
    ' + .&mt('An error occurred when reading contents of parent folder to group:') + ."
    ($allgrpsmap): $errtext" + .'
    '; + } else { + my $idx=&LONCAPA::map::getresidx($mapurl); + $LONCAPA::map::resources[$idx] = $foldertitle.':'.$mapurl. + ':false:normal:res'; + $LONCAPA::map::order[1+$#LONCAPA::map::order]=$idx; + my ($outtext,$errtext) = &LONCAPA::map::storemap($allgrpsmap,1,1); + if ($errtext) { + $outcome='
    ' + .&mt('An error occurred when saving updated parent folder to group:' + ,"
    $allgrpsmap - $errtext") + .'
    '; + } else { + my ($furl,$ferr) = + &Apache::lonuserstate::readmap($cdom.'/'.$cnum); + } + } + return $outcome; +} + +sub modify_folders { + my ($cdom,$cnum,$groupname,$crstype) = @_; + my ($outcome,$groupmap,$groupmapres,$map,$id,$src); + my $navmap = Apache::lonnavmaps::navmap->new(); + if (!defined($navmap)) { + $outcome = '
    '; + if ($crstype eq 'Community') { + $outcome .= &mt("Error reading community contents.").' '. + &mt("You need to re-initialize the community."); + } else { + $outcome .= &mt("Error reading course contents.").' '. + &mt("You need to re-initialize the course."); + } + $outcome .= '
    '; + return $outcome; + } + $groupmap = '/uploaded/'.$cdom.'/'.$cnum.'/'.'group_folder_'. + $groupname.'.sequence'; + $groupmapres = $navmap->getResourceByUrl($groupmap); + if ($groupmapres) { + ($map,$id,$src)=&Apache::lonnet::decode_symb($groupmapres->symb()); + } + undef($navmap); + if ($map) { + $map = '/'.$map; + my ($errtext,$fatal) = &LONCAPA::map::mapread($map); + if ($fatal) { + $outcome='
    ' + .&mt('An error occurred when reading contents of parent folder to group:') + ."
    ($map): $errtext" + .'
    '; + } else { + my $idx = 0; + my $grpidx; + foreach my $item (@LONCAPA::map::order) { + my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$item]); + $url=&LONCAPA::map::qtescape($url); + if ($url eq $groupmap) { + $grpidx = $idx; + last; + } else { + $idx++; + } + } + + if ($grpidx ne '') { + &LONCAPA::map::makezombie($LONCAPA::map::order[$grpidx]); + for (my $i=$grpidx;$i<$#LONCAPA::map::order;$i++) { + $LONCAPA::map::order[$i] = $LONCAPA::map::order[$i+1]; + } + $#LONCAPA::map::order--; + my ($outtext,$errtext) = &LONCAPA::map::storemap($map,1,1); + if ($errtext) { + $outcome='
    ' + .&mt('An error occurred when saving updated parent folder to group:') + ."
    $map - $errtext" + .'
    '; + } else { + my ($furl,$ferr) = + &Apache::lonuserstate::readmap($cdom.'/'.$cnum); + } + } + } + } + return $outcome; +} + +sub verify_reenable { + my ($r,$groupname,$formname,$action,$page,$states,$stored,$crstype) = @_; + $r->print(&Apache::lonhtmlcommon::echo_form_input([])); + $r->print(&mt('You have requested enabling the previously deleted group [_1].' + ,''.$stored->{'description'}.''). + '

    '.&mt('When a deleted group is re-enabled the following occurs:').'
      '. + '
    • '.&mt('Group settings and membership at the time the group was deleted are reinstated.').'
    • '); + if ($crstype eq 'Community') { + $r->print(&mt("A group folder is added to the 'Community Groups' folder which contains folders for all groups in the community.")); + } else { + $r->print(&mt("A group folder is added to the 'Course Groups' folder which contains folders for all groups in the course.")); + } + $r->print('
    '); + my $prevtext = &mt('Go back'); + my $nexttext = &mt('Reenable group'); + my $prev; + if ($env{'form.refpage'} eq 'cusr') { + $prev = 'view'; + } + &display_navbuttons($r,$formname,$prev,$prevtext, + $$states{$action}[$page+1],$nexttext); + return; +} + +sub reenable_group { + my ($r,$cdom,$cnum,$groupname,$crstype) = @_; + my %groups = + &Apache::longroup::coursegroups($cdom,$cnum,$groupname, + 'deleted_groups'); + if (keys(%groups) == 0) { + $r->print(&mt('The group [_1] was not re-enabled, because it is not a deleted group.[_2]Perhaps it has already been re-enabled?',''.$groupname.''),'
    '); + return; + } + my %groupinfo = + &Apache::longroup::get_group_settings($groups{$groupname}); + my $defstart = $groupinfo{'startdate'}; + my $defend = $groupinfo{'enddate'}; + my $showstart = &Apache::lonlocal::locallocaltime($defstart); + my $showend; + if ($defend == 0) { + $showend = &mt('No end date set'); + } else { + $showend = &Apache::lonlocal::locallocaltime($defend); + } + my $description = &unescape($groupinfo{'description'}); + my $num_users = 0; + my $num_ok = 0; + my $num_fail = 0; + my $context = 'reenablegroup'; + my (%usersettings,@enabled,@unenabled); + my ($result,$message) = + &Apache::lonnet::toggle_coursegroup_status($cdom,$cnum,$groupname, + 'reenable'); + if ($result eq 'ok') { + my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, + $groupname); + foreach my $key (sort(keys(%membership))) { + if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) { + my $user = $1; + my($end,$start,$userprivs) = split(/:/,$membership{$key},3); + if (($start == -1) && ($end == $groupinfo{'modified'})) { + $num_users ++; + $usersettings{$groupname.':'.$user} = $defend.':'. + $defstart.':'. + $userprivs; + if (&Apache::lonnet::modify_group_roles($cdom,$cnum, + $groupname,$user, + $defend,$defstart, + $userprivs,'', +$context) eq 'ok') { + $num_ok ++; + push(@enabled,$user); + } else { + push(@unenabled,$user); + $num_fail ++; + } + } + } + } + if ($num_users > 0) { + if ($num_ok > 0) { + my $roster_result = + &Apache::lonnet::modify_coursegroup_membership($cdom,$cnum, + \%usersettings); + if ($roster_result eq 'ok') { + $r->print('
    ' + .&mt('Membership reinstated for [quant,_1,user], each with start and end dates for group access set to defaults: [_2] and [_3]',$num_ok,$showstart,$showend) + .'
    '); + } + } else { + $r->print('
    ' + .&mt('A problem occurred when trying to reinstate [_1] of the [_2] members of the pre-existing group.',$num_fail,$num_users) + .'
    '); + } + } else { + $r->print('
    ' + .&mt('There were no group members to reinstate, as none were removed when the group was deleted.') + .'
    '); + } + my $outcome = &reenable_folder($cdom,$cnum,$groupname,$description,$crstype); + if ($outcome eq '') { + my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Group successfully re-enabled.')); + $message = &Apache::loncommon::confirmwrapper($message); + $r->print($message); + } else { + $r->print('
    '); + if ($crstype eq 'Community') { + $r->print(&mt("Although the group was re-enabled, an error occurred when adding the group's folder to the 'Community Groups' folder: [_1]",$outcome)); + } else { + $r->print(&mt("Although the group was re-enabled, an error occurred when adding the group's folder to the 'Course Groups' folder: [_1]",$outcome)); + } + $r->print('
    '); + } + } else { + my $message = &Apache::lonhtmlcommon::confirm_success(&mt('Re-enabling group failed.'),1); + $message = &Apache::loncommon::confirmwrapper($message); + $r->print($message); + } + return; +} + sub header { - my ($bodytitle,$title,$jscript,$action,$state,$function,$loaditems) = @_; - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag($bodytitle,$function,$loaditems); + my ($bodytitle,$jscript,$action,$state,$page,$loaditems) = @_; + my $start_page= + &Apache::loncommon::start_page($bodytitle, + '', + {'add_entries' => $loaditems,}); my $output = <<"END"; -$html - -$title - - -$bodytag -
    +$start_page + END if ($action eq 'create' || $action eq 'modify') { @@ -531,6 +1507,7 @@ END + END } return $output; @@ -538,23 +1515,30 @@ END sub onload_action { my ($action,$state) = @_; - my $loaditems; + my %loaditems; if ((defined($env{'form.origin'})) && ($action eq 'create') && ($state eq 'pick_name' || $state eq 'pick_members' || $state eq 'pick_privs')) { unless ($env{'form.origin'} eq '') { - $loaditems = - 'onload="javascript:setFormElements(document.'.$state.')"'; + $loaditems{'onload'} = + 'javascript:setFormElements(document.'.$state.')'; } } - return $loaditems; + if (($action eq 'modify') && + ($state eq 'change_settings' || $state eq 'change_members' || + $state eq 'change_privs' || $state eq 'add_members')) { + $loaditems{'onload'} = + 'javascript:setFormElements(document.'.$state.')'; + } + return \%loaditems; } sub footer { + my $end_page = &Apache::loncommon::end_page(); return(< - - +$end_page ENDFOOT } @@ -568,11 +1552,29 @@ sub build_members_list { $access{$type} = $type; } &Apache::loncommon::get_course_users($cdom,$cnum,\%access,$roles, - $sections,$users,$userdata); + $sections,$users,$userdata); return; } sub group_files { + my ($group,$portpath,$numfiles,$numdirs) = @_; + my $dirptr=16384; + my ($dirlistref,$listerror) = + &Apache::portfolio::get_dir_list($portpath,undef,$group); + if (ref($dirlistref) eq 'ARRAY') { + foreach my $line (@{$dirlistref}) { + my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); + if (($filename !~ /^\.\.?$/) && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/) && ($filename ne 'no_such_dir')) { + if ($dirptr&$testdir) { + $portpath .= '/'.$filename; + $$numdirs ++; + &group_files($group,$portpath,$numfiles,$numdirs) + } else { + $$numfiles ++; + } + } + } + } return; } @@ -580,478 +1582,601 @@ sub group_members { my ($cdom,$cnum,$group,$group_info) = @_; my %memberhash = &Apache::lonnet::get_group_membership($cdom,$cnum,$group); my $now = time; - my ($tmp)=keys(%memberhash); - if ($tmp=~/^error:/) { - $$group_info{'totalmembers'} = 'Unknown - an error occurred'; - return $tmp; - } - my $now = time; + my %lt = &Apache::lonlocal::texthash ( + active => 'active', + previous => 'previous', + future => 'future', + ); + my %membercounts = ( + active => 0, + previous => 0, + future => 0, + ); my $totalmembers = 0; - my $active = 0; - my $previous = 0; - my $future = 0; - foreach my $member (keys %memberhash) { + foreach my $member (keys(%memberhash)) { $totalmembers ++; my ($end,$start) = split(/:/,$memberhash{$member}); - if (($end!=0) && ($end<$now)) { - $previous ++; - } elsif (($start!=0) && ($start>$now)) { - $future ++; - } else { - $active ++; + unless ($start == -1) { + if (($end!=0) && ($end<$now)) { + $membercounts{previous} ++; + } elsif (($start!=0) && ($start>$now)) { + $membercounts{future} ++; + } else { + $membercounts{active} ++; + } } } if ($totalmembers == 0) { $$group_info{$group}{'totalmembers'} = 'None'; } else { - $$group_info{$group}{'totalmembers'} = $active.' - active
    '.$previous.' -previous
    '.$future.' -future'; + foreach my $type ('active','previous','future') { + $$group_info{$group}{'totalmembers'} .= + &open_list_window($group,$type,$membercounts{$type},$lt{$type}); + } } return 'ok'; } +sub open_list_window { + my ($group,$status,$count,$text) = @_; + my $entry; + if ($count > 0) { + $entry = ''.$text.' - '.$count. + '
    '; + } else { + $entry = ''.$text.' - '.$count.'
    '; + } + return $entry; +} -sub first_creation_form { - my ($r,$cdom,$cnum,$tabcol,$formname,$functions,$sectioncount) = @_; - my %lt = &Apache::lonlocal::texthash( - 'gmem' => 'Group membership options', - 'picr' => 'Pick the criteria to use to build a list of course users '. - 'from which you will select members of the new group', - 'gdat' => 'Group open and close dates', - 'sten' => 'Set a start date/time and end date/time for the group', - 'acty' => 'Access types', - 'coro' => 'Course roles', - 'cose' => 'Course sections', - 'gfun' => 'Group functionality', - ); - - my %status_types = ( - active => &mt('Currently has access'), - previous => &mt('Previously had access'), - future => &mt('Will have future access'), - ); - - my @roles = ('st','cc','in','ta','ep','cr'); - my $starttime = time; - my $endtime = time+(6*30*24*60*60); # 6 months from now, approx - my ($start_table,$end_table) = &date_setting_table - ($starttime,$endtime,$formname); +sub general_settings_form { + my ($r,$cdom,$cnum,$action,$formname,$page,$functions,$tools, + $toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons, + $gpterm,$ucgpterm,$crstype) = @_; + my ($nexttext,$prevtext); + &groupsettings_options($r,$functions,$action,$formname,$stored,1, + $gpterm,$ucgpterm,$crstype); + &access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm); + if ($action eq 'create') { + &membership_options($r,$cdom,$cnum,$action,$formname,$sectioncount,3, + $gpterm,$ucgpterm,$crstype); + $nexttext = $$navbuttons{'gtns'}; + } else { + my @available = (); + my @unavailable = (); + &check_tools($functions,$tools,\@available,\@unavailable); + @{$tools} = sort(keys(%{$functions})); + &privilege_specificity($r,$action,3,$tools,$stored,$toolprivs, + $fixedprivs,\@available,$formname, + $gpterm,$ucgpterm,$functions,$crstype); + &mapping_options($r,$action,$formname,$page,$sectioncount, + $states,$stored,$navbuttons,4,5, + $gpterm,$ucgpterm,$crstype,$cdom,$cnum); + $nexttext = $$navbuttons{'mose'}; + } + $prevtext = $$navbuttons{'gtpp'}; + &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext, + $$states{$action}[$page+1],$nexttext); + return; +} - my @sections = (); - my $section_sel = ''; - my $numvisible = 4; +sub groupsettings_options { + my ($r,$functions,$action,$formname,$stored,$image,$gpterm, + $ucgpterm,$crstype) = @_; + my %lt = &Apache::lonlocal::texthash( + 'gdat' => "Group access start and end dates", + 'gnde' => "Group name, title and available collaborative tools", + 'desc' => 'Group Title', + 'func' => 'Collaborative Tools', + 'gnam' => 'Group Name', + 'lett' => 'Letters, numbers and underscore only', + 'doyo' => 'Different subsets of the chosen collaborative tools '. + 'for different group members?', + 'gran' => 'Granularity', + 'dquo' => 'Disk quota', + ); + my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored); + $r->print(&Apache::lonhtmlcommon::topic_bar($image,$lt{'gnde'})); - @sections = sort {$a cmp $b} keys(%{$sectioncount}); - if (@sections > 0) { - unshift(@sections,'_all'); # Put 'all' at the front of the list - if (@sections < 4) { - $numvisible = @sections; - } - foreach (@sections) { - if ($_ eq '_all') { - $section_sel .= ' '."\n"; + } elsif ($sec eq 'none') { + $section_sel .= ' '."\n"; + } else { + $section_sel .= ' \n"; } } + my $output = ' + '; + return $output; +} + +sub access_date_settings { + my ($r,$action,$formname,$stored,$image,$gpterm,$ucgpterm) = @_; + my $sten = &mt("Default start and end dates for $gpterm access"); + my $starttime = time; + my $endtime = time+(6*30*24*60*60); # 6 months from now, approx + if ($action eq 'modify') { + $starttime = $$stored{'startdate'}; + unless ($$stored{'enddate'} == 0) { + $endtime = $$stored{'enddate'}; + } + } + my ($table) = &date_setting_table($starttime,$endtime,$formname); + $r->print(&Apache::lonhtmlcommon::topic_bar($image,$sten).' + '.$table.' + '); + return; +} + +sub choose_members_form { + my ($r,$cdom,$cnum,$action,$formname,$page,$groupname,$description, + $granularity,$quota,$startdate,$enddate,$tools,$fixedprivs,$toolprivs, + $functions,$users,$userdata,$idx,$stored,$states,$navbuttons, + $gpterm,$ucgpterm,$crstype) = @_; + my @regexps = ('user_','userpriv_','sec_'); + my %origmembers; + $r->print(&Apache::lonhtmlcommon::echo_form_input( + ['origin','action','state','page','member','specificity','branch', + 'defpriv','autorole','autoadd','autodrop','sortby','togglefunc'], + \@regexps)); + my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm, + $ucgpterm,$crstype); if ($earlyout) { - $r->print(' - - - - - - - - - - - -
     '.$earlyout.'
     
      - -
    - '); + $r->print($earlyout); + &display_navbuttons($r,$formname,$$states{$action}[$page-1], + $$navbuttons{'gtps'}); return; - } - my $rowColor1 = "#dddddd"; - my $rowColor2 = "#eeeeee"; - my $showstart = &Apache::lonlocal::locallocaltime($startdate); - my $showend = &Apache::lonlocal::locallocaltime($enddate); - $r->print(' - - - - -
    New group selections -
    When you create the new group, the following settings will apply: -
    '); - $r->print(&Apache::lonhtmlcommon::start_pick_box()); - $r->print(' - - - - - - - - - - - - + + - -
    Group NameDescriptionGroup FunctionalityDefault access dates
    '.$groupname.''.$description.' -'); + } + my ($specimg,$memimg); my @available = (); my @unavailable = (); + &check_tools($functions,$tools,\@available,\@unavailable); + if ($action eq 'create') { + &print_current_settings($r,$action,$functions,$startdate,$enddate, + $groupname,$description,$granularity,$quota, + \@available,\@unavailable,$gpterm,$ucgpterm); + $specimg = 4; + $memimg = 5; + } else { + $specimg = 2; + $memimg = 3; + my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, + $groupname); + foreach my $key (sort(keys(%membership))) { + if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) { + my ($end,$start,@userprivs) = split(/:/,$membership{$key}); + unless ($start == -1) { + my $uname = $1; + my $udom = $2; + my $user = $uname.':'.$udom; + $origmembers{$user} = 1; + } + } + } + } + &privilege_specificity($r,$action,$specimg,$tools,$stored,$toolprivs, + $fixedprivs,\@available,$formname,$gpterm,$ucgpterm, + $functions,$crstype); + my $newusers = &pick_new_members($r,$action,$formname,\@available,$idx, + $stored,$memimg,$users,$userdata, + $granularity,\%origmembers,$gpterm, + $ucgpterm); + if ($newusers || $action eq 'create') { + &display_navbuttons($r,$formname,$$states{$action}[$page-1], + $$navbuttons{'gtps'},$$states{$action}[$page+1], + $$navbuttons{'gtns'}); + } else { + &display_navbuttons($r,$formname,$$states{$action}[$page-1], + $$navbuttons{'gtps'}); + } + return; +} + +sub display_navbuttons { + my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_; + $r->print('
    '); + if ($prev) { + $r->print(' + +    '); + } elsif ($prevtext) { + $r->print(' + +    '); + } + if ($next) { + $r->print(' + '); + } + $r->print('
    '); +} + +sub check_tools { + my ($functions,$tools,$available,$unavailable) = @_; foreach my $item (sort(keys(%{$functions}))) { if (grep/^$item$/,@{$tools}) { - push(@available,$item); + push(@{$available},$item); } else { - push(@unavailable,$item); + push(@{$unavailable},$item); } } - if (@available > 0) { - $r->print('Available: - '); - my $rowcell = int(@available/2) + @available%2; - for (my $i=0; $i<@available; $i++) { - if (@available > 3) { - if ($i==$rowcell) { - $r->print(''); - } - } - $r->print(''); - } - if ((@available > 3) && (@available%2)) { - $r->print(''); - } - $r->print('
    '.$$functions{$available[$i]}. - '   

    '); + return; +} + +sub print_current_settings { + my ($r,$action,$functions,$startdate,$enddate,$groupname,$description, + $granularity,$quota,$available,$unavailable,$gpterm,$ucgpterm) = @_; + + my %lt = &Apache::lonlocal::texthash( + grna => 'Group Name', + desc => 'Group Title', + grfn => "Collaborative Tools", + gran => 'Granularity', + quot => 'File quota', + dfac => 'Default access dates', + ygrs => "Your group selections - ", + tfwa => "The following settings will apply to the group:", + stda => 'Start date:', + enda => 'End date:', + ); + $lt{'difn'} = &mt('Different collaborative tools[_1]for different members:','
    '); + my $showstart = &Apache::lonlocal::locallocaltime($startdate); + my $showend; + if ($enddate == 0) { + $showend = &mt('No end date set'); + } else { + $showend = &Apache::lonlocal::locallocaltime($enddate); } - if (@unavailable > 0) { - $r->print('Unavailable: - '); - my $rowcell = int(@unavailable/2) + @unavailable%2; - for (my $j=0; $j<@unavailable; $j++) { - if (@unavailable > 3) { - if ($j==$rowcell) { - $r->print(''); - } - } - $r->print(''); + if ($action eq 'create') { + $r->print(' +
    '.$lt{'ygrs'}.' +
    '.$lt{'tfwa'}.' +
    '); + } + $r->print(&Apache::loncommon::start_data_table('LC_course_group_status'). + &Apache::loncommon::start_data_table_header_row()); + $r->print(' + + + + + + +'); + $r->print(&Apache::loncommon::end_data_table_header_row(). + &Apache::loncommon::start_data_table_row('LC_data_table_dense')); + $r->print(' + + + '); + $r->print(''); + } + + if (@{$unavailable} > 0) { + $r->print(''.&mt('Unavailable for assignment:').''); + $r->print('
      '); + for (my $i=0; $i<@{$unavailable}; $i++) { + $r->print('
    • '.&mt($$functions{$$unavailable[$i]}).'
      • '); } - $r->print('
    '.$$functions{$unavailable[$j]}. - ' '.$lt{'grna'}.''.$lt{'desc'}.''.$lt{'grfn'}.''.$lt{'gran'}.''.$lt{'quot'}.''.$lt{'dfac'}.''.$groupname.''.$description.' +'); + + if (@{$available} > 0) { + $r->print(''.&mt('Available for assignment to members:').''); + $r->print('
      '); + for (my $i=0; $i<@{$available}; $i++) { + $r->print('
    • '.&mt($$functions{$$available[$i]}).'
      • '); } - if ((@unavailable > 3) && (@unavailable%2)) { - $r->print('
    		  
    '); + $r->print(''); } + + my $quota_text=&mt('[_1] MB',$quota); + my $granu_text=&mt($granularity); $r->print(<<"END");     		Start date: $showstart
    - End date: $showend     +     		$lt{'difn'} $granu_text$quota_text$lt{'stda'} $showstart
    + $lt{'enda'} $showend
    END - $r->print(&Apache::lonhtmlcommon::end_pick_box()); - my %members = (); + $r->print(&Apache::loncommon::end_data_table_row(). + &Apache::loncommon::end_data_table()); + return; +} + +sub pick_new_members { + my ($r,$action,$formname,$available,$idx,$stored,$img,$users,$userdata, + $granularity,$origmembers,$gpterm,$ucgpterm) = @_; + my %lt = &Apache::lonlocal::texthash( + 'gpme' => "Group membership", + 'addm' => 'Add members', + 'setf' => 'Assign collaborative tools', + 'func' => 'Tools', + 'nome' => 'No members to add at this time, as there are no users '. + 'matching the specified type(s), role(s) and section(s).', + 'nnew' => "There are no users to add as new members, as all users". + " matching the specified type(s), role(s), and ". + "section(s) are already affiliated with this group.", + 'yoma' => "You may need to use the 'modify existing, past or ". + "future members' page if you need to re-enable ". + "or activate access for previous or future members.", + ); + my %members; + my $totalusers = 0; + my $newusers = 0; foreach my $role (keys(%{$users})) { foreach my $user (keys(%{$$users{$role}})) { + $totalusers ++; + if (ref($origmembers) eq 'HASH') { + if (exists($$origmembers{$user})) { + next; + } + } unless (defined($members{$user})) { @{$members{$user}} = @{$$userdata{$user}}; + $newusers ++; } } } - $r->print('

    '); if (keys(%members) > 0) { - if ($env{'form.granularity'} eq 'Yes') { - $r->print(' - - '); - } - $r->print(<<"END"); - - - - - - - - - - - - - - - - - - - - - - -
      -   - - - - Select group members - -  
     
      + if (@{$available} > 0 && $granularity eq 'Yes') { + $r->print(&check_uncheck_tools($r,$available)); + } + } + $r->print(&Apache::lonhtmlcommon::topic_bar($img,$lt{'gpme'})); + if (keys(%members) > 0) { + $r->print(' - - -END - if (@available > 0 && $env{'form.granularity'} eq 'Yes') { - $r->print(''); + + '); } $r->print('
    - -
    Add members - -    - -
    - Set functionality - -    - '); + &check_uncheck_buttons($r,$formname,'member',$lt{'addm'}); + if (@{$available} > 0 && $granularity eq 'Yes') { + $r->print('
    		 +
    '.$lt{'setf'}.' + + +    + -
    -     		 
     
      '); - $r->print(&Apache::lonhtmlcommon::start_pick_box()); - $r->print(<<"END"); - - - - - - - -END - if (@available > 0) { - $r->print(''); + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row()); + $r->print(' + '); + } + $r->print(&Apache::loncommon::end_data_table_header_row()); + if (@{$available} > 0) { + if ($granularity eq 'Yes') { + $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense LC_data_table_highlight').' + + '); + } } - $r->print(''); my %Sortby = (); foreach my $user (sort(keys(%members))) { if ($env{'form.sortby'} eq 'fullname') { @@ -1062,31 +2187,31 @@ END 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); } } - my $rowNum = 0; - my $rowColor; foreach my $key (sort(keys(%Sortby))) { foreach my $user (@{$Sortby{$key}}) { - if ($rowNum %2 == 1) { - $rowColor = $rowColor1; - } else { - $rowColor = $rowColor2; - } my $id = $members{$user}[$$idx{id}]; my $fullname = $members{$user}[$$idx{fullname}]; my $udom = $members{$user}[$$idx{udom}]; my $uname = $members{$user}[$$idx{uname}]; - $r->print(''); - if (@available > 0) { - $r->print(''. + ''. + ''. + ''. + ''. + ''); + if (@{$available} > 0) { + $r->print(''); + $r->print(''); } - $r->print(''."\n"); - $rowNum ++; + $r->print(&Apache::loncommon::end_data_table_row()."\n"); } } - $r->print(&Apache::lonhtmlcommon::end_pick_box()); - $r->print(' - - - - - '); - if (@available > 0) { + $r->print(&Apache::loncommon::end_data_table()); + } else { + if ($totalusers > 0) { + $r->print($lt{'nnew'}.'

    '.$lt{'yoma'}); + } else { + $r->print($lt{'nome'}); + } + } + return $newusers; +} + +sub privilege_specificity { + my ($r,$action,$img,$tools,$stored,$toolprivs,$fixedprivs,$available, + $formname,$gpterm,$ucgpterm,$functions,$crstype) = @_; + my %lt = &Apache::lonlocal::texthash ( + 'uprv' => 'User privileges for collaborative tools', + 'frty' => 'For each collaborative tool you have chosen to include, '. + 'there is a set of core privileges which all group members '. + 'assigned use of the tool will receive.', + 'thar' => 'For some tools there are also additional optional '. + 'privileges which can be set.', + 'plch' => 'Choose one of the following:', + 'fort' => 'For the collaborative tools you have chosen to include '. + 'only core privileges are available, '. + 'so there are no optional privileges to assign.', + 'eaty' => 'Each collaborative tool includes core '. + 'privileges assigned to all members with access to the '. + 'tool. Some tools may also feature additional privileges '. + 'which can be set for specific members.', + 'cutg' => 'Currently the group is configured ', + 'sdif' => 'so different members can receive different optional privileges for a particular tool.', + 'sall' => 'so all members will receive the same optional privileges for a particular tool.', + 'algm' => 'All group members will receive the same privileges for any tool assigned to them, including the default set of optional privileges.', + 'smgp' => 'Different group members may receive different privileges from '. + 'others for the tools they have been assigned.', + 'thwi' => 'These will be the privileges all group members receive for a particular assigned tool, '. + 'if you selected the first option above.', + 'thes' => "These will be the privileges given to members assigned ". + "in the future via automatic group assignment ". + "for users who receive specific sections/roles in the course ", + 'asyo' => "As you have chosen not to include any collaborative tools ". + "in the group, no default optional privileges need to be set.", + 'will receive by default for a specific tool.', + 'oppr' => 'Optional privileges', + 'defp' => 'The default privileges new members will receive are:', + ); + $lt{'plin'} = &mt('Indicate which [_1]optional[_2] privileges members '. + 'will receive by default for a specific tool.','',''); + if ($crstype eq 'Community') { + $lt{'thes'} = &mt('These will be the privileges given to members assigned in the future via automatic group assignment for users who receive specific sections/roles in the community '); + } + my $totaloptionalprivs = 0; + foreach my $tool (@{$tools}) { + foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { + if (!exists($$fixedprivs{$tool}{$priv})) { + $totaloptionalprivs ++; + } + } + } + $r->print(&Apache::lonhtmlcommon::topic_bar($img,$lt{'uprv'})); + if ((($action eq 'create') && (@{$available} > 0)) || + (($action eq 'modify') && ($formname eq 'change_settings'))) { + my %specific = ( + 'No' => 'checked="checked"', + 'Yes' => '', + ); + if ($action eq 'create') { + $r->print($lt{'frty'}.'
    '); + if ($totaloptionalprivs) { + $r->print($lt{'thar'}.'

    '.$lt{'plch'}); + } else { + $r->print($lt{'fort'}); + } + } else { + $r->print($lt{'eaty'}.' '.$lt{cutg}); + if ($$stored{'specificity'} eq 'Yes') { + $r->print($lt{'sdif'}); + $specific{'Yes'} = $specific{'No'}; + $specific{'No'} = ''; + } else { + $r->print($lt{'sall'}); + } + } + if ($totaloptionalprivs) { $r->print(' - - - - - - - - - - - - - '); + } else { + $r->print($lt{'algm'}.'

    '); } - $r->print(' - - - - - '); + &default_privileges($r,$action,$tools,$toolprivs,$fixedprivs, + $available,$functions); } else { - $r->print('No members to add'); + if ($action eq 'create') { + $r->print($lt{'asyo'}); + $r->print(''); + } elsif ($action eq 'modify' && $formname eq 'pick_members') { + my @defprivs; + if (ref($$stored{'defpriv'}) eq 'ARRAY') { + @defprivs = @{$$stored{'defpriv'}}; + } + $r->print($lt{'eaty'}.' '.$lt{cutg}); + if ($$stored{'specificity'} eq 'Yes') { + $r->print($lt{'sdif'}); + } else { + $r->print($lt{'sall'}); + } + $r->print(' '.$lt{'defp'}.'

    '); + &display_defprivs($r,$tools,$toolprivs,\@defprivs); + } } - $r->print(' -
    Add?NameUsername - DomainIDFunctionality'.&mt('Add?').' + '.&mt('Name').' + '.&mt('Username').' + '.&mt('Domain').' + '.&mt('ID').' + '.&mt('Section').' +'); + if (@{$available} > 0) { + $r->print(''.$lt{'func'}.' '.&mt('All:').' '); + foreach my $tool (@{$available}) { + $r->print('   '); + } + $r->print('
    - '. - $fullname.''.$uname.''. - $udom.''.$id.''); - foreach my $tool (@available) { - if ($env{'form.granularity'} eq 'Yes') { + my $section = $members{$user}[$$idx{section}]; + $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense'). + ''.$fullname.''.$uname.''.$udom.''.$id.''.$section.''. + '       '); + foreach my $tool (@{$available}) { + if ($granularity eq 'Yes') { $r->print(''.$tool.'   '); } else { @@ -1094,268 +2219,1207 @@ END $tool.'" value="'.$user.'" />'.$tool.'   '); } } - $r->print('
     
      -   - - - User privileges - -  
      +
    +
    +

    '); + } else { + $r->print(''); + } + if ($totaloptionalprivs) { + $r->print($lt{'plin'}); + if ($action eq 'create') { + $r->print('
    '.$lt{'thwi'}); + } + $r->print('
    '.$lt{'thes'}); + if ($action eq 'create') { + $r->print('('.&mt('if enabled on the next page').').'); + } else { + $r->print('('.&mt('if enabled below').').'); + } + $r->print('

    + '); + &check_uncheck_buttons($r,$formname,'defpriv',$lt{'oppr'}); + $r->print(' + +

    - For each type of functionality you have chosen to include, there is a -set of standard privileges which apply to all of those for whom the functionality is enabled.
    There are also additional privileges which can be set for some, or all, members. Please choose one of the following:
    -
     All group members will receive the same privileges.
     Some group members will receive different privileges from others. -
     
      - -     - -
    -
    '); return; } -sub third_creation_form { - my ($r,$cdom,$cnum,$tabcol,$formname,$startdate,$enddate,$tools,$functions, - $toolprivs,$fixedprivs,$userdata,$members,$usertools,$idx) = @_; - my @regexps = ('userpriv_','allpriv_'); - $r->print(&Apache::lonhtmlcommon::echo_form_input( - ['origin','action','state'],\@regexps)); - my %possibles = (); - my %showboxes = (); - my $totalboxes = 0; +sub default_privileges { + my ($r,$action,$tools,$toolprivs,$fixedprivs,$available,$functions) = @_; + my %lt = &Apache::lonlocal::texthash( + 'addp' => 'Additional privileges', + 'fixp' => 'Fixed privileges', + 'oppr' => 'Optional privileges', + 'func' => 'Collaborative Tool', + ); + $r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box'). + &Apache::lonhtmlcommon::row_title($lt{'func'},undef, + 'LC_groups_functionality')); + my @tableHeader; + if ((ref($functions) eq 'HASH') && (ref($tools) eq 'ARRAY')) { + @tableHeader = map { $functions->{$_}; } @{$tools}; + } + $r->print(join('', @tableHeader)); + $r->print(&Apache::lonhtmlcommon::row_closure(1)); + my $fixed = ''; + my $dynamic = ''; + foreach my $tool (@{$tools}) { + my $privcount = 0; + if ($dynamic ne '') { + $dynamic .= ''; + } + $dynamic .= ''; + foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { + if (exists($$fixedprivs{$tool}{$priv})) { + if ($fixed ne '') { + $fixed .= ' + '."\n"; + } + $dynamic .= ''."\n"; + } + } + if ($privcount == 0) { + $dynamic .= ''."\n"; + } + if ($privcount < 3) { + $dynamic .= ''."\n"; + } elsif ($privcount%2) { + $dynamic = ''."\n"; + } + $dynamic .= '
    '; + } + $fixed .= '' + .''.&mt($$toolprivs{$tool}{$priv}).' '; + if ($action eq 'modify') { + if (grep(/^$tool$/,@{$available})) { + $fixed .= ''.&mt('(on)').' '; + } else { + $fixed .= ''.&mt('(off)').' '; + } + } + $fixed .= ''; + } else { + $privcount++; + if ($privcount == 3) { + $dynamic .= '
    '.&mt('None').'  
    '; + } + $r->print(&Apache::lonhtmlcommon::row_title($lt{'fixp'},undef, + 'LC_groups_fixed'). + $fixed. + &Apache::lonhtmlcommon::row_closure(1)); + $r->print(&Apache::lonhtmlcommon::row_title($lt{'oppr'},undef, + 'LC_groups_optional'). + $dynamic. + &Apache::lonhtmlcommon::end_pick_box()); + $r->print('
    '); + return; + +} + +sub display_defprivs { + my ($r,$tools,$toolprivs,$defprivs) = @_; + my $function = &Apache::loncommon::get_users_function(); + my $tabcol = &Apache::loncommon::designparm($function.'.tabbg'); my $rowColor1 = "#dddddd"; my $rowColor2 = "#eeeeee"; - my $numtools = 1 + @{$tools}; + my %lt = &Apache::lonlocal::texthash( + 'priv' => 'Privileges', + 'func' => 'Collaborative Tool', + ); + $r->print(&Apache::lonhtmlcommon::start_pick_box()); + $r->print(''); + my $numrows = 0; + my %currprivs; foreach my $tool (@{$tools}) { - @{$showboxes{$tool}} = (); - foreach my $user (@{$members}) { - if (exists($$usertools{$user}{$tool})) { - foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { - unless (exists($$fixedprivs{$tool}{$priv})) { - push(@{$possibles{$user}},$priv); - unless(grep(/^$priv$/,@{$showboxes{$tool}})) { - push(@{$showboxes{$tool}},$priv); - $totalboxes ++; + @{$currprivs{$tool}} = (); + foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { + if (ref($defprivs) eq 'ARRAY') { + if (grep(/^\Q$priv\E$/,@{$defprivs})) { + push(@{$currprivs{$tool}},$priv); + } + } + } + my $rowcount = int(@{$currprivs{$tool}}/3); + if (@{$currprivs{$tool}}%3 > 0) { + $rowcount ++; + } + if ($rowcount > $numrows) { + $numrows = $rowcount; + } + } + my @rowCols = ($rowColor1,$rowColor2); + foreach my $tool (@{$tools}) { + $r->print(' + + + + + '); + my $rownum = 1; + my $privcount = 0; + $r->print(''); + foreach my $priv (@{$currprivs{$tool}}) { + $privcount ++; + if ($privcount%4 == 0) { + $rownum ++; + my $bgcol = $rownum%2; + $r->print(' + '."\n"); + } + $r->print(''."\n"); + } + if ($privcount%3 > 0) { + my $emptycells = 3-($privcount%3); + while($emptycells > 0) { + $r->print(''."\n"); + $emptycells --; + } + } + while ($rownum < $numrows) { + $rownum ++; + my $bgcol = $rownum%2; + $r->print(''); + } + $r->print('
    '.$tool.'
    '.$$toolprivs{$tool}{$priv}.' 
     
    '."\n".''); + } + $r->print(''."\n"); + $r->print(&Apache::lonhtmlcommon::end_pick_box()); + $r->print('
    '); + return; +} + + +sub change_members_form { + my ($r,$cdom,$cnum,$action,$formname,$page,$groupname,$description, + $startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata, + $granularity,$quota,$specificity,$idx,$states,$navbuttons,$gpterm, + $ucgpterm) = @_; + my %lt = &Apache::lonlocal::texthash( + grse => "$ucgpterm settings", + mogm => "Modify $gpterm membership", + ); + my @regexps = ('user_','userpriv_'); + $r->print(&Apache::lonhtmlcommon::echo_form_input( + ['origin','action','state','page','expire','deletion', + 'reenable','activate','changepriv','sortby', + 'togglefunc'],\@regexps)); + my $rowimg = 1; + my @available = (); + my @unavailable = (); + &check_tools($functions,$tools,\@available,\@unavailable); + my $nexttext = $$navbuttons{'gtns'}; + my $prevtext = $$navbuttons{'gtpp'}; + $r->print(' +
    +'); + $r->print(&Apache::lonhtmlcommon::topic_bar(1,$lt{'grse'})); + &print_current_settings($r,$action,$functions,$startdate,$enddate, + $groupname,$description,$granularity,$quota, + \@available,\@unavailable,$gpterm,$ucgpterm); + $r->print(&Apache::lonhtmlcommon::topic_bar(2,$lt{'mogm'})); + my $numcurrent = ¤t_membership($r,$cdom,$cnum,$formname,$groupname, + \@available,\@unavailable,$fixedprivs, + $granularity,$specificity); + if ($numcurrent > 0) { + &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext, + $$states{$action}[$page+1],$nexttext); + } else { + &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext); + } + return; +} + +sub current_membership { + my ($r,$cdom,$cnum,$formname,$groupname,$available,$unavailable, + $fixedprivs,$granularity,$specificity) = @_; + my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, + $groupname); + my %lt = &Apache::lonlocal::texthash( + 'actn' => 'Action?', + 'name' => 'Name', + 'usnm' => 'Username', + 'stid' => 'ID', + 'doma' => 'Domain', + 'stda' => 'Start Date', + 'enda' => 'End Date', + 'expi' => 'Expire', + 'reen' => 'Re-enable', + 'acti' => 'Activate', + 'dele' => 'Delete', + 'curf' => 'Current Tool Set', + 'chpr' => 'Change Privileges' + ); + my ($current,$num_items,$hastools,$addtools) = + &Apache::longroup::group_memberlist($cdom,$cnum,$groupname,$fixedprivs, + $available); + my $numcurrent = scalar(keys(%{$current})); + if ($numcurrent > 0) { + $r->print(' + + '); + if ($num_items->{'active'}) { + &check_uncheck_buttons($r,$formname,'expire',$lt{'expi'}); + } + if ($num_items->{'previous'}) { + &check_uncheck_buttons($r,$formname,'reenable',$lt{'reen'}); + } + if ($num_items->{'future'}) { + &check_uncheck_buttons($r,$formname,'activate',$lt{'acti'}); + } + &check_uncheck_buttons($r,$formname,'deletion',$lt{'dele'}); + if (@{$available} > 0) { + if ($specificity eq 'Yes') { + &check_uncheck_buttons($r,$formname,'changepriv',$lt{'chpr'}); + } + if ($granularity eq 'Yes') { + $r->print(&check_uncheck_tools($r,$available)); + $r->print(' + +'); + } + } + $r->print(<<"END"); + +
    + +
    '.$lt{'curf'}.' + +    + +
    +     +
    +
    +END + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row()); + $r->print(<<"END"); + $lt{'actn'} + $lt{'name'} + $lt{'usnm'} + $lt{'doma'} + $lt{'ID'} + $lt{'stda'} + $lt{'enda'} +END + my $colspan = 0; + if ($hastools) { + $r->print(''.$lt{'curf'}.''); + $colspan++; + } + if ($addtools) { + $r->print(''.&mt('Additional Tools').''); + $colspan++; + } + $r->print(&Apache::loncommon::end_data_table_header_row()); + if ($colspan) { + if ($granularity eq 'Yes') { + $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense LC_data_table_highlight').' +   + '.&mt('All:'). + ' '); + foreach my $tool (@{$available}) { + $r->print('   '); + } + $r->print(''); + } + } + my %Sortby = (); + foreach my $user (sort(keys(%{$current}))) { + if ($env{'form.sortby'} eq 'fullname') { + push(@{$Sortby{$$current{$user}{fullname}}},$user); + } elsif ($env{'form.sortby'} eq 'username') { + push(@{$Sortby{$$current{$user}{uname}}},$user); + } elsif ($env{'form.sortby'} eq 'domain') { + push(@{$Sortby{$$current{$user}{udom}}},$user); + } elsif ($env{'form.sortby'} eq 'id') { + push(@{$Sortby{$$current{$user}{id}}},$user); + } else { + push(@{$Sortby{$$current{$user}{fullname}}},$user); + } + } + foreach my $key (sort(keys(%Sortby))) { + foreach my $user (@{$Sortby{$key}}) { + my $id = $$current{$user}{id}; + my $fullname = $$current{$user}{fullname}; + my $udom = $$current{$user}{udom}; + my $uname = $$current{$user}{uname}; + my $start = $$current{$user}{start}; + my $end = $$current{$user}{end}; + $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense').' + '); + if ($$current{$user}{changestate} eq 'reenable') { + $r->print('
    '); + } elsif ($$current{$user}{changestate} eq 'expire') { + $r->print('
    '); + } elsif ($$current{$user}{changestate} eq 'activate') { + $r->print('
    '); + } + $r->print(''); + if ($specificity eq 'Yes') { + $r->print('
    '); + } + $r->print(' + '. + ''.$fullname.''. + ''.$uname.''. + ''. $udom.''. + ''.$id.''. + ''.$start.''. + ''.$end.''); + if ($hastools) { + $r->print(''. + '      '); + foreach my $tool (@{$$current{$user}{currtools}}) { + if ($granularity eq 'Yes') { + $r->print(''); + } else { + $r->print(''.$tool); + } + $r->print('   '); + } + $r->print(''); + } + if ($addtools) { + $r->print(''); + if ($granularity eq 'Yes') { + foreach my $tool (@{$$current{$user}{newtools}}) { + $r->print('   '); + } + } else { + foreach my $tool (@{$$current{$user}{newtools}}) { + $r->print(''.$tool. + '   '); } } + $r->print(''); } + $r->print(&Apache::loncommon::end_data_table_row()."\n"); } } + $r->print(&Apache::loncommon::end_data_table()); + } else { + $r->print( + '

    ' + .&mt('There are no active, future or previous group members to modify.') + .'

    '); } - if ($totalboxes > 0) { - $r->print(' - + '); } } - $r->print(' + } + return $totalboxes; } - - '); - } - $r->print(<<"END"); -
    - - - - - - - - - - - - - '); - foreach my $tool (@{$tools}) { - $r->print(' + + + +END + $r->print(&Apache::loncommon::end_data_table_header_row()); + &member_privs_entries($r,$usertools,$toolprivs,$fixedprivs, + $userdata,$idx,\@showtools,\@defprivs, + \@excluded); + $r->print(&Apache::loncommon::end_data_table()); + } else { + $r->print($lt{'forf'}.'
    '); + &display_defprivs($r,$tools,$toolprivs,\@defprivs); } - if ($dynamic eq '') { - $dynamic = ''; - } - if ($privcount < 3) { - $dynamic .= ''; - } elsif ($privcount%2) { - $dynamic = ''; + } else { + if (keys(%{$usertools}) > 0) { + $r->print($lt{'algr'}.'
    '.$lt{'ifex'}.'

    '); + &display_defprivs($r,$tools,$toolprivs,\@defprivs); + } else { + $r->print($lt{'asno'}.'
    '); } - $r->print(''.$dynamic.'
      -   - - Group member privileges - -  
     
      -END - if ($env{'form.specificity'} eq 'Yes') { - $r->print(' - + +sub member_privileges_form { + my ($r,$action,$formname,$tools,$toolprivs,$fixedprivs,$userdata, + $usertools,$idx,$memchg,$states,$stored,$gpterm) = @_; + my %lt = &Apache::lonlocal::texthash( + 'addp' => 'Additional privileges', + 'fixp' => 'Core privileges', + 'oppr' => 'Optional privileges', + 'func' => 'Tool', + 'forf' => 'For the collaborative tools included for group '. + 'members being added or modified, '. + 'there are no optional privileges to set '. + 'for specific members.', + 'algr' => 'All new group members will receive the same privileges.', + 'ifex' => 'If previously expired members are being re-enabled, or '. + 'if access for future members is being activated now, '. + 'previously set privileges will be preserved.', + 'asno' => 'As no group members are being added, '. + 'there are no specific user privileges to set.', + 'asng' => 'As no group tools will be made available to users, '. + 'there are no specific user privileges to set.', + 'nogm' => 'No group member privileges to display or set, '. + 'as you have not indicated that you will be activating,'. + ' re-enabling, changing privileges, or adding/removing '. + 'tools for any current members.', + 'full' => 'Fullname', + 'user' => 'Username', + 'doma' => 'Domain', + ); + my @defprivs; + my $specificity; + if ($action eq 'create') { + if (defined($env{'form.defpriv'})) { + @defprivs = &Apache::loncommon::get_env_multiple('form.defpriv'); + } + $specificity = $env{'form.specificity'}; + } else { + if (defined($$stored{'defpriv'})) { + @defprivs = @{$$stored{'defpriv'}}; + } + $specificity = $$stored{'specificity'}; + } + my @showtools; + my %showboxes = (); + my $numtools = 1 + @{$tools}; + + my @excluded = (); + my $numchgs = 0; + if ($formname eq 'change_privs') { + my @currmembers = (); + if (ref($$memchg{'deletion'}) eq 'ARRAY') { + push(@excluded,@{$$memchg{'deletion'}}); + } + if (ref($$memchg{'expire'}) eq 'ARRAY') { + push(@excluded,@{$$memchg{'expire'}}); + } + if (@excluded > 0) { + foreach my $user (sort(keys(%{$usertools}))) { + if (grep/^$user$/,@excluded) { + next; + } + push(@currmembers,$user); + } + } else { + @currmembers = sort(keys(%{$usertools})); + } + $numchgs = @currmembers; + if (!$numchgs) { + $r->print($lt{'nogm'}); + return $numchgs; + } + } + + my $totalboxes = &build_boxes($r,$tools,$usertools,$fixedprivs, + $toolprivs,\@showtools,\%showboxes, + 'userpriv_',$specificity,\@excluded); + if (@{$tools} > 0) { + if ($specificity eq 'Yes') { + if ($totalboxes > 0) { + my $numcells = 2; + my $colspan = $numcells + 1; + my %total; + if (keys(%{$usertools}) > 1) { + $r->print(' +
    - - - - - - -END - } - if ($env{'form.specificity'} eq 'Yes') { - &member_privs_entries($r,$tabcol,$rowColor1,$rowColor2,$members,$tools, - $usertools,$toolprivs,$fixedprivs,$userdata,$idx); - } - if ($env{'form.specificity'} eq 'Yes') { - $r->print(''); - $r->print(&Apache::lonhtmlcommon::end_pick_box()); - $r->print(' -
    '); - $r->print(&Apache::lonhtmlcommon::start_pick_box()); - $r->print(<<"END"); -
    FullnameUsernameDomainAdditional Privileges
      '); - my @toolboxes = sort(keys(%showboxes)); - foreach my $tool (@{$tools}) { - if (@{$showboxes{$tool}} > 0) { - $r->print(''); - foreach my $priv (@{$showboxes{$tool}}) { - $r->print(qq| - |); - } - $r->print('
    '.$tool.'
    -
    $$toolprivs{$tool}{$priv} - -   - -


    '); - } - } - $r->print('
    '); - } else { - $r->print(&Apache::lonhtmlcommon::start_pick_box()); - $r->print('
    Function
    Fixed privileges'. - '
    Optional privileges
    		'. - ''); - my $privcount = 0; - my $fixed = ''; - my $dynamic = ''; - foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { - if (exists($$fixedprivs{$tool}{$priv})) { - $fixed .= ''.$$toolprivs{$tool}{$priv}.' '; - } else { - $privcount ++; - if ($privcount == 3) { - $dynamic .= ''; + foreach my $tool (@{$tools}) { + if (@{$showboxes{$tool}} > 0) { + $r->print(''); + } } - $dynamic .= ''; + $r->print('
    '.$tool.'
    '); + $r->print('
    '.&mt($tool).''); + $r->print(''); + my $privcount = 0; + foreach my $priv (@{$showboxes{$tool}}) { + $privcount ++; + if (($privcount == @{$showboxes{$tool}}) && + ($privcount > 1)) { + if ($privcount%$numcells) { + $r->print(''); + if ($privcount < @{$showboxes{$tool}}) { + if (@{$showboxes{$tool}} > 2) { + if ($privcount%$numcells == 0) { + $r->print(''); + } + } else { + $r->print(''); + } + } + } + $r->print('
    '); + } else { + $r->print(''); + } + } else { + $r->print(''); + } + $r->print( + '
    '.&mt($$toolprivs{$tool}{$priv}).'' +.'' +.' ' +.' ' +.'' +.'

    ' + ); + $r->print('
    		 '.$$toolprivs{$tool}{$priv}.'
    '); } + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row()); + $r->print(<<"END"); +     		$lt{'full'}$lt{'user'}$lt{'doma'}$lt{'addp'}None
      
    '.$fixed.'
    '); } - $r->print(''); - $r->print(&Apache::lonhtmlcommon::end_pick_box()); + } else { + $r->print($lt{'asng'}); } - $r->print(' - -   - + return $numchgs; +} + +sub process_request { + my ($r,$cdom,$cnum,$action,$state,$page,$groupname,$description, + $specificity,$userdata,$startdate,$enddate,$tools,$functions,$toolprivs, + $usertools,$idx,$types,$roles,$sections,$states,$navbuttons,$memchg, + $sectioncount,$stored,$gpterm,$ucgpterm,$crstype) = @_; + + $r->print(&Apache::lonhtmlcommon::echo_form_input( + ['origin','action','state','page','sortby'])); + + my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm, + $ucgpterm,$crstype); + if ($earlyout) { + $r->print(' + - - '); - $r->print(' -
      - -    - -
    '); +'.$earlyout.''); + &display_navbuttons($r,$state,$$states{$action}[$page-1], + $$navbuttons{'gtps'}); + $r->print(''); + return; + } + + my @defprivs = (); + if ($action eq 'create' || $state eq 'chgresult') { + if (defined($env{'form.defpriv'})) { + @defprivs = &Apache::loncommon::get_env_multiple('form.defpriv'); + } + if ($state eq 'chgresult') { + my @okprivs = (); + foreach my $tool (@{$tools}) { + foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { + push(@okprivs,$priv); + } + } + my @temp = (); + foreach my $defpriv (@defprivs) { + if (grep/^$defpriv$/,@okprivs) { + push(@temp,$defpriv); + } + } + @defprivs = @temp; + } + } else { + if (defined($$stored{'defpriv'})) { + @defprivs = @{$$stored{'defpriv'}}; + } + } + my $outcome; + if ($action eq 'create' || $state eq 'chgresult') { + $outcome = &write_group_data($r,$cdom,$cnum,$action,$state,$groupname, + $description,$startdate,$enddate, + $specificity,$functions,$tools, + $sectioncount,$roles,$types,$sections, + \@defprivs,$stored,$gpterm,$ucgpterm, + $crstype); + } + if (($action eq 'create' && $outcome eq 'ok') || (($action eq 'modify') && + (($state eq 'memresult') || ($state eq 'addresult')))) { + &process_membership($r,$cdom,$cnum,$action,$state,$groupname,$tools, + $enddate,$startdate,$userdata,$idx,$toolprivs, + $usertools,$specificity,\@defprivs,$memchg,$gpterm, + $ucgpterm,$crstype); + } return; } -sub completed_creation { - my ($r,$cdom,$cnum,$tabcol,$formname,$groupname,$description,$userdata, -$startdate,$enddate,$tools,$functions,$toolprivs,$members,$usertools,$idx) = @_; - - $r->print(&Apache::lonhtmlcommon::echo_form_input( - ['origin','action','state'])); - my @added= (); - my @failed = (); +sub write_group_data { + my ($r,$cdom,$cnum,$action,$state,$groupname,$description,$startdate, + $enddate,$specificity,$functions,$tools,$sectioncount,$roles,$types, + $sections,$defprivs,$stored,$gpterm,$ucgpterm,$crstype) = @_; my $now = time; + my $creation = $now; + my $creator = $env{'user.name'}.':'.$env{'user.domain'}; + if ($state eq 'chgresult') { + $creation = $$stored{'creation'}; + $creator = $$stored{'creator'}; + } + my $esc_description = &escape($description); + my @single_attributes = ('description','functions','startdate','enddate', + 'creation','modified','creator','granularity', + 'specificity','autoadd','autodrop','quota'); + my @mult_attributes = ('roles','types','sectionpick','defpriv'); + + my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action, + $stored); + my $quota = $env{'form.quota'}; + + $quota =~ s/^\s*([^\s]*)\s*$/$1/; + if ($quota eq '') { + $quota = 0; + } + if ($quota !~ /^\d*\.?\d*$/) { + $quota = 0; + $r->print('
    ' + .&mt('The value you entered for the quota for the group portfolio in this '.$gpterm + .' contained invalid characters, so it has been set to 0 MB. You can change this by' + .' modifying the '.$gpterm.' settings.') + .'
    '); + } + if ($quota > $maxposs) { + $quota = $maxposs; + $r->print('
    ' + .&mt('The value you entered for the quota for the group portfolio in this '.$gpterm + .' exceeded the maximum possible value, so it has been set to [_1] MB ' + .'(the maximum possible value).',sprintf("%.2f",$maxposs)) + .'
    '); + } + my %groupinfo = ( + description => $esc_description, + startdate => $startdate, + enddate => $enddate, + creation => $creation, + modified => $now, + creator => $creator, + granularity => $env{'form.granularity'}, + specificity => $specificity, + autoadd => $env{'form.autoadd'}, + autodrop => $env{'form.autodrop'}, + quota => $quota, + ); + + foreach my $func (keys(%{$functions})) { + my $status; + if (grep(/^$func$/,@{$tools})) { + $status = 'on'; + } else { + $status = 'off'; + } + $groupinfo{'functions'} .= qq|$status|; + } + + $groupinfo{'roles'} = $roles; + $groupinfo{'types'} = $types; + $groupinfo{'sectionpick'} = $sections; + $groupinfo{'defpriv'} = $defprivs; + + my %groupsettings = (); + foreach my $item (@single_attributes) { + $groupsettings{$groupname} .= qq|<$item>$groupinfo{$item}|; + } + foreach my $item (@mult_attributes) { + foreach my $entry (@{$groupinfo{$item}}) { + $groupsettings{$groupname} .= qq|<$item>$entry|; + } + } + my $autosec; + my @autorole = &Apache::loncommon::get_env_multiple('form.autorole'); + + foreach my $role (@autorole) { + if (defined($env{'form.sec_'.$role})) { + my @autosections=&Apache::loncommon::get_env_multiple('form.sec_'. + $role); + $autosec .= ''; + foreach my $sec (@autosections) { + $autosec .= '
    '.$sec.'
    '; + } + $autosec .= '    '; + } + } + if ($autosec) { + $groupsettings{$groupname} .= qq|$autosec|; + } + my $result = &Apache::lonnet::modify_coursegroup($cdom,$cnum, + \%groupsettings); + + if ($result eq 'ok') { + if ($action eq 'create') { + my $result = &add_group_folder($cdom,$cnum,$now,$groupname,$action, + $description,$tools,\%groupinfo, + $gpterm,$ucgpterm,$crstype); + if ($result eq 'ok') { + my $msg = &Apache::lonhtmlcommon::confirm_success(&mt($ucgpterm.' [_1] was created.',''.$groupname.'')); + $msg = &Apache::loncommon::confirmwrapper($msg); + $r->print($msg); + } else { + my $msg = &Apache::lonhtmlcommon::confirm_success(&mt('A problem occurred when creating folders for the new '.$gpterm.' [_1]:' + ,''.$groupname.'') + .'
    '.$result,1); + $msg = &Apache::loncommon::confirmwrapper($msg); + $r->print($msg); + } + } elsif ($action eq 'modify') { + my (@oldtools,@newtools); + if (ref($$stored{'tool'}) eq 'ARRAY') { + @oldtools = @{$$stored{'tool'}}; + } + if (ref($tools) eq 'ARRAY') { + @newtools = @{$tools}; + } + if (!grep(/^discussion$/,@oldtools) && + grep(/^discussion$/,@newtools)) { + my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/'; + my $boardsmap = $crspath.'group_boards_'.$groupname.'.sequence'; + my $navmap = Apache::lonnavmaps::navmap->new(); + my ($bbmapres,$error); + if (defined($navmap)) { + $bbmapres = $navmap->getResourceByUrl($boardsmap); + undef($navmap); + if (!$bbmapres) { + my $grpmap = $crspath.'group_folder_'.$groupname.'.sequence'; + my $disctitle = &mt('Discussion Boards'); + my $outcome = &map_updater($cdom,$cnum,'group_boards_'. + $groupname.'.sequence','bbseq', + $disctitle,$grpmap); + my ($furl,$ferr) = + &Apache::lonuserstate::readmap($cdom.'/'.$cnum); + # modify parameter + if ($outcome eq 'ok') { + $navmap = Apache::lonnavmaps::navmap->new(); + if (defined($navmap)) { + my $parm_result = &parm_setter($navmap,$cdom,$boardsmap, + $groupname); + if ($parm_result) { + $error = &mt('An error occurred while setting parameters ' + .'for Discussion Boards folder: ' + .'[_1]',$parm_result); + } else { + $r->print('
    '. + &mt('Discussion Boards Folder created.') + .'
    '); + } + undef($navmap); + } else { + if ($crstype eq 'Community') { + $error = &mt("An error occurred while setting parameters '. + 'for Discussion Boards folder: '. + 'Could not retrieve community information"); + } else { + $error = &mt("An error occurred while setting parameters '. + 'for Discussion Boards folder: '. + 'Could not retrieve course information"); + } + } + } else { + $r->print($outcome); + } + } + } else { + $error = &mt("An error occurred while retrieving the contents of the group's folder.").'
    '; + if ($crstype eq 'Community') { + $error .= &mt("You need to re-initialize the community."); + + } else { + $error .= &mt("You need to re-initialize the course."); + } + } + if ($error ne '') { + $r->print('
    '.$error.'
    '); + } + } + my $message = &Apache::lonhtmlcommon::confirm_success(&mt($ucgpterm.' [_1] was updated.',''.$groupname.'')); + $message = &Apache::loncommon::confirmwrapper($message); + $r->print($message); + } + } else { + my %actiontype = ( + 'create' => 'creating', + 'modify' => 'modifying', + ); + &Apache::lonnet::logthis("Failed to store $gpterm $groupname ". + 'in '.lc($crstype).': '.$cnum. + ' in domain: '.$cdom); + $r->print('

    ' + .&mt('An error occurred when '.$actiontype{$action}.' the '.$gpterm.'. ' + .'Please try again.') + .' 0) { + if (grep/^\Q$priv\E$/,@{$defprivs}) { + foreach my $user (sort(keys(%{$usertools}))) { + if ($$usertools{$user}{$tool}) { + $group_privs{$user} .= $priv.':'; + } } } } @@ -1365,139 +3429,426 @@ $startdate,$enddate,$tools,$functions,$t foreach my $user (keys(%group_privs)) { $group_privs{$user} =~ s/:$//; } - my $esc_description = &Apache::lonnet::escape($description); - my @attributes = ('description','functions','startdate','enddate','creation','modified','creator'); - - my %groupinfo = ( - description => $esc_description, - startdate => $startdate, - enddate => $enddate, - creation => $now, - modified => $now, - creator => $env{'user.name'}.':'.$env{'user.domain'}, - ); - foreach my $func (keys(%{$functions})) { - my $status; - if (grep(/^$func$/,@{$tools})) { - $status = 'on'; - } else { - $status = 'off'; - } - $groupinfo{'functions'} .= qq|$status|; - } - my %curr_groups = (); - my %groupsettings = (); - my %usersettings = (); - if (&Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum,$groupname)) { - if (exists($curr_groups{$groupname})) { - $r->print('Non-unique name - please choose another'); - return; + my $now = time; + my @activate = (); + my @expire = (); + my @deletion = (); + my @reenable = (); + my @unchanged = (); + if ($state eq 'memresult') { + if (ref($$memchg{'activate'}) eq 'ARRAY') { + @activate = @{$$memchg{'activate'}}; + } + if (ref($$memchg{'expire'}) eq 'ARRAY') { + @expire = @{$$memchg{'expire'}}; + } + if (ref($$memchg{'deletion'}) eq 'ARRAY') { + @deletion = @{$$memchg{'deletion'}}; + } + if (ref($$memchg{'reenable'}) eq 'ARRAY') { + @reenable = @{$$memchg{'reenable'}}; + } + my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum, + $groupname); + foreach my $key (sort(keys(%membership))) { + if ($key =~ /^\Q$groupname\E:([^:]+:[^:]+)$/) { + ($curr_end{$1},$curr_start{$1},$curr_privs{$1}) = + split(/:/,$membership{$key},3); + } + } + if (@expire + @deletion > 0) { + foreach my $user (@expire) { + my $savestart = $curr_start{$user}; + if ($savestart > $now) { + $savestart = $now; + } + $usersettings{$groupname.':'.$user} = $now.':'.$savestart.':'. + $curr_privs{$user}; + if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname, + $user,$now,$savestart, + $curr_privs{$user},'',$context) eq 'ok') { + push(@{$added{'expired'}},$user); + $num_ok ++; + } else { + push(@{$failed{'expired'}},$user); + $num_fail ++; + } + } + foreach my $user (@deletion) { + $usersettings{$groupname.':'.$user} = $now.':-1:'; + if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname, + $user,$now,'-1','','',$context) + eq 'ok') { + push(@{$added{'deleted'}},$user); + $num_ok ++; + } else { + push(@{$failed{'deleted'}},$user); + $num_fail ++; + } + } } } - my $groupentry; - foreach my $item (@attributes) { - $groupsettings{$groupname} .= qq|<$item>$groupinfo{$item}|; - } - my $result = &Apache::lonnet::modify_coursegroup($cdom,$cnum, - \%groupsettings); - if ($result eq 'ok') { - my $put_result = &create_homepage($cdom,$cnum,$groupname,\%groupinfo,$tools); - foreach my $user (sort(@{$members})) { - $usersettings{$groupname.':'.$user} = $enddate.':'.$startdate.':'.$group_privs{$user}; - if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname, - $user,$enddate,$startdate,$group_privs{$user}) eq 'ok') { - push(@added,$user); - } else { - push(@failed,$user); + + foreach my $user (sort(keys(%{$usertools}))) { + if ((grep(/^$user$/,@expire)) || (grep(/^$user$/,@deletion))) { + next; + } + my $type; + my $start = $startdate; + my $end = $enddate; + if ($state eq 'memresult') { + if (@activate > 0) { + if (grep/^$user$/,@activate) { + $start = $now; + $end = $enddate; + $type = 'activated'; + } + } + if (@reenable > 0) { + if (grep/^$user$/,@reenable) { + $start = $startdate; + $end = $enddate; + $type = 're-enabled'; + } + } + if ($type eq '') { + if ($curr_privs{$user} eq $group_privs{$user}) { + push(@unchanged,$user); + next; + } + if (exists($curr_start{$user})) { + $start = $curr_start{$user}; + } + if (exists($curr_end{$user})) { + $end = $curr_end{$user}; + } + $type = 'modified'; } + } else { + $type = 'added'; } - my $roster_result = &Apache::lonnet::modify_coursegroup_membership( - $cdom,$cnum,\%usersettings); - $r->print(' -Group '.$groupname.' was created.
    '); - if (@added > 0) { - $r->print('Users were added with following privileges:
    '); - foreach my $user (@added) { - my @privs = split(/:/,$group_privs{$user}); - my $privlist= ''; - my $curr_tool = ''; - foreach my $priv (@privs) { - unless ($curr_tool eq $tooltype{$priv}) { - $curr_tool = $tooltype{$priv}; - $privlist .= ''.$curr_tool.': '; - } - $privlist .= $$toolprivs{$curr_tool}{$priv}.', '; - } - $privlist =~ s/, $//; - $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.': '.$privlist.'
    '); - } - } - if (@failed > 0) { - $r->print('Addition of the following users was unsuccessful:
    '); - foreach my $user (@failed) { + $usersettings{$groupname.':'.$user} = $end.':'.$start.':'. + $group_privs{$user}; + if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname, + $user,$end,$start, + $group_privs{$user},'',$context) eq 'ok') { + push(@{$added{$type}},$user); + $num_ok ++; + } else { + push(@{$failed{$type}},$user); + $num_fail ++; + } + } + my $roster_result = &Apache::lonnet::modify_coursegroup_membership($cdom, + $cnum,\%usersettings); + if ($num_ok) { + my $msgall =''; + foreach my $type (sort(keys(%added))) { + my $message; + my $tmsg = "The following users were successfully $type"; + if (!($type eq 'deleted' || $type eq 'expired')) { + $tmsg .= ' with the following privileges'; + } + $message .= &mt($tmsg.':').'
    '; + foreach my $user (@{$added{$type}}) { + my $privlist = ''; + if (!($type eq 'deleted' || $type eq 'expired')) { + $privlist = ': '; + my @privs = split(/:/,$group_privs{$user}); + my $curr_tool = ''; + foreach my $priv (@privs) { + unless ($curr_tool eq $tooltype{$priv}) { + $curr_tool = $tooltype{$priv}; + $privlist .= ''.$curr_tool.': '; + } + $privlist .= $$toolprivs{$curr_tool}{$priv}.', '; + } + $privlist =~ s/, $//; + } + $message .= $$userdata{$user}[$$idx{fullname}].' - '.$user.$privlist.'
    '; + } + $message .= '
    '; + $message = &Apache::lonhtmlcommon::confirm_success($message); + $msgall .= $message; + } + $msgall = &Apache::loncommon::confirmwrapper($msgall); + $r->print($msgall); + } + if ($num_fail) { + foreach my $type (sort(keys(%failed))) { + $r->print('

    ' + .&mt("The following users could not be $type, because an error occurred:") + .'
    '); + foreach my $user (@{$failed{$type}}) { $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'
    '); } } - if ($roster_result eq 'ok') { - $r->print('
    Group membership list updated.'); - } else { - $r->print('
    An error occurred while updating the group membership list -'.$roster_result.'
    '); + $r->print('
    '); + } +# Is that really needed? +# +# if (@unchanged > 0) { +# $r->print(&mt('No change occurred for the following users:').'
    '); +# foreach my $user (sort(@unchanged)) { +# $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'
    '); +# } +# $r->print('
    '); +# } + if ($roster_result eq 'ok') { + $r->print('
    ' + .&mt($ucgpterm.' membership list updated.') + .'
    '); + $r->print('

    '); + if ($crstype eq 'Community') { + $r->print(&mt("Any currently logged in community users affected by the changes you made" + .' to group membership or privileges for the [_1] group will need to log out' + .' and log back in for their LON-CAPA sessions to reflect these changes.' + ,''.$groupname.'')); + + } else { + $r->print(&mt("Any currently logged in course users affected by the changes you made" + .' to group membership or privileges for the [_1] group will need to log out' + .' and log back in for their LON-CAPA sessions to reflect these changes.' + ,''.$groupname.'')); } + $r->print('

    '); + } else { + $r->print('
    ' + .&mt("An error occurred while updating the $gpterm membership list:") + .'
    '.$roster_result + .'
    '); + } + return; +} + +sub mapping_options { + my ($r,$action,$formname,$page,$sectioncount,$states,$stored, + $navbuttons,$img1,$img2,$gpterm,$ucgpterm,$crstype,$cdom,$cnum) = @_; + my %lt = &Apache::lonlocal::texthash( + 'auto' => "Settings for automatic $gpterm enrollment", + 'gmma' => "$ucgpterm membership mapping to specific sections/roles", + 'endi' => "Enable/disable automatic $gpterm enrollment for ". + "users in specified roles and sections", + 'adds' => "If automatic $gpterm enrollment is enabled, when a user is newly assigned a ".lc($crstype)."-wide or section-specific role, he/she will automatically be added as a member of the $gpterm, with start and end access dates defined by the default dates set for the $gpterm, unless he/she is already a $gpterm member, with access dates that permit either current or future $gpterm access.", + 'drops' => "If automatic $gpterm disenrollment is enabled, when a user's role is expired, access to the $gpterm will be terminated unless the user continues to have other ".lc($crstype)."-wide or section-specific active or future roles which receive automatic membership in the $gpterm.", + 'pirs' => "Pick roles and sections for automatic $gpterm enrollment", + 'on' => 'on', + 'off' => 'off', + 'auad' => "Automatically enable $gpterm membership when roles are added?", + 'auex' => "Automatically expire $gpterm membership when roles are removed?", + 'mapr' => "Mapping of roles and sections affected by automatic $gpterm enrollment/disenrollment follows scheme chosen below.", + ); + &automapping($r,$action,$stored,\%lt,$img1); + &mapping_settings($r,$sectioncount,\%lt,$stored,$img2,$crstype,$cdom,$cnum, + $action); + return; +} + +sub automapping { + my ($r,$action,$stored,$lt,$image) = @_; + my $add = 'off'; + my $drop = 'off'; + if (exists($$stored{'autoadd'})) { + $add = $$stored{'autoadd'}; + } + if (exists($$stored{'autodrop'})) { + $drop = $$stored{'autodrop'}; + } + $r->print(&Apache::lonhtmlcommon::topic_bar($image,$$lt{'endi'}).' + '.$$lt{'gmma'}.':
    '.$$lt{'adds'}.'
    '.$$lt{'drops'}.'

    + '.$$lt{'auad'}.':  + '); + if ($action eq 'modify') { + $r->print('    ('.&mt('Currently set to [_1].',''.$$lt{$add}.'').')'); + } + $r->print(' +
    + '.$$lt{'auex'}.':  + '); + if ($action eq 'modify') { + $r->print('    ('.&mt('Currently set to [_1].',''.$$lt{$drop}.'').')'); + } + $r->print('

    '.$$lt{'mapr'}); +} + +sub mapping_settings { + my ($r,$sectioncount,$lt,$stored,$image,$crstype,$cdom,$cnum,$action) = @_; + my @sections = keys(%{$sectioncount}); + if (@sections > 0) { + @sections = sort {$a cmp $b} @sections; + unshift(@sections,'none'); # Put 'no sections' next + unshift(@sections,'all'); # Put 'all' at the front of the list } else { - &Apache::lonnet::logthis('Failed to create group '.$groupname. - 'in course: '.$cnum.' in domain: '.$cdom); + @sections = ('all','none'); + } + $r->print(&Apache::lonhtmlcommon::topic_bar($image,$$lt{'pirs'})); + my @roles = &standard_roles($crstype); + my %customroles = &Apache::lonhtmlcommon::course_custom_roles($cdom,$cnum); + $r->print(&Apache::loncommon::start_data_table(). + &Apache::loncommon::start_data_table_header_row()); + $r->print(' + '.&mt('Active?').' + '.&mt('Role').''); + if (@sections > 0) { + $r->print(''.&mt('Sections').''); + } + $r->print(&Apache::loncommon::end_data_table_header_row()."\n"); + foreach my $role (@roles) { + my $roletitle=&Apache::lonnet::plaintext($role,$crstype); + $r->print(&print_autorole_item($role,$roletitle,\@sections)); + } + my @customs; + foreach my $role (sort(keys(%customroles))) { + my ($roletitle) = ($role =~ m|^cr/[^/]+/[^/]+/(.+)$|); + push (@customs,$role); + $r->print(&print_autorole_item($role,$roletitle,\@sections)); + } + if ($action eq 'modify') { + foreach my $role (@{$$stored{'autorole'}}) { + if ((!grep(/^\Q$role\E$/,@customs)) && + (!grep(/^\Q$role\E$/,@roles))) { + my $roletitle; + if ($role =~ /^cr/) { + ($roletitle) = ($role =~ m|_([^_]+)$|); + } else { + $roletitle = &Apache::lonnet::plaintext($role,$crstype); + } + $r->print(&print_autorole_item($role,$roletitle,\@sections)); + } + } + } + $r->print(&Apache::loncommon::end_data_table()); + return; +} + +sub print_autorole_item { + my ($role,$roletitle,$sections) = @_; + my $sections_sel; + if (@{$sections} > 0) { + if (($role eq 'cc') || ($role eq 'co')) { + $sections_sel = ''. + &mt('all sections').''; + } else { + $sections_sel=''. + §ions_selection($sections,'sec_'.$role). + ''; + } + } + my $output = &Apache::loncommon::start_data_table_row(). + ''. + ''.$roletitle.''.$sections_sel. + &Apache::loncommon::end_data_table_row(); + return $output; +} - $r->print('An error occurred when creating the new group. '. - 'Please try again.'); +sub standard_roles { + my ($crstype) = @_; + my @roles = qw(in ta ep ad st); + if ($crstype eq 'Community') { + unshift(@roles,'co'); + } else { + unshift(@roles,'cc'); } + return @roles; +} + +sub modify_menu { + my ($r,$groupname,$page,$gpterm) = @_; + my @menu = + ( { categorytitle =>'Group Actions', + items => [ + + { linktext => "Modify default $gpterm settings", + url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=change_settings&branch=settings', + icon => 'grp_settings.png', + alttext => "Modify default $gpterm settings", + permission => '1', + help => 'Course_Modify_Group', + }, + { linktext => 'Modify access, tools and privileges for members', + url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=change_members&branch=members', + icon => 'grp_tools.png', + alttext => 'Modify access, tools and privileges for members', + permission => '1', + help => 'Course_Modify_Group_Membership', + }, + { linktext => "Add member(s) to the $gpterm", + url => '/adm/coursegroups?action=modify&refpage='.$env{'form.refpage'}.'&groupname='.$groupname.'&state=add_members&branch=adds', + icon => 'grp_add.png', + alttext => "Add member(s) to the $gpterm", + permission => '1', + help => 'Course_Group_Add_Members', + }]} + ); + $r->print(&Apache::lonhtmlcommon::generate_menu(@menu)); return; } sub member_privs_entries { - my ($r,$tabcol,$rowColor1,$rowColor2,$members,$tools,$usertools,$toolprivs, - $fixedprivs,$userdata,$idx) = @_; - my $rowColor; - my $rowNum = 0; - foreach my $member (@{$members}) { - my ($uname,$udom) = split(/:/,$member); - if ($rowNum %2 == 1) { - $rowColor = $rowColor1; - } else { - $rowColor = $rowColor2; + my ($r,$usertools,$toolprivs,$fixedprivs,$userdata,$idx,$showtools, + $defprivs,$excluded) = @_; + foreach my $user (sort(keys(%{$usertools}))) { + if (defined($excluded)) { + if (ref($excluded) eq 'ARRAY') { + if (grep/^$user$/,@{$excluded}) { + next; + } + } } - $r->print(' - '.$$userdata{$member}[$$idx{fullname}].' + my ($uname,$udom) = split(/:/,$user); + $r->print(&Apache::loncommon::start_data_table_row().' + '.$$userdata{$user}[$$idx{fullname}].' '.$uname.' '.$udom.' -
    Function
    Fixed
    Optional
    '); - foreach my $tool (@{$tools}) { - if (exists($$usertools{$member}{$tool})) { - $r->print(''); + '); + foreach my $tool (@{$showtools}) { + if (exists($$usertools{$user}{$tool})) { + $r->print(''); + $r->print(''.$dynamic.'
    '.$tool.'
    + + + + + + + + + + +
    '. + &mt('Collaborative Tool').'
    '.&mt('Fixed').'
    '.&mt('Optional').'
    +     		'); my $privcount = 0; my $fixed = ''; my $dynamic = ''; foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) { if (exists($$fixedprivs{$tool}{$priv})) { - $fixed .= ''.$$toolprivs{$tool}{$priv}.' '; + $fixed .= ''.$$toolprivs{$tool}{$priv}.' '; } else { $privcount ++; if ($privcount == 3) { $dynamic .= ''; } - $dynamic .= ''; + $dynamic .=''; } } - $r->print(''.$dynamic.'
    '.$tool.'
    '.$$toolprivs{$tool}{$priv}.'
    '.$fixed.'
    '.$fixed.'
    '); } else { - $r->print(' '); + $r->print('
    '.$tool.'
     
     
    '); } } - $rowNum ++; + $r->print(&Apache::loncommon::end_data_table_row()); } } - sub get_dates_from_form { my $startdate; my $enddate; @@ -1507,51 +3858,418 @@ sub get_dates_from_form { $enddate = 0; } return ($startdate,$enddate); -} +} + sub date_setting_table { my ($starttime,$endtime,$formname) = @_; my $startform = &Apache::lonhtmlcommon::date_setter($formname, 'startdate',$starttime); my $endform = &Apache::lonhtmlcommon::date_setter($formname, 'enddate',$endtime); - my $perpetual = ' - no ending date'; - my $start_table = ''; - $start_table .= "\n"; - $start_table .= ''. - ''. - ''."\n"; - $start_table .= "
    Default starting date for - member access'.$startform.' 
    "; - my $end_table = ''; - $end_table .= "\n"; - $end_table .= ''. - ''. - ''."\n"; - $end_table .= "
    Default ending date for - member access'.$endform.''.$perpetual.'
    \n"; - return ($start_table, $end_table); + my $perpetual = ' '; + my $table = &Apache::lonhtmlcommon::start_pick_box() + .&Apache::lonhtmlcommon::row_title(&mt('Start Date')) + .$startform + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title(&mt('End Date')) + .$endform + .$perpetual + .&Apache::lonhtmlcommon::row_closure(1) + .&Apache::lonhtmlcommon::end_pick_box(); + return $table; +} + +sub add_group_folder { + my ($cdom,$cnum,$now,$groupname,$action,$description,$tools,$groupinfo, + $gpterm,$ucgpterm,$crstype) = @_; + if ($cdom eq '' || $cnum eq '') { + my $error = ''; + if ($crstype eq 'Community') { + $error .= &mt("Error: invalid community domain or number - group folder creation failed."); + } else { + $error .= &mt("Error: invalid course domain or number - group folder creation failed."); + } + $error .= ''; + return $error; + } + my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage,$warning); + my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/'; + $allgrpsmap = $crspath.'group_allfolders.sequence'; + if ($action eq 'create') { + if (&get_folder_lock($cdom,$cnum,'group_allfolders',$now) eq 'ok') { + # check if group_allfolders.sequence exists. + my $mapcontents = &Apache::lonnet::getfile($allgrpsmap); + if ($mapcontents eq '-1') { #file does not exist; + my $grpstitle = &mt("$crstype $ucgpterm".'s'); + my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'}; + $topmap_url =~ s|/+|/|g; + if ($topmap_url =~ m|^/uploaded|) { + $outcome = &map_updater($cdom,$cnum,'group_allfolders.sequence', + 'toplevelgroup',$grpstitle,$topmap_url); + } else { + $outcome = '' + .&mt('Non-standard course - folder for all groups not added.') + .''; + } + if ($outcome ne 'ok') { + my $delresult = &release_folder_lock($cdom,$cnum,'group_allfolders'); + if ($delresult ne 'ok') { + $warning = $delresult; + } + return $outcome.$warning; + } + } + my $delresult = &release_folder_lock($cdom,$cnum,'group_allfolders'); + if ($delresult ne 'ok') { + $warning = $delresult ; + } + } else { + $outcome = '' + .&mt('Could not obtain exclusive lock to check status of the folder for all groups. No group folder added.') + .''; + return $outcome; + } + my $grpfolder = &mt($ucgpterm.' Folder - [_1]',$description); + $grppage='/adm/'.$cdom.'/'.$cnum.'/'.$groupname.'/smppg'; + my $grptitle = &mt('Group homepage - [_1]',$description); + my ($discussions,$disctitle); + my $outcome = &map_updater($cdom,$cnum,'group_folder_'.$groupname.'.sequence', + 'grpseq',$grpfolder,$allgrpsmap,$grppage, + $grptitle); + if ($outcome ne 'ok') { + return $outcome.$warning; + } + my $pageout = &create_homepage($cdom,$cnum,$groupname,$groupinfo, + $tools,$gpterm,$ucgpterm,$now); + # Link to folder for bulletin boards + $grpmap = $crspath.'group_folder_'.$groupname.'.sequence'; + if (grep/^discussion$/,@{$tools}) { + $disctitle = &mt('Discussion Boards'); + my $outcome = &map_updater($cdom,$cnum,'group_boards_'.$groupname. + '.sequence','bbseq',$disctitle,$grpmap); + if ($outcome ne 'ok') { + return $outcome.$warning; + } + $boardsmap = $crspath.'group_boards_'.$groupname.'.sequence'; + } + } else { + #modify group folder if status of discussions tools is changed + } + my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum); + my $navmap = Apache::lonnavmaps::navmap->new(); + if (!defined($navmap)) { + $warning .= ''; + if ($crstype eq 'Community') { + $warning .= &mt("Error retrieving community contents"). + ' '.&mt("You need to re-initialize the community."); + } else { + $warning .= &mt("Error retrieving course contents"). + ' '.&mt("You need to re-initialize the course."); + } + $warning .= ''; + return $warning; + } + # modify parameters + my $parm_result; + if ($action eq 'create') { + if ($grpmap) { + $parm_result .= &parm_setter($navmap,$cdom,$grpmap,$groupname); + } + if ($grppage) { + $parm_result .= &parm_setter($navmap,$cdom,$grppage,$groupname); + } + if ($boardsmap) { + $parm_result .= &parm_setter($navmap,$cdom,$boardsmap,$groupname); + } + } + undef($navmap); + if ($parm_result) { + return $warning.$parm_result; + } else { + return 'ok'; + } +} + +sub get_folder_lock { + my ($cdom,$cnum,$folder_name,$now) = @_; + # get lock for folder being edited. + my $lockhash = { + $folder_name."\0".'locked_folder' => $now.':'.$env{'user.name'}. + ':'.$env{'user.domain'}, + }; + my $tries = 0; + my $gotlock = &Apache::lonnet::newput('coursegroups',$lockhash,$cdom,$cnum); + + while (($gotlock ne 'ok') && $tries <3) { + $tries ++; + sleep(1); + $gotlock = &Apache::lonnet::newput('coursegroups',$lockhash,$cdom,$cnum); + } + return $gotlock; +} + +sub release_folder_lock { + my ($cdom,$cnum,$folder_name) = @_; + # remove lock + my @del_lock = ($folder_name."\0".'locked_folder'); + my $dellockoutcome=&Apache::lonnet::del('coursegroups',\@del_lock,$cdom,$cnum); + if ($dellockoutcome ne 'ok') { + return ('
    ' + .&mt('Warning: failed to release lock for folder: [_1].',''.$folder_name.'') + .'
    ' + ); + } else { + return 'ok'; + } +} + +sub map_updater { + my ($cdom,$cnum,$newfile,$itemname,$itemtitle,$parentmap,$startsrc, + $starttitle,$endsrc,$endtitle) = @_; + my $outcome; + $env{'form.'.$itemname} = &new_map($startsrc,$starttitle,$endsrc, + $endtitle); + my $newmapurl=&Apache::lonnet::finishuserfileupload($cnum,$cdom,$itemname, + $newfile); + if ($newmapurl !~ m|^/uploaded|) { + $outcome = '
    ' + .&mt('Error uploading new folder.')." ($newfile): $newmapurl" + .'
    '; + return $outcome; + } + my ($errtext,$fatal)=&LONCAPA::map::mapread($parentmap); + if ($fatal) { + $outcome = '
    ' + .&mt('Error reading contents of parent folder.')." ($parentmap): $errtext" + .'
    '; + return $outcome; + } else { + my $newidx=&LONCAPA::map::getresidx($newmapurl); + $LONCAPA::map::resources[$newidx] = $itemtitle.':'.$newmapurl. + ':false:normal:res'; + $LONCAPA::map::order[1+$#LONCAPA::map::order]=$newidx; + my ($outtext,$errtext) = &LONCAPA::map::storemap($parentmap,1,1); + if ($errtext) { + $outcome = '
    ' + .&mt('Error saving updated parent folder.')." ($parentmap): $errtext" + .'
    '; + return $outcome; + } + } + return 'ok'; +} + +sub new_map { + my ($startsrc,$starttitle,$endsrc,$endtitle) = @_; + my $newmapstr = ' + + + + + +'; + return $newmapstr; +} + +sub parm_setter { + my ($navmap,$cdom,$url,$groupname,$crstype) = @_; + if (!defined($navmap)) { + my $allresults; + if ($crstype eq 'Community') { + $allresults = &mt("Parameters not set for [_1] because the contents of the community could not be retrieved.",$url).' '. + &mt("You need to reinitialize the community."); + } else { + $allresults = &mt("Parameters not set for [_1] because the contents of the course could not be retrieved.",$url).' '. + &mt("You need to reinitialize the course."); + + } + return '
    '.$allresults.'
    '; + } + my %hide_settings = ( + 'course' => { + 'num' => 13, + 'set' => 'yes', + }, + 'group' => { + 'num' => 5, + 'set' => 'no', + 'extra' => $groupname, + }, + ); + my $res = $navmap->getResourceByUrl($url); + my $allresults; + if ($res) { + my $symb = $res->symb(); + foreach my $level (keys(%hide_settings)) { + my $parmresult = + &Apache::lonparmset::storeparm_by_symb($symb, + '0_hiddenresource', + $hide_settings{$level}{'num'}, + $hide_settings{$level}{'set'}, + 'string_yesno',undef,$cdom, + undef,undef, + $hide_settings{$level}{'extra'}); + if ($parmresult) { + $allresults .= $level.': '.$parmresult; + } + } + } else { + $allresults = '
    '; + if ($crstype eq 'Community') { + $allresults .= &mt("Parameters not set for [_1] because the resource was not recognized as part of the community.",''.$url.''); + } else { + $allresults .= &mt('Parameters not set for [_1] because the resource was not recognized as part of the course.',''.$url.''); + } + $allresults .= '
    '; + } + return $allresults; } sub create_homepage { - my ($cdom,$cnum,$name,$groupinfo,$tools) = @_; + my ($cdom,$cnum,$name,$groupinfo,$tools,$gpterm,$ucgpterm,$now) = @_; my $functionality = join(',',@{$tools}); - my $content = &Apache::lonnet::unescape($$groupinfo{description}); - $content=~s/\s+$//s; - $content=~s/^\s+//s; - $content=~s/\$//s; - $content=&Apache::lonfeedback::clear_out_html($content,1); + my $content = &unescape($$groupinfo{description}); + chomp($content); + my $gateway = Apache::lonhtmlgateway->new(); + $content = $gateway->process_incoming_html($content,1); my %pageinfo = ( - 'aaa_title' => 'Group: '.$name, + 'aaa_title' => "$ucgpterm: $name", 'abb_links' => $functionality, 'bbb_content' => $content, 'ccc_webreferences' => '', - 'uploaded.lastmodified' => time, + 'uploaded.lastmodified' => $now, ); my $putresult = &Apache::lonnet::put('grppage_'.$name,\%pageinfo,$cdom,$cnum); return $putresult; } +sub check_uncheck_tools { + my ($r,$available) = @_; + if (ref($available) eq 'ARRAY') { + $r->print(' + +'); + } + return; +} + +sub validate_groupname { + my ($groupname,$action,$cdom,$cnum,$gpterm,$ucgpterm,$crstype) = @_; + my %sectioncount = &Apache::loncommon::get_sections($cdom,$cnum); + my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum); + my %deleted_groups = &Apache::longroup::coursegroups($cdom,$cnum,undef, + 'deleted_groups'); + if (my $tmp = &Apache::lonnet::error(%deleted_groups)) { + undef(%deleted_groups); + &Apache::lonnet::logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom); + } + my %lt = &Apache::lonlocal::texthash ( + igna => "Invalid $gpterm name", + grna => "$ucgpterm names and section names used in a ". + "$crstype must be unique.", + gnmo => "$ucgpterm names may only contain letters, ". + "numbers or underscores.", + ); + + my $exitmsg = ''.$lt{'igna'}.'

    '; + my $nameshown = &Apache::loncommon::cleanup_html($groupname); + if (($groupname eq '') || ($groupname =~ /\W/)) { + return $exitmsg. + &mt("The $gpterm name entered '[_1]' is not a valid name.",$nameshown). + '
    '.$lt{'gnmo'}; + } elsif ($groupname eq 'syllabus') { + return $exitmsg. + &mt("The $gpterm name entered '[_1]' is reserved for use by LON-CAPA.",$nameshown); + } + if (exists($sectioncount{$groupname})) { + return $exitmsg. + &mt("The $gpterm name entered '[_1]' can not be used as it is the name of a section in this $crstype.",$nameshown). + '
    '.$lt{'grna'}; + } + if ($action eq 'create') { + if (exists($curr_groups{$groupname})) { + return $exitmsg. + &mt("The $gpterm name entered '[_1]' can not be used as it is the name of an existing $gpterm in this $crstype.",$nameshown). + '
    '.$lt{'grna'}; + } elsif (exists($deleted_groups{$groupname})) { + return $exitmsg. + &mt("The $gpterm name entered '[_1]' can not be used as it is the name of a $gpterm which previously existed in this $crstype.",$nameshown). + '
    '.$lt{'grna'}; + } + } elsif ($action eq 'modify') { + unless(exists($curr_groups{$groupname})) { + return &mt("$ucgpterm name: [_1] does not correspond to the name of an existing $gpterm in this $crstype.",$nameshown); + } + } + return; +} + +sub check_changes { + my ($member_changes,$memchg) = @_; + my %exclusions; + @{$exclusions{'changefunc'}} = ('expire'); + @{$exclusions{'changepriv'}} = ('expire','changefunc'); + + foreach my $change (@{$member_changes}) { + if ($change eq 'deletion') { + next; + } + my @checks = ('deletion'); + if (exists($exclusions{$change})) { + push(@checks,@{$exclusions{$change}}); + } + my @temp = (); + foreach my $item (@{$$memchg{$change}}) { + my $match = 0; + foreach my $check (@checks) { + if (defined($$memchg{$check})) { + if (ref(@{$$memchg{$check}}) eq 'ARRAY') { + if (@{$$memchg{$check}} > 0) { + if (grep/^$item$/,@{$$memchg{$check}}) { + $match = 1; + last; + } + } + } + } + } + if ($match) { + next; + } + push(@temp,$item); + } + @{$$memchg{$change}} = @temp; + } +} 1; +