[BACK]Return to loncoursegroups.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncoursegroups.pm between versions 1.5 and 1.45

version 1.5, 2006/02/18 01:27:07 version 1.45, 2006/07/07 20:31:09
Line 1 Line 1
   # The LearningOnline Network with CAPA
   #
   # $Id$
 #  #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
Line 30  use Apache::loncommon; Line 33  use Apache::loncommon;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonnavmaps;  use Apache::lonnavmaps;
   use Apache::longroup;
   use Apache::portfolio;
 use Apache::Constants qw(:common :http);  use Apache::Constants qw(:common :http);
   use lib '/home/httpd/lib/perl/';
   use LONCAPA;
   
 sub handler {  sub handler {
     my ($r) = @_;      my ($r) = @_;
   
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
                                                                                   
     if ($r->header_only) {      if ($r->header_only) {
         return OK;          return OK;
     }      }
Line 63  sub handler { Line 70  sub handler {
           &Apache::lonnet::allowed('mdg',$env{'request.course.id'});            &Apache::lonnet::allowed('mdg',$env{'request.course.id'});
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &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 = (      my %functions = (
                       email => 'E-mail',                        email => 'E-mail',
                       discussion => 'Discussion boards',                        discussion => 'Discussion boards',
                       chat => 'Chat',                        chat => 'Chat',
                       files => 'File repository',                        files => 'File repository',
                       roster => 'Membership roster',                        roster => 'Membership roster',
                       homepage => 'Group home page',                        homepage => $ucgpterm.' home page',
                     );                      );
   
     my %idx = ();      my %idx = ();
Line 77  sub handler { Line 89  sub handler {
     $idx{fullname} = &Apache::loncoursedata::CL_FULLNAME();      $idx{fullname} = &Apache::loncoursedata::CL_FULLNAME();
     $idx{udom} = &Apache::loncoursedata::CL_SDOM();      $idx{udom} = &Apache::loncoursedata::CL_SDOM();
     $idx{uname} = &Apache::loncoursedata::CL_SNAME();      $idx{uname} = &Apache::loncoursedata::CL_SNAME();
       $idx{section} = &Apache::loncoursedata::CL_SECTION();
   
     my $rowColor1 = "#dddddd";      my $rowColor1 = "#dddddd";
     my $rowColor2 = "#eeeeee";      my $rowColor2 = "#eeeeee";
   
     my $action = $env{'form.action'};      my $action = $env{'form.action'};
       my $state = $env{'form.state'};
       if ((!defined($action)) || ($action eq 'view')) {
           if (!defined($state)) {
               $state = 'view';
           }
       }
     if ($action eq 'create' || $action eq 'modify' || $action eq 'view') {       if ($action eq 'create' || $action eq 'modify' || $action eq 'view') { 
         if ($view_permission || $manage_permission) {          if ($view_permission || $manage_permission) {
             &group_administration($r,$action,$cdom,$cnum,$function,$tabcol,              &group_administration($r,$action,$state,$cdom,$cnum,
                                   \%functions,\%idx,$view_permission,                                    $tabcol,\%functions,\%idx,$view_permission,
                                   $manage_permission,$rowColor1,$rowColor2);                                    $manage_permission,$rowColor1,$rowColor2,
                                     $gpterm,$ucgpterm,$crstype);
         } else {          } else {
             $r->print('You do not have group administration '.              $r->print(&mt('You do not have [_1] administration '.
                       'privileges in this course');                            'privileges in this [_2]',$gpterm,lc($crstype)));
         }          }
     } else {      } else {
         &print_main_menu($r,$cdom,$cnum,$function,$tabcol,\%functions,\%idx,          &print_main_menu($r,$cdom,$cnum,\%functions,\%idx,$view_permission,
                          $view_permission,$manage_permission,$action,   $manage_permission,$action,$state,$gpterm,$ucgpterm,
                          $rowColor1,$rowColor2);   $crstype);
     }      }
     return OK;      return OK;
 }  }
   
 sub print_main_menu {  sub print_main_menu {
     my ($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,$view_permission,      my ($r,$cdom,$cnum,$functions,$idx,$view_permission,$manage_permission,
         $manage_permission,$action,$rowColor1,$rowColor2) = @_;   $action,$state,$gpterm,$ucgpterm,$crstype) = @_;
     $r->print(&header('Course Groups',&mt('LON-CAPA Course Groups'),      my $pagename = "$crstype $ucgpterm".'s';
               undef,undef,undef,undef,$function));      my $jscript = qq|
   function changeSort(caller) {
       document.$state.sortby.value = caller;
       document.$state.submit();
   }\n|;
       $r->print(&header($pagename,$jscript,$action,$state));
     &Apache::lonhtmlcommon::add_breadcrumb      &Apache::lonhtmlcommon::add_breadcrumb
         ({href=>"/adm/coursegroups",          ({href=>"/adm/coursegroups",
           text=>"Course Groups",});            text=>"$pagename"});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs      $r->print(&Apache::lonhtmlcommon::breadcrumbs($pagename));
               (undef,'Course Groups'));      &display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,
     &display_groups($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,      $manage_permission,$action,$state,$gpterm,$ucgpterm,
                     $view_permission,$manage_permission,$action,$rowColor1,      $crstype);
                     $rowColor2);  
     $r->print(&footer());      $r->print(&footer());
     return;      return;
 }  }
   
 sub display_groups {  sub display_groups {
     my ($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,$view_permission,      my ($r,$cdom,$cnum,$functions,$idx,$view_permission,
         $manage_permission,$action,$rowColor1,$rowColor2) = @_;          $manage_permission,$action,$state,$gpterm,$ucgpterm,$crstype) = @_;
     my %curr_groups = ();      my %curr_groups = ();
     my %grp_info = ();      my %grp_info = ();
   
     my %actionlinks = (      my %actionlinks = (
       modify => '<a href="/adm/coursegroups?action=modify&state=pick_task&refpage='.        modify => '<a href="/adm/coursegroups?action=modify&refpage='.
                 $env{'form.refpage'}.'&groupname=',                           $env{'form.refpage'}.'&groupname=',
       view => '<a href="/adm/'.$cdom.'/'.$cnum.'/',        view => '<a href="/adm/'.$cdom.'/'.$cnum.'/',
       delete => '<a href="/adm/coursegroups?action=delete&refpage='.        delete => '<a href="/adm/coursegroups?action=delete&refpage='.
                 $env{'form.refpage'}.'&groupname=',                           $env{'form.refpage'}.'&groupname=',
     );      );
     my %actiontext = &Apache::lonlocal::texthash(       my %lt = &Apache::lonlocal::texthash( 
                           modify => 'Modify',                            modify => 'Modify',
                           view => 'View',                            view   => 'View',
                           delete => 'Delete',                            delete => 'Delete',
                      );                              act    => 'Action',
     $r->print('<br /><br />');                            gname  => "$ucgpterm Name",
                             desc   => 'Description',
                             crea   => 'Creator',
                             crtd   => 'Created',
                             last   => 'Last Modified',
                             func   => 'Functionality',
                             quot   => 'Quota (Mb)',
                             memb   => 'Members',
                             file   => 'Files',
                             dibd   => 'Discussion Boards',
                             dius   => 'Disk Use (%)',
                             nogr   => 'No '.$gpterm.'s exist.',
                             crng   => 'Create a new '.$gpterm,
                             alth   => 'Although your current role has privileges'.
                                       ' to view any existing '.$gpterm.'s in this'.
                                       lc($crstype).', you do not have privileges'.
                                       'to create new '.$gpterm.'s.',
                        );
     if ($view_permission) {      if ($view_permission) {
         if (!defined($action)) {          if (!defined($action)) {
             $action = 'view';              $action = 'view';
         }          }
         my %curr_groups;          my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
         if (&Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum)) {          if (%curr_groups) {
             $r->print(&Apache::lonhtmlcommon::start_pick_box());              if ($manage_permission) {
                   $r->print('<br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');
               }
               $r->print('<br /><br />');
       $r->print(&Apache::loncommon::start_data_table().
         &Apache::loncommon::start_data_table_header_row());
         
             $r->print(<<"END");              $r->print(<<"END");
       <table border="0" cellpadding="4" cellspacing="1">          <th>$lt{'act'}</th>
        <tr bgcolor="$tabcol" align="center">          <th><a href="javascript:changeSort('groupname')">$lt{'gname'}</a></th>
         <td><b>Action</b></td>          <th><a href="javascript:changeSort('description')">$lt{'desc'}</a></th>
         <td><b><a href="javascript:changeSort('groupname')">Group Name</a></b></td>          <th><a href="javascript:changeSort('creator')">$lt{'crea'}</a></th>
         <td><b><a href="javascript:changeSort('description')">Description</a></b></td>          <th><a href="javascript:changeSort('creation')">$lt{'crtd'}</a></th>
         <td><b><a href="javascript:changeSort('creator')">Creator</a></b>          <th><a href="javascript:changeSort('modified')">$lt{'last'}</a></th>
         </td>          <th>$lt{'func'}</b></td>
         <td><b><a href="javascript:changeSort('creation')">Created</a></b>          <th><a href="javascript:changeSort('quota')">$lt{'quot'}</a></th>
         </td>          <th><a href="javascript:changeSort('totalmembers')">$lt{'memb'}</a></th>
         <td><b><a href="javascript:changeSort('modified')">Last Modified</a></b>          <th><a href="javascript:changeSort('totalfiles')">$lt{'file'}</a></th>
         </td>          <th><a href="javascript:changeSort('boards')">$lt{'dibd'}</a></th>
         <td><b>Functionality</b>          <th><a href="javascript:changeSort('diskuse')">$lt{'dius'}</a></th>
         </td>  
         <td><b><a href="javascript:changeSort('quota')">Quota (Mb)</a></b></td>  
         <td><b><a href="javascript:changeSort('totalmembers)">Members</a></b></td>  
         <td><b><a href="javascript:changeSort('totalfiles')">Files</a></b></td>  
         <td><b><a href="javascript:changeSort('boards')">Discussion boards</a></b></td>  
         <td><b><a href="javascript:changeSort('diskuse')">Disk use</a></b></td>  
        </tr>  
 END  END
       $r->print(&Apache::loncommon::end_data_table_header_row());
             my %Sortby = ();              my %Sortby = ();
             foreach my $group (sort(keys(%curr_groups))) {              foreach my $group (sort(keys(%curr_groups))) {
                 %{$grp_info{$group}} =                   %{$grp_info{$group}} = 
                                   &Apache::loncommon::get_group_settings(                                    &Apache::longroup::get_group_settings(
                                                          $curr_groups{$group});                                                           $curr_groups{$group});
                 my $members_result = &group_members($cdom,$cnum,$group,                  my $members_result = &group_members($cdom,$cnum,$group,
                                                     \%grp_info);                                                      \%grp_info);
                 my $files_result = &group_files($group,\%grp_info);                   my $port_path = '/userfiles/groups/'.$group.'/portfolio';
                   my $port_dir = &Apache::loncommon::propath($cdom,$cnum).$port_path;
                   my $totaldirs = 0;
                   my $totalfiles = 0;
                   &group_files($group,$port_dir,\$totalfiles,\$totaldirs);
                   $grp_info{$group}{'totalfiles'} = $totalfiles;
                   $grp_info{$group}{'totaldirs'} = $totaldirs;
                   my $diskuse = &Apache::lonnet::diskusage($cdom,$cnum,$port_dir);
                   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') {                  if ($env{'form.sortby'} eq 'groupname') {
                     push(@{$Sortby{$group}},$group);                      push(@{$Sortby{$group}},$group);
                 } elsif ($env{'form.sortby'} eq 'description') {                  } elsif ($env{'form.sortby'} eq 'description') {
                     push(@{$Sortby{$grp_info{$group}{'description'}}},                      push(@{$Sortby{$grp_info{$group}{'description'}}},$group);
                                                                      $group);  
                 } elsif ($env{'form.sortby'} eq 'creator') {                  } elsif ($env{'form.sortby'} eq 'creator') {
                     push(@{$Sortby{$grp_info{$group}{'creator'}}},$group);                      push(@{$Sortby{$grp_info{$group}{'creator'}}},$group);
                 } elsif ($env{'form.sortby'} eq 'creation') {                  } elsif ($env{'form.sortby'} eq 'creation') {
Line 197  END Line 252  END
                     push(@{$Sortby{$group}},$group);                      push(@{$Sortby{$group}},$group);
                 }                  }
             }              }
             my $rowNum = 0;  
             my $rowColor;  
             foreach my $key (sort(keys(%Sortby))) {              foreach my $key (sort(keys(%Sortby))) {
                 foreach my $group (@{$Sortby{$key}}) {                  foreach my $group (@{$Sortby{$key}}) {
                     if ($rowNum %2 == 1) {  
                         $rowColor = $rowColor1;  
                     } else {  
                         $rowColor = $rowColor2;  
                     }  
                     my $description =                       my $description = 
                    &Apache::lonnet::unescape($grp_info{$group}{'description'});   &unescape($grp_info{$group}{'description'});
                     my $creator = $grp_info{$group}{'creator'};                      my $creator = $grp_info{$group}{'creator'};
                     my $creation = $grp_info{$group}{'creation'};                      my $creation = $grp_info{$group}{'creation'};
                     my $modified = $grp_info{$group}{'modified'};                       my $modified = $grp_info{$group}{'modified'}; 
                     my $quota = $grp_info{$group}{'quota'};                      my $quota = $grp_info{$group}{'quota'};
                     my $totalmembers = $grp_info{$group}{'totalmembers'};                      my $totalmembers = $grp_info{$group}{'totalmembers'};
                     my $totalfiles = $grp_info{$group}{'totalfiles'};                      my $totalfiles = $grp_info{$group}{'totalfiles'};
                       my $totaldirs = $grp_info{$group}{'totaldirs'};
                     my $boards = $grp_info{$group}{'boards'};                      my $boards = $grp_info{$group}{'boards'};
                     my $diskuse = $grp_info{$group}{'diskuse'};                      my $diskuse = $grp_info{$group}{'diskuse'};
                     my $functionality;                      my $functionality;
                     foreach my $tool (sort(keys(%{$functions}))) {                      foreach my $tool (sort(keys(%{$functions}))) {
                         if (defined($grp_info{$group}{functions}{$tool})) {                          if ($grp_info{$group}{functions}{$tool} eq 'on') {
                             $functionality .= ' '.$tool;                              $functionality .= ' '.$tool;
                         }                          }
                     }                      }
                     if (!$functionality) {                      if (!$functionality) {
                         $functionality = 'None available';                          $functionality = &mt('None available');
                     }                      }
                     my $link = $actionlinks{$action};                      my $link = $actionlinks{$action};
                     if ($action eq 'modify' || $action eq 'delete') {                      if ($action eq 'modify' || $action eq 'delete') {
                         $link .= $group;                          $link .= $group;
                     } else {                      } else {
                         $link .= $group.'/grppg?register=1';                          $link .= $group.'/grppg';
                     }                      }
                     $link .= '">'.$actiontext{$action}.'</a>';                        $link .= '">'.$lt{$action}.'</a>';
                     $r->print('<tr bgcolor="'.$rowColor.'"><td><small>'.$link.'</small></td><td><small>'.$group.'</small></td><td><small>'.$description.'</small></td><td><small>'.$creator.'</small></td><td><small>'. &Apache::lonnavmaps::timeToHumanString($creation).'</small></td><td><small>'. &Apache::lonnavmaps::timeToHumanString($modified).'</small></td><td><small>'.$functionality.'</small></td><td><small>'.$quota.'</small></td><td><small>'.$totalmembers.'</small></td><td><small>'.$totalfiles.'</small></td><td><small>'.$boards.'</small></td><td><small>'.$diskuse.'</small></td></tr>');                      if ($action eq 'view') { 
                     $rowNum ++;                          if (($manage_permission) && 
                               ($env{'form.refpage'} ne 'enrl')) {
                               $link .= '&nbsp;&nbsp;'.$actionlinks{'modify'}.
                                         $group.'">'.$lt{'modify'}.'</a>';
                           }
                       }
                       $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense').
         '<td>'.$link.'</td>'.
         '<td>'.$group.'</td>'.
         '<td>'.$description.'</td>'.
         '<td>'.$creator.'</td>'.
         '<td>'. &Apache::lonnavmaps::timeToHumanString($creation).'</td>'.
         '<td>'. &Apache::lonnavmaps::timeToHumanString($modified).'</td>'.
         '<td>'.$functionality.'</td>'.
         '<td align="right">'.$quota.'</td>'.
         '<td align="right">'.$totalmembers.'</td>'.
         '<td align="right"><nobr>'.&mt('Files: ').$totalfiles.'</nobr><br /><nobr>'.&mt('Folders: ').$totaldirs.'</nobr></td>'.
         '<td align="right">'.$boards.'</td>'.
         '<td align="right">'.$diskuse.'</td>'.
         &Apache::loncommon::end_data_table_row());
                   }
               }
               $r->print(&Apache::loncommon::end_data_table());
               $r->print('<input type="hidden" name="refpage" '.
                         'value="'.$env{'form.refpage'}.'" />');
               if ($action eq 'view') {
                   if (!defined($state)) {
                       $state = 'view';
                 }                  }
                   $r->print('<input type="hidden" name="state" value="'.
                         $state.'" />');
             }              }
             $r->print('</table>');  
             $r->print(&Apache::lonhtmlcommon::end_pick_box());  
         } else {          } else {
             $r->print('No groups exist');              $r->print($lt{'nogr'});
               if ($manage_permission) {
                   $r->print('<br /><br /><a href="/adm/coursegroups?action=create&refpage='.$env{'form.refpage'}.'">'.$lt{'crng'}.'</a>');
               } else {
                   $r->print('<br /><br />'.$lt{'alth'});
   
               }
         }          }
     } else {      } else {
         my @coursegroups = split(/:/,$env{'request.course.groups'});          my @coursegroups = split(/:/,$env{'request.course.groups'});
         if (@coursegroups > 0) {          if (@coursegroups > 0) {
             my %curr_groups;              $r->print('<br /><br />');
             if (&Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum)) {              my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
               if (%curr_groups) {
                 foreach my $group (@coursegroups) {                  foreach my $group (@coursegroups) {
                     my %group_info =  &Apache::loncommon::get_group_settings(                      my %group_info =  &Apache::longroup::get_group_settings(
                                         $curr_groups{$group});                                          $curr_groups{$group});
                     my $description = &Apache::lonnet::unescape(                      my $description = &unescape(
                                         $group_info{description});                                          $group_info{description});
                     my ($uname,$udom) = split(/:/,$group_info{creator});                      my ($uname,$udom) = split(/:/,$group_info{creator});
                     $r->print('<font size="+1"><a href="/adm/'.$udom.'/'.$uname.'/'.$group.'/grppg?register=1">'.$group,'</a><font><br /><small>'.$description.'</small><br /><br />');                      $r->print('<font size="+1"><a href="/adm/'.$udom.'/'.$uname.'/'.$group.'/grppg">'.$group,'</a><font><br /><small>'.$description.'</small><br /><br />');
                 }                  }
             }              }
         } else {          } 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 [_1]s in this [_2]',$gpterm,
                             lc($crstype)));
         }          }
     }      }
     return;      return;
 }  }
   
 sub group_administration {  sub group_administration {
     my ($r,$action,$cdom,$cnum,$function,$tabcol,$functions,$idx,      my ($r,$action,$state,$cdom,$cnum,$tabcol,$functions,$idx,
         $view_permission,$manage_permission,$rowColor1,$rowColor2) = @_;          $view_permission,$manage_permission,$rowColor1,$rowColor2,$gpterm,
           $ucgpterm,$crstype) = @_;
     my %sectioncount = ();      my %sectioncount = ();
     my @tools = ();      my @tools = ();
     my @types = ();      my @types = ();
Line 276  sub group_administration { Line 362  sub group_administration {
     my %usertools = ();      my %usertools = ();
     my %stored = ();      my %stored = ();
     my %memchg;      my %memchg;
     my @member_changes = ('delete','expire','activate','reenable',      my @member_changes = ('deletion','expire','activate','reenable',
                           'changefunc','changepriv');                            'changefunc','changepriv');
     my $state = $env{'form.state'};      my ($groupname,$description,$startdate,$enddate,$granularity,$specificity,
     my ($groupname,$description,$startdate,$enddate,$granularity,$specificity);          $quota,$validate_script);
   
     if (defined($env{'form.groupname'})) {      if (defined($env{'form.groupname'})) {
         $groupname = $env{'form.groupname'};          $groupname = $env{'form.groupname'};
Line 303  sub group_administration { Line 389  sub group_administration {
         if (defined($env{'form.specificity'})) {          if (defined($env{'form.specificity'})) {
             $specificity=$env{'form.specificity'};              $specificity=$env{'form.specificity'};
         }          }
           if (defined($env{'form.quota'})) {
               $quota=$env{'form.quota'};
           }
     }      }
     if (($action eq 'create') || (($action eq 'modify')       if (($action eq 'create') || (($action eq 'modify') 
         && (($state eq 'pick_privs') || ($state eq 'addresult')))) {          && (($state eq 'pick_privs') || ($state eq 'addresult')))) {
Line 315  sub group_administration { Line 403  sub group_administration {
         }          }
     }      }
   
     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);  
             }  
         }  
         &check_changes(\@member_changes,\%memchg);  
         foreach my $change (@member_changes) {  
             if (($change eq 'delete') || ($change eq 'expire')) {  
                 next;  
             }   
             foreach my $user (@{$memchg{$change}}) {  
                 %{$usertools{$user}} = ();  
             }  
         }  
     }  
   
     if ($action eq 'modify') {      if ($action eq 'modify') {
         if ($state eq '') {          if ($state eq '') {
             $state = 'pick_group';              if (defined($env{'form.groupname'})) {
                   $state = 'pick_task';
               } else {
                   $state = 'pick_group';
               }
         } else {          } else {
             %stored = &retrieve_settings($cdom,$cnum,$groupname);              %stored = &retrieve_settings($cdom,$cnum,$groupname);
             if (ref($stored{'types'}) eq 'ARRAY') {              if (ref($stored{'types'}) eq 'ARRAY') {
Line 355  sub group_administration { Line 430  sub group_administration {
                 $description = $stored{'description'};                  $description = $stored{'description'};
                 $granularity = $stored{'granularity'};                  $granularity = $stored{'granularity'};
                 $specificity =  $stored{'specificity'};                  $specificity =  $stored{'specificity'};
                   $quota = $stored{'quota'};
             }              }
         }          }
     }      }
   
     my %toolprivs = ();      my $toolprivs = &Apache::longroup::get_tool_privs($gpterm);
     %{$toolprivs{'email'}} = (  
                                  sgm => 'Send group mail',      my $fixedprivs = &Apache::longroup::get_fixed_privs();
                                  sgb => 'Broadcast mail',  
                              );      my %elements = 
     %{$toolprivs{'discussion'}} =  (   (
                                      cgb => 'Create boards',   create => {
                                      pgd => 'Post',       pick_name => {
                                      pag => 'Anon. posts',   startdate_month  => 'selectbox',
                                      rgi => 'Get identities',    startdate_hour   => 'selectbox',
                                      vgb => 'View boards',   enddate_month    => 'selectbox',
                                    );   enddate_hour     => 'selectbox',
     %{$toolprivs{'chat'}} =  (   startdate_day    => 'text',
                                 pgc => 'Chat',   startdate_year   => 'text',
                              );   startdate_minute => 'text',
     %{$toolprivs{'files'}} =  (   startdate_second => 'text',
                                  rgf => 'Retrieve',   enddate_day      => 'text',
                                  ugf => 'Upload',   enddate_year     => 'text',
                                  dgf => 'Delete',   enddate_minute   => 'text',
                               );   enddate_second   => 'text',
     %{$toolprivs{'roster'}} = (   groupname        => 'text',
                                  vgm => 'View',   description      => 'text',
                               );                   quota            => 'text',
     %{$toolprivs{'homepage'}} = (   tool             => 'checkbox',
                                 vgh => 'View page',   granularity      => 'radio',
                                 mgh => 'Modify page',   no_end_date      => 'checkbox',
                               );       },
     my %fixedprivs = ();       pick_members => {
     %{$fixedprivs{'email'}} = ('sgm' => 1);   member          => 'checkbox',
     %{$fixedprivs{'discussion'}} = ('vgb' => 1);   defpriv         => 'checkbox',
     %{$fixedprivs{'chat'}} = ('pgc' => 1);       },
     %{$fixedprivs{'files'}} = ('rgf' => 1);   },
     %{$fixedprivs{'roster'}} = ('vgm' => 1);   );
     %{$fixedprivs{'homepage'}} = ('vgh' => 1);      
       $elements{'modify'} = {
     my %elements = ();   change_settings => {
     %{$elements{'create'}} = ();      %{$elements{'create'}{'pick_name'}},
     %{$elements{'modify'}} = ();      specificity => 'radio',
     %{$elements{'create'}{'pick_name'}} = (      defpriv     => 'checkbox',
         startdate_month => 'selectbox',      autorole    => 'checkbox',
         startdate_hour => 'selectbox',      autoadd     => 'radio',
         enddate_month => 'selectbox',      autodrop    => 'radio',
         enddate_hour => 'selectbox',   },
         startdate_day => 'text',   add_members => {
         startdate_year => 'text',      types       => 'selectbox',
         startdate_minute => 'text',      roles       => 'selectbox',
         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{'modify'}{'change_settings'}} = (  
                                    %{$elements{'create'}{'pick_name'}},  
                                                 specificity => 'radio',  
                                                 defpriv => 'checkbox',  
                                                 autorole => 'checkbox',  
                                                 autoadd => 'radio',  
                                                 autodrop => 'radio',  
                                    );  
     if (ref($stored{'autorole'}) eq 'ARRAY') {      if (ref($stored{'autorole'}) eq 'ARRAY') {
         foreach my $role (@{$stored{'autorole'}}) {          foreach my $role (@{$stored{'autorole'}}) {
             $elements{'modify'}{'change_settings'}{'sec_'.$role} = 'selectbox';               unless ($role eq 'cc') {
                   $elements{'modify'}{'change_settings'}{'sec_'.$role} = 
                                                                      'selectbox';
               }
         }          }
     }      }
     %{$elements{'create'}{'pick_members'}} = (  
         member => 'checkbox',  
         defpriv => 'checkbox',  
     );  
   
     %{$elements{'modify'}{'add_members'}} = (  
         types => 'selectbox',  
         roles => 'selectbox',  
     );  
   
     if (($action eq 'create') && ($state eq 'pick_name')) {      if (($action eq 'create') && ($state eq 'pick_name')) {
         $elements{'create'}{'pick_name'}{'types'} = 'selectbox';          $elements{'create'}{'pick_name'}{'types'} = 'selectbox';
Line 447  sub group_administration { Line 501  sub group_administration {
         (($state eq 'pick_name') || ($state eq 'pick_privs'))) ||          (($state eq 'pick_name') || ($state eq 'pick_privs'))) ||
        (($action eq 'modify') && (($state eq 'change_settings') ||         (($action eq 'modify') && (($state eq 'change_settings') ||
                                   ($state eq 'add_members')))) {                                    ($state eq 'add_members')))) {
         my $numsections = &Apache::loncommon::get_sections($cdom,$cnum,          %sectioncount = &Apache::loncommon::get_sections($cdom,$cnum);
                                                            \%sectioncount);          if (%sectioncount) {
         if ($numsections > 0) {  
             $elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox';              $elements{'create'}{'pick_name'}{'sectionpick'} = 'selectbox';
             $elements{'modify'}{'change_mapping'}{'sectionpick'} = 'selectbox';              $elements{'modify'}{'change_mapping'}{'sectionpick'} = 'selectbox';
             $elements{'modify'}{'add_members'}{'sectionpick'} = 'selectbox';              $elements{'modify'}{'add_members'}{'sectionpick'} = 'selectbox';
         }          }
     }      }
   
     if ($action eq 'create') {      if (($action eq 'create') || 
           ($action eq 'modify' && $state eq 'pick_members')) {
         if (defined($env{'form.types'})) {          if (defined($env{'form.types'})) {
             @types=&Apache::loncommon::get_env_multiple('form.types');              @types=&Apache::loncommon::get_env_multiple('form.types');
         }          }
Line 465  sub group_administration { Line 519  sub group_administration {
         }          }
         if (defined($env{'form.sectionpick'})) {          if (defined($env{'form.sectionpick'})) {
             @sections=&Apache::loncommon::get_env_multiple('form.sectionpick');              @sections=&Apache::loncommon::get_env_multiple('form.sectionpick');
             if (grep/^_all$/,@sections) {              if (grep/^all$/,@sections) {
                 @sections = sort {$a cmp $b} keys(%sectioncount);                  @sections = sort {$a cmp $b} keys(%sectioncount);
             }              }
         }          }
     }      }
   
     if (($state eq 'pick_members') || ($state eq 'pick_privs')) {      if (($state eq 'pick_members') || ($state eq 'pick_privs') || ($state eq 'change_privs')) {
         &build_members_list($cdom,$cnum,\@types,\@roles,          &build_members_list($cdom,$cnum,\@types,\@roles,\@sections,\%users,
                             \@sections,\%users,\%userdata);                              \%userdata);
       }
       if ($state eq 'pick_members') {
         if ((keys(%users) > 0) && (@tools > 0)) {          if ((keys(%users) > 0) && (@tools > 0)) {
               if ($granularity eq 'Yes') {
                   $elements{$action}{'pick_members'}{'togglefunc'} = 'checkbox';
               }
             foreach my $tool (@tools) {              foreach my $tool (@tools) {
                 if ($granularity eq 'Yes') {                  if ($granularity eq 'Yes') {
                     $elements{$action}{'pick_members'}{'user_'.$tool} = 'checkbox';                      $elements{$action}{'pick_members'}{'user_'.$tool} = 'checkbox';
Line 483  sub group_administration { Line 542  sub group_administration {
             $elements{$action}{'pick_members'}{'specificity'} = 'radio';              $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 = 1;
                           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 ($granularity eq 'Yes') {
                       $elements{$action}{'change_members'}{'user_'.$tool} = 'checkbox';
                   }
               }
               if ($specificity eq 'Yes') {
                   $elements{$action}{'change_members'}{'changepriv'} = 'checkbox';
               }
           }
       }
   
     if (($state eq 'pick_privs') || ($state eq 'change_privs') ||      if (($state eq 'pick_privs') || ($state eq 'change_privs') ||
         (($specificity eq 'No') &&            (($specificity eq 'No') && 
          (($state eq 'result') || ($state eq 'memresult')))) {            ($state eq 'memresult' || $state eq 'result' || $state eq 'addresult'))) { 
         foreach my $tool (@tools) {          foreach my $tool (@tools) {
             my @values = &Apache::loncommon::get_env_multiple('form.user_'.$tool);              my @values = &Apache::loncommon::get_env_multiple('form.user_'.$tool);
             foreach my $user (@values) {              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})) {                  unless(exists($usertools{$user}{$tool})) {
                     $usertools{$user}{$tool} = 1;                      $usertools{$user}{$tool} = 1;
                 }                  }
             }              }
         }          }
         if ((($state eq 'pick_privs') || ($state eq 'change_privs'))      }
             && ($specificity eq 'Yes')) {  
             foreach my $user (sort(keys(%usertools))) {      if (($action eq 'modify') && (($state eq 'change_privs') || ($state eq 'memresult'))) {
                 foreach my $tool (keys(%{$usertools{$user}})) {          foreach my $chg (@member_changes) {
                     foreach my $priv (keys(%{$toolprivs{$tool}})) {              if (defined($env{'form.'.$chg})) {
                         unless (exists($fixedprivs{$tool}{$priv})) {                  @{$memchg{$chg}} = &Apache::loncommon::get_env_multiple('form.'.$chg);
                             $elements{$action}{$state}{'userpriv_'.$priv} = 'checkbox';              }
           }
                                                                                 
           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}} = ();
                         }                          }
                     }                      }
                 }                  }
             }              }
         }          }
     }      }
    
       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 = document.'.$state.'.quota.value;
       newquota.replace('.$space_trim.');
       if (newquota == "" ) {
           document.'.$state.'.quota.value = 0;
           newquota = 0;       
       }
       var maxposs = '.$maxposs.';
       if (newquota > maxposs) {
           alert("The file repository 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; i<document.'.$state.'.tool.length; i++) {
               if (document.'.$state.'.tool[i].value == "files") {
                   if (document.'.$state.'.tool[i].checked) {
                       warn_zero = 1;
                   }
               }
           }
           if (warn_zero == 1) {
               alert("You have indicated that the file repository should be enabled, but you have set the respository quota to 0 Mb.\nThis will prevent any upload of files.\nPlease set a value or disable the repository feature.");
               return;
           }
       } 
   ';
       }
     my $jscript = &Apache::loncommon::check_uncheck_jscript();      my $jscript = &Apache::loncommon::check_uncheck_jscript();
     $jscript .= qq|      $jscript .= qq|
 function nextPage(formname,nextstate) {  function nextPage(formname,nextstate) {
     formname.state.value= nextstate;      formname.state.value= nextstate;
       $validate_script
     formname.submit();      formname.submit();
 }  }
 function backPage(formname,prevstate) {  function backPage(formname,prevstate) {
     formname.state.value = prevstate;      formname.state.value = prevstate;
     formname.submit();      formname.submit();
 }  }
                                                                                         function changeSort(caller) {
       document.$state.state.value = '$state';
       document.$state.sortby.value = caller;
       document.$state.submit();
   } 
   
 |;  |;
     $jscript .= &Apache::lonhtmlcommon::set_form_elements(      $jscript .= &Apache::lonhtmlcommon::set_form_elements(
                            \%{$elements{$action}{$state}},\%stored);                             \%{$elements{$action}{$state}},\%stored);
Line 533  function backPage(formname,prevstate) { Line 794  function backPage(formname,prevstate) {
     @{$branchstates{'members'}} = ('change_members','change_privs','memresult');      @{$branchstates{'members'}} = ('change_members','change_privs','memresult');
     @{$branchstates{'adds'}} = ('add_members','pick_members','pick_privs',      @{$branchstates{'adds'}} = ('add_members','pick_members','pick_privs',
                                 'addresult');                                  'addresult');
       
     if (defined($env{'form.branch'})) {      if (defined($env{'form.branch'})) {
         push (@{$states{$action}},@{$branchstates{$env{'form.branch'}}});          push (@{$states{$action}},@{$branchstates{$env{'form.branch'}}});
     }      }
Line 551  function backPage(formname,prevstate) { Line 812  function backPage(formname,prevstate) {
     }      }
   
     my $loaditems =  &onload_action($action,$state);      my $loaditems =  &onload_action($action,$state);
     $r->print(&header('Course Groups Manager',&mt('LON-CAPA Groups Manager'),      my $crumbtitle = "$crstype $ucgpterm".'s'; 
                           $jscript,$action,$state,$page,$function,$loaditems));      $r->print(&header("$crumbtitle Manager",
         $jscript,$action,$state,$page,$loaditems));
   
     if ($env{'form.refpage'} eq 'enrl') {      if ($env{'form.refpage'} eq 'enrl') {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
Line 562  function backPage(formname,prevstate) { Line 824  function backPage(formname,prevstate) {
     } else {      } else {
         &Apache::lonhtmlcommon::add_breadcrumb          &Apache::lonhtmlcommon::add_breadcrumb
        ({href=>"/adm/coursegroups",         ({href=>"/adm/coursegroups",
           text=>"Course Groups",            text=>"$crumbtitle",
           faq=>9,bug=>'Instructor Interface',});            faq=>9,bug=>'Instructor Interface',});
     }      }
   
     my %trail = ();      my %trail = ();
     %{$trail{'create'}} = &Apache::lonlocal::texthash (      %{$trail{'create'}} = &Apache::lonlocal::texthash (
                             pick_name => 'Group Settings',                              pick_name => $ucgpterm.' Settings',
                             pick_members => 'Select Members',                              pick_members => 'Select Members',
                             pick_privs => 'Choose Privileges',                              pick_privs => 'Choose Privileges',
                             result => 'Creation Complete',                              result => 'Creation Complete',
                           );                            );
     %{$trail{'modify'}} = &Apache::lonlocal::texthash(      %{$trail{'modify'}} = &Apache::lonlocal::texthash(
                             pick_group => 'Groups',                              pick_group => $ucgpterm.'s',
                             pick_task => 'Choose Task',                              pick_task => 'Choose Task',
                             change_settings => 'Group Settings',                              change_settings => "$ucgpterm Settings",
                             change_members => 'Modify/Delete Members',                              change_members => 'Modify/Delete Members',
                             change_privs => 'Change Privileges',                              change_privs => 'Change Privileges',
                             change_mapping => 'Membership Mapping',                              change_mapping => 'Membership Mapping',
Line 590  function backPage(formname,prevstate) { Line 852  function backPage(formname,prevstate) {
     my %navbuttons = &Apache::lonlocal::texthash(      my %navbuttons = &Apache::lonlocal::texthash(
                              gtns => 'Go to next step',                               gtns => 'Go to next step',
                              gtps => 'Go to previous step',                               gtps => 'Go to previous step',
                              crgr => 'Create group',                               crgr => 'Create '.$gpterm,
                              mose => 'Modify settings',                               mose => 'Modify settings',
                              gtpp => 'Go to previous page',                               gtpp => 'Go to previous page',
                              adme => 'Add members',                               adme => 'Add members',
Line 602  function backPage(formname,prevstate) { Line 864  function backPage(formname,prevstate) {
                 &Apache::lonhtmlcommon::add_breadcrumb(                  &Apache::lonhtmlcommon::add_breadcrumb(
                    {text=>"$trail{$action}{$state}"});                     {text=>"$trail{$action}{$state}"});
                 $r->print(&Apache::lonhtmlcommon::breadcrumbs                  $r->print(&Apache::lonhtmlcommon::breadcrumbs
                      (undef,'Course Groups Manager'));    ("$crumbtitle Manager"));
                 &display_control($r,$cdom,$cnum,$tabcol,$action,$state,$page,                  &display_control($r,$cdom,$cnum,$tabcol,$action,$state,$page,
                        \%sectioncount,$groupname,$description,$functions,                         \%sectioncount,$groupname,$description,$functions,
                        \@tools,\%toolprivs,\%fixedprivs,$startdate,$enddate,                         \@tools,$toolprivs,$fixedprivs,$startdate,$enddate,
                        \%users,\%userdata,$idx,\%memchg,\%usertools,                         \%users,\%userdata,$idx,\%memchg,\%usertools,
                        $function,$view_permission,$manage_permission,                         $view_permission,$manage_permission,
                        \%stored,$granularity,$specificity,\@types,\@roles,                         \%stored,$granularity,$quota,$specificity,\@types,\@roles,
                        \@sections,\%states,\%navbuttons,$rowColor1,$rowColor2);                         \@sections,\%states,\%navbuttons,$rowColor1,$rowColor2,
                          $gpterm,$ucgpterm,$crstype);
                 last;                  last;
             } else {              } else {
                 if (($state  =~ /^\w+result$/) && ($i > 0)) {                  if (($state eq 'result') && ($i > 0)) {
                     &Apache::lonhtmlcommon::add_breadcrumb(                      &Apache::lonhtmlcommon::add_breadcrumb(
     {href=>"javascript:backPage(document.$state,'$states{$action}[0]')",      {href=>"javascript:backPage(document.$state,'$states{$action}[0]')",
       text=>"$trail{$action}{$states{$action}[$i]}"});        text=>"$trail{$action}{$states{$action}[$i]}"});
Line 625  function backPage(formname,prevstate) { Line 888  function backPage(formname,prevstate) {
         }          }
     } elsif (($action eq 'view') && ($view_permission)) {      } elsif (($action eq 'view') && ($view_permission)) {
                         &Apache::lonhtmlcommon::add_breadcrumb(                          &Apache::lonhtmlcommon::add_breadcrumb(
                    {text=>"View groups"});                     {text=>"View $gpterm".'s'});
           my $crumbtitle = "$crstype $ucgpterm".'s Manager';
         $r->print(&Apache::lonhtmlcommon::breadcrumbs          $r->print(&Apache::lonhtmlcommon::breadcrumbs
                      (undef,'Course Groups Manager'));    (&mt($crumbtitle)));
         &display_groups($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,          &display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,
                         $view_permission,$manage_permission,$action,   $manage_permission,$action,$state,$gpterm,$ucgpterm,
                         $rowColor1,$rowColor2);   $crstype);
   
     }      }
     $r->print(&footer());      $r->print(&footer());
Line 639  function backPage(formname,prevstate) { Line 903  function backPage(formname,prevstate) {
   
 sub retrieve_settings {  sub retrieve_settings {
     my ($cdom,$cnum,$groupname) = @_;      my ($cdom,$cnum,$groupname) = @_;
     my %groupinfo;      my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$groupname);
   
       return if (!%curr_groups);
   
       my %groupinfo = 
    &Apache::longroup::get_group_settings($curr_groups{$groupname});
   
     my %stored;      my %stored;
     my %curr_groups;  
     my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,      $stored{'description'} = 
                                                              $cnum,$groupname);   &unescape($groupinfo{'description'});
     if ($numgroups > 0) {      $stored{'startdate'} = $groupinfo{'startdate'};
         %groupinfo = &Apache::loncommon::get_group_settings(      $stored{'enddate'} = $groupinfo{'enddate'};
                                                      $curr_groups{$groupname});      if ($stored{'enddate'} == 0) {
         $stored{'description'} = &Apache::lonnet::unescape(   $stored{'no_end_date'} = 1;
                                                     $groupinfo{'description'});      }
         $stored{'startdate'} = $groupinfo{'startdate'};      $stored{'granularity'} = $groupinfo{'granularity'};
         $stored{'enddate'} = $groupinfo{'enddate'};      $stored{'specificity'} = $groupinfo{'specificity'};
         if ($stored{'enddate'} == 0) {      $stored{'creation'} = $groupinfo{'creation'};
             $stored{'no_end_date'} = 1;      $stored{'creator'} = $groupinfo{'creator'};
         }      $stored{'quota'} = $groupinfo{'quota'};
         $stored{'granularity'} = $groupinfo{'granularity'};  
         $stored{'specificity'} = $groupinfo{'specificity'};      foreach my $tool (sort(keys(%{$groupinfo{'functions'}}))) {
         $stored{'creation'} = $groupinfo{'creation'};   if ($groupinfo{functions}{$tool} eq 'on') {
         $stored{'creator'} = $groupinfo{'creator'};      push(@{$stored{tool}},$tool);
    }
         foreach my $tool (sort(keys(%{$groupinfo{'functions'}}))) {      }
             if ($groupinfo{functions}{$tool} eq 'on') {      foreach my $role (@{$groupinfo{'roles'}}) {
                 push(@{$stored{tool}},$tool);   push(@{$stored{roles}},$role);
             }      }
         }      foreach my $type (@{$groupinfo{'types'}}) {
         foreach my $role (@{$groupinfo{'roles'}}) {   push(@{$stored{types}},$type);
             push(@{$stored{roles}},$role);      }
         }      foreach my $section (@{$groupinfo{'sectionpick'}}) {
         foreach my $type (@{$groupinfo{'types'}}) {   push(@{$stored{sectionpick}},$section);
             push(@{$stored{types}},$type);      }
         }      foreach my $defpriv (@{$groupinfo{'defpriv'}}) {
         foreach my $section (@{$groupinfo{'sectionpick'}}) {   push(@{$stored{defpriv}},$defpriv);
             push(@{$stored{sectionpick}},$section);      }
         }      $stored{'autoadd'} = $groupinfo{'autoadd'};
         foreach my $defpriv (@{$groupinfo{'defpriv'}}) {      $stored{'autodrop'} = $groupinfo{'autodrop'};
             push(@{$stored{defpriv}},$defpriv);      if (exists($groupinfo{'autosec'})) {
         }   foreach my $role (sort(keys(%{$groupinfo{'autosec'}}))) {
         $stored{'autoadd'} = $groupinfo{'autoadd'};              if (ref($groupinfo{'autosec'}{$role}) eq 'ARRAY') {
         $stored{'autodrop'} = $groupinfo{'autodrop'};          foreach my $section (@{$groupinfo{'autosec'}{$role}}) {
         if (exists($groupinfo{'autosec'})) {              push (@{$stored{'sec_'.$role}},$section);
             foreach my $role (sort(keys(%{$groupinfo{'autosec'}}))) {          }
                 foreach my $section (@{$groupinfo{'autosec'}{$role}}) {          if (@{$groupinfo{'autosec'}{$role}} > 0) {
                     push (@{$stored{'sec_'.$role}},$section);      push(@{$stored{'autorole'}},$role);
                 }          }
                 if (@{$groupinfo{'autosec'}{$role}} > 0) {  
                     push(@{$stored{'autorole'}},$role);  
                 }  
             }              }
         }   }
     }      }
     return %stored;      return %stored;
 }  }
Line 695  sub retrieve_settings { Line 962  sub retrieve_settings {
 sub display_control {  sub display_control {
     my ($r,$cdom,$cnum,$tabcol,$action,$state,$page,$sectioncount,$groupname,      my ($r,$cdom,$cnum,$tabcol,$action,$state,$page,$sectioncount,$groupname,
         $description,$functions,$tools,$toolprivs,$fixedprivs,$startdate,          $description,$functions,$tools,$toolprivs,$fixedprivs,$startdate,
         $enddate,$users,$userdata,$idx,$memchg,$usertools,$function,          $enddate,$users,$userdata,$idx,$memchg,$usertools,
         $view_permission,$manage_permission,$stored,$granularity,$specificity,          $view_permission,$manage_permission,$stored,$granularity,$quota,
         $types,$roles,$sections,$states,$navbuttons,$rowColor1,$rowColor2)=@_;          $specificity,$types,$roles,$sections,$states,$navbuttons,$rowColor1,
           $rowColor2,$gpterm,$ucgpterm,$crstype) = @_;
     if ($action eq 'create') {      if ($action eq 'create') {
         if ($state eq 'pick_name') {          if ($state eq 'pick_name') {
             &general_settings_form($r,$cdom,$cnum,$action,$tabcol,$state,$page,              &general_settings_form($r,$cdom,$cnum,$action,$tabcol,$state,$page,
                                    $functions,$tools,$toolprivs,$fixedprivs,                                     $functions,$tools,$toolprivs,$fixedprivs,
                                    $sectioncount,$stored,$states,$navbuttons,                                     $sectioncount,$stored,$states,$navbuttons,
                                    $rowColor1,$rowColor2);                                     $rowColor1,$rowColor2,$gpterm,$ucgpterm,
                                      $crstype);
         } elsif ($state eq 'pick_members') {          } elsif ($state eq 'pick_members') {
             &choose_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &choose_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,
                                  $groupname,$description,$granularity,                                   $groupname,$description,$granularity,$quota,
                                  $startdate,$enddate,$tools,$fixedprivs,                                   $startdate,$enddate,$tools,$fixedprivs,
                                  $toolprivs,$functions,$users,$userdata,$idx,                                   $toolprivs,$functions,$users,$userdata,$idx,
                                  $stored,$states,$navbuttons,$rowColor1,                                   $stored,$states,$navbuttons,$rowColor1,
                                  $rowColor2);                                   $rowColor2,$gpterm,$ucgpterm,$crstype);
         } elsif ($state eq 'pick_privs') {          } elsif ($state eq 'pick_privs') {
             &choose_privs_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &choose_privs_form($r,$cdom,$cnum,$action,$state,$page,
                                $startdate,$enddate,$tools,$functions,                                 $startdate,$enddate,$tools,$functions,
                                $toolprivs,$fixedprivs,$userdata,$usertools,                                 $toolprivs,$fixedprivs,$userdata,$usertools,
                                $idx,$states,$stored,$sectioncount,$navbuttons,                                 $idx,$states,$stored,$sectioncount,$navbuttons,
                                $rowColor1,$rowColor2);                                 $gpterm,$ucgpterm,$crstype);
         } elsif ($state eq 'result') {          } elsif ($state eq 'result') {
             &process_request($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &process_request($r,$cdom,$cnum,$action,$state,$page,
                              $groupname,$description,$specificity,$userdata,                               $groupname,$description,$specificity,$userdata,
                              $startdate,$enddate,$tools,$functions,                               $startdate,$enddate,$tools,$functions,
                              $toolprivs,$usertools,$idx,$types,$roles,                               $toolprivs,$usertools,$idx,$types,$roles,
                              $sections,$states,$navbuttons,$memchg,                               $sections,$states,$navbuttons,$memchg,
                              $sectioncount,$stored,$rowColor1,$rowColor2);                               $sectioncount,$stored,$gpterm,$ucgpterm,$crstype);
         }          }
     } elsif ($action eq 'modify') {      } elsif ($action eq 'modify') {
         my $groupname = $env{'form.groupname'};          my $groupname = $env{'form.groupname'};
         if ($state eq 'pick_group') {          if ($state eq 'pick_group') {
             &display_groups($r,$cdom,$cnum,$function,$tabcol,$functions,$idx,              &display_groups($r,$cdom,$cnum,$functions,$idx,$view_permission,
                             $view_permission,$manage_permission,$action,      $manage_permission,$action,$state,$gpterm,
                             $rowColor1,$rowColor2);      $ucgpterm,$crstype);
         } elsif ($state eq 'pick_task') {          } elsif ($state eq 'pick_task') {
             &modify_menu($r,$groupname,$page);              &modify_menu($r,$groupname,$page,$gpterm);
         } elsif ($state eq 'change_settings') {          } elsif ($state eq 'change_settings') {
             &general_settings_form($r,$cdom,$cnum,$action,$tabcol,$state,$page,              &general_settings_form($r,$cdom,$cnum,$action,$tabcol,$state,$page,
                                    $functions,$tools,$toolprivs,$fixedprivs,                                     $functions,$tools,$toolprivs,$fixedprivs,
                                    $sectioncount,$stored,$states,$navbuttons,                                     $sectioncount,$stored,$states,$navbuttons,
                                    $rowColor1,$rowColor2);                                     $rowColor1,$rowColor2,$gpterm,$ucgpterm,
                                      $crstype);
         } elsif ($state eq 'change_members') {          } elsif ($state eq 'change_members') {
             &change_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &change_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,
                                  $groupname,$description,$startdate,$enddate,                                   $groupname,$description,$startdate,$enddate,
                                  $tools,$fixedprivs,$functions,$users,                                   $tools,$fixedprivs,$functions,$users,
                                  $userdata,$granularity,$specificity,$idx,                                   $userdata,$granularity,$quota,$specificity,
                                  $states,$navbuttons,$rowColor1,$rowColor2);                                   $idx,$states,$navbuttons,$rowColor1,$rowColor2,
                                    $gpterm,$ucgpterm);
         } elsif ($state eq 'add_members') {          } elsif ($state eq 'add_members') {
             &add_members_form($r,$tabcol,$action,$state,$page,$startdate,              &add_members_form($r,$tabcol,$action,$state,$page,$startdate,
                               $enddate,$groupname,$description,$granularity,                                $enddate,$groupname,$description,$granularity,
                               $sectioncount,$tools,$functions,$stored,$states,                                $quota,$sectioncount,$tools,$functions,$stored,
                               $navbuttons,$rowColor1,$rowColor2);                                $states,$navbuttons,$rowColor1,$rowColor2,$gpterm,
                                 $ucgpterm);
         } elsif ($state eq 'pick_members') {          } elsif ($state eq 'pick_members') {
             &choose_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &choose_members_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,
                                  $groupname,$description,$granularity,                                   $groupname,$description,$granularity,$quota,
                                  $startdate,$enddate,$tools,$fixedprivs,                                   $startdate,$enddate,$tools,$fixedprivs,
                                  $toolprivs,$functions,$users,$userdata,$idx,                                   $toolprivs,$functions,$users,$userdata,$idx,
                                  $stored,$states,$navbuttons,$rowColor1,                                   $stored,$states,$navbuttons,$rowColor1,
                                  $rowColor2);                                   $rowColor2,$gpterm,$ucgpterm,$crstype);
         } elsif ($state eq 'pick_privs') {          } elsif ($state eq 'pick_privs') {
             &choose_privs_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &choose_privs_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,
                                $startdate,$enddate,$tools,$functions,                                 $startdate,$enddate,$tools,$functions,
                                $toolprivs,$fixedprivs,$userdata,$usertools,                                 $toolprivs,$fixedprivs,$userdata,$usertools,
                                $idx,$states,$stored,$sectioncount,$navbuttons,                                 $idx,$states,$stored,$sectioncount,$navbuttons,
                                $rowColor1,$rowColor2);                                 $rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype);
         } elsif ($state eq 'change_privs') {          } elsif ($state eq 'change_privs') {
             &change_privs_form($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &change_privs_form($r,$cdom,$cnum,$action,$state,$page,
                                $startdate,$enddate,$tools,$functions,                                 $startdate,$enddate,$tools,$functions,
                                $toolprivs,$fixedprivs,$userdata,$usertools,                                 $toolprivs,$fixedprivs,$userdata,$usertools,
                                $memchg,$idx,$states,$stored,$sectioncount,                                 $memchg,$idx,$states,$stored,$sectioncount,
                                $navbuttons,$rowColor1,$rowColor2) = @_;                                 $navbuttons,$gpterm,$ucgpterm);
         } elsif ($state eq 'chgresult' || $state eq 'memresult' ||           } elsif ($state eq 'chgresult' || $state eq 'memresult' || 
                  $state eq 'addresult') {                   $state eq 'addresult') {
             &process_request($r,$cdom,$cnum,$tabcol,$action,$state,$page,              &process_request($r,$cdom,$cnum,$action,$state,$page,
                              $groupname,$description,$specificity,$userdata,                               $groupname,$description,$specificity,$userdata,
                              $startdate,$enddate,$tools,$functions,                               $startdate,$enddate,$tools,$functions,
                              $toolprivs,$usertools,$idx,$types,$roles,                               $toolprivs,$usertools,$idx,$types,$roles,
                              $sections,$states,$navbuttons,$memchg,                               $sections,$states,$navbuttons,$memchg,
                              $sectioncount,$stored,$rowColor1,$rowColor2);                               $sectioncount,$stored,$gpterm,$ucgpterm,$crstype);
         }          }
     }      }
 }  }
   
 sub header {  sub header {
     my ($bodytitle,$title,$jscript,$action,$state,$page,$function,$loaditems) = @_;      my ($bodytitle,$jscript,$action,$state,$page,$loaditems) = @_;
     my $html=&Apache::lonxml::xmlbegin();      my $start_page=
     my $bodytag=&Apache::loncommon::bodytag($bodytitle,$function,$loaditems);   &Apache::loncommon::start_page($bodytitle,
          '<script type="text/javascript">'.
          $jscript.'</script>',
          {'add_entries' => $loaditems,});
     my $output = <<"END";      my $output = <<"END";
 $html  $start_page
 <head>  <form method="POST" name="$state">
 <title>$title</title>  
 <script type="text/javascript">  
 $jscript  
 </script>  
 </head>  
 $bodytag  
 <form method="post" name="$state">  
   
 END  END
     if ($action eq 'create' || $action eq 'modify') {      if ($action eq 'create' || $action eq 'modify') {
Line 809  END Line 1077  END
   
 sub onload_action {  sub onload_action {
     my ($action,$state) = @_;      my ($action,$state) = @_;
     my $loaditems;      my %loaditems;
     if ((defined($env{'form.origin'})) && ($action eq 'create') &&      if ((defined($env{'form.origin'})) && ($action eq 'create') &&
                 ($state eq 'pick_name' || $state eq 'pick_members' ||                   ($state eq 'pick_name' || $state eq 'pick_members' || 
                  $state eq 'pick_privs')) {                   $state eq 'pick_privs')) {
         unless ($env{'form.origin'} eq '') {          unless ($env{'form.origin'} eq '') {
             $loaditems =       $loaditems{'onload'} = 
              'onload="javascript:setFormElements(document.'.$state.')"';   'javascript:setFormElements(document.'.$state.')';
         }          }
     }      }
     if (($action eq 'modify') &&      if (($action eq 'modify') &&
                 ($state eq 'change_settings' || $state eq 'change_members' ||                  ($state eq 'change_settings' || $state eq 'change_members' ||
                  $state eq 'change_privs') || $state eq 'add_members') {                   $state eq 'change_privs' || $state eq 'add_members' ||
             $loaditems =                   $state eq 'pick_members')) {
              'onload="javascript:setFormElements(document.'.$state.')"';   $loaditems{'onload'} = 
       'javascript:setFormElements(document.'.$state.')';
     }      }
     return $loaditems;      return \%loaditems;
 }  }
   
 sub footer {  sub footer {
       my $end_page = &Apache::loncommon::end_page();
        return(<<ENDFOOT);         return(<<ENDFOOT);
      <input type="hidden" name="sortby" value="$env{'form.sortby'}" />
   </form>    </form>
  </body>  $end_page
 </html>  
 ENDFOOT  ENDFOOT
 }  }
   
Line 850  sub build_members_list { Line 1120  sub build_members_list {
 }  }
   
 sub group_files {  sub group_files {
       my ($group,$currdir,$numfiles,$numdirs) = @_;
       my $dirptr=16384;
       my @dir_list=&Apache::portfolio::get_dir_list($currdir,$group);
       foreach my $line (@dir_list) {
           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) {
                   $currdir .= '/'.$filename;
                   $$numdirs ++;
                   &group_files($numfiles,$numdirs)
               } else {
                   $$numfiles ++;
               }
           }
       }
     return;      return;
 }  }
   
Line 862  sub group_members { Line 1147  sub group_members {
         $$group_info{'totalmembers'} = 'Unknown - an error occurred';          $$group_info{'totalmembers'} = 'Unknown - an error occurred';
         return $tmp;          return $tmp;
     }      }
     my $now = time;  
     my $totalmembers = 0;      my $totalmembers = 0;
     my $active = 0;      my $active = 0;
     my $previous = 0;      my $previous = 0;
Line 870  sub group_members { Line 1154  sub group_members {
     foreach my $member (keys %memberhash) {      foreach my $member (keys %memberhash) {
         $totalmembers ++;          $totalmembers ++;
         my ($end,$start) = split(/:/,$memberhash{$member});          my ($end,$start) = split(/:/,$memberhash{$member});
         if (($end!=0) && ($end<$now)) {          unless ($start == -1) {
             $previous ++;              if (($end!=0) && ($end<$now)) {
         } elsif (($start!=0) && ($start>$now)) {                  $previous ++;
             $future ++;              } elsif (($start!=0) && ($start>$now)) {
         } else {                  $future ++;
             $active ++;              } else {
                  $active ++;
               }
         }          }
     }      }
     if ($totalmembers == 0) {      if ($totalmembers == 0) {
Line 890  sub group_members { Line 1176  sub group_members {
 sub general_settings_form {  sub general_settings_form {
     my ($r,$cdom,$cnum,$action,$tabcol,$formname,$page,$functions,$tools,      my ($r,$cdom,$cnum,$action,$tabcol,$formname,$page,$functions,$tools,
         $toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons,          $toolprivs,$fixedprivs,$sectioncount,$stored,$states,$navbuttons,
         $rowColor1,$rowColor2) = @_;          $rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_;
     my ($nexttext,$prevtext);      my ($nexttext,$prevtext);
     $r->print(' <br />      &groupsettings_options($r,$functions,$action,$formname,$stored,1,
  <table width="100%" cellpadding="0" cellspacing="0" border="0">                             $gpterm,$ucgpterm,$crstype);
 ');      &access_date_settings($r,$action,$formname,$stored,2,$gpterm,$ucgpterm);
     &groupsettings_options($r,$tabcol,$functions,$action,$formname,$stored,1);  
     $r->print('   
   <tr>  
    <td colspan="4">&nbsp;</td>  
   </tr>');  
     &access_date_settings($r,$tabcol,$action,$formname,$stored,2);  
     $r->print('  
   <tr>  
    <td colspan="4">&nbsp;</td>  
   </tr>');  
     if ($action eq 'create') {      if ($action eq 'create') {
         &membership_options($r,$action,$formname,$tabcol,$sectioncount,3);          &membership_options($r,$action,$formname,$sectioncount,3,$gpterm,
       $ucgpterm);
         $nexttext = $$navbuttons{'gtns'};          $nexttext = $$navbuttons{'gtns'};
     } else {      } else {
         my @available = ();          my @available = ();
Line 915  sub general_settings_form { Line 1192  sub general_settings_form {
         @{$tools} = sort(keys(%{$functions}));          @{$tools} = sort(keys(%{$functions}));
         &privilege_specificity($r,$tabcol,$rowColor1,$rowColor2,$action,          &privilege_specificity($r,$tabcol,$rowColor1,$rowColor2,$action,
                                3,$tools,$stored,$toolprivs,$fixedprivs,                                 3,$tools,$stored,$toolprivs,$fixedprivs,
                                \@available,$formname);                                 \@available,$formname,$gpterm,$ucgpterm);
         $r->print('          &mapping_options($r,$action,$formname,$page,$sectioncount,
   <tr>                           $states,$stored,$navbuttons,4,5,
    <td colspan="4">&nbsp;</td>   $gpterm,$ucgpterm,$crstype);
   </tr>');  
         &mapping_options($r,$action,$formname,$page,$tabcol,$sectioncount,  
                          $states,$stored,$navbuttons,4,5,$rowColor1,  
                          $rowColor2);  
         $nexttext = $$navbuttons{'mose'};          $nexttext = $$navbuttons{'mose'};
     }      }
     $prevtext = $$navbuttons{'gtpp'};      $prevtext = $$navbuttons{'gtpp'};
     &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,      &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
                         $$states{$action}[$page+1],$nexttext);                          $$states{$action}[$page+1],$nexttext);
     $r->print('  
  </table>');  
     return;      return;
 }  }
   
 sub groupsettings_options {  sub groupsettings_options {
     my ($r,$tabcol,$functions,$action,$formname,$stored,$image) = @_;      my ($r,$functions,$action,$formname,$stored,$image,$gpterm,
           $ucgpterm,$crstype) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
         'gdat' => 'Group open and close dates',          'gdat' => "$ucgpterm open and close dates",
         'sten' => 'Set a start date/time and end date/time for the group',          'sten' => "Set a start date/time and end date/time for the $gpterm",
         'gfun' => 'Group functionality',          'gfun' => "$ucgpterm functionality",
         'gnde' => 'Group name, description and available functionality',          'gnde' => "$ucgpterm name, description and available functionality",
         'desc' => 'Description',          'desc' => 'Description',
         'func' => 'Functionality',          'func' => 'Functionality',
         'gnam' => 'Group Name',          'gnam' => "$ucgpterm Name",
         'doyo' => 'Do you want to assign different functionality '.          'doyo' => "Do you want to assign different functionality ".
                   'to different group members?',                    "to different $gpterm members?",
     );      );
     &topic_bar($r,$tabcol,$image,$lt{'gnde'});      my ($crsquota,$freespace,$maxposs) = &get_quota_constraints($action,$stored);
       &topic_bar($r,$image,$lt{'gnde'});
     $r->print('      $r->print('
    <tr>       <table class="LC_descriptive_input">
     <td>&nbsp;</td>  
     <td colspan="3">  
      <table border="0" cellpadding="2" cellspacing="2">  
       <tr>        <tr>
        <td><b>'.$lt{'gnam'}.':</b></td>         <td class="LC_description">'.$lt{'gnam'}.':</td>
        <td colspan="5">         <td colspan="5">
 ');  ');
     if ($action eq 'create') {      if ($action eq 'create') {
Line 966  sub groupsettings_options { Line 1236  sub groupsettings_options {
        </td>         </td>
       <tr>        <tr>
       <tr>        <tr>
        <td><b>$lt{'desc'}:</b></td>         <td class="LC_description">$lt{'desc'}:</td>
        <td colspan="5"><input type="text" name="description" size="40"         <td colspan="5"><input type="text" name="description" size="40"
                                                     value="" />                                                      value="" />
        </td>         </td>
       <tr>        <tr>
       <tr>        <tr>
        <td><b>$lt{'func'}:</b></td>         <td class="LC_description">$lt{'func'}:</td>
 END  END
     my $numitems = keys(%{$functions});      my $numitems = keys(%{$functions});
     my $halfnum = int($numitems/2);      my $halfnum = int($numitems/2);
Line 982  END Line 1252  END
     }      }
     my @allfunctions = sort(keys (%{$functions}));      my @allfunctions = sort(keys (%{$functions}));
     for (my $i=0; $i<$halfnum; $i++) {      for (my $i=0; $i<$halfnum; $i++) {
         $r->print('<td><input type="checkbox" name="tool" value="'.          $r->print('<td><label><input type="checkbox" name="tool" value="'.
                   $allfunctions[$i].'" />&nbsp;'.                    $allfunctions[$i].'" />&nbsp;'.
                    $$functions{$allfunctions[$i]}.'</td>                     $$functions{$allfunctions[$i]}.'</label></td>
                    <td>&nbsp;</td><td>&nbsp;</td>');                     <td>&nbsp;</td><td>&nbsp;</td>');
     }      }
     $r->print('<td><input type="button" value="check all" '.      $r->print('<td><input type="button" value="check all" '.
               'onclick="javascript:checkAll(document.'.$formname.'.tool)" />'.                'onclick="javascript:checkAll(document.'.$formname.'.tool)" />'.
               '</td></tr><tr><td>&nbsp;</td>');                '</td></tr><tr><td>&nbsp;</td>');
     for (my $j=$halfnum; $j<@allfunctions; $j++) {      for (my $j=$halfnum; $j<@allfunctions; $j++) {
         $r->print('<td><input type="checkbox" name="tool" value="'.          $r->print('<td><label><input type="checkbox" name="tool" value="'.
                   $allfunctions[$j].'" />&nbsp;'.                    $allfunctions[$j].'" />&nbsp;'.
                   $$functions{$allfunctions[$j]}.'</td>                    $$functions{$allfunctions[$j]}.'</label></td>
                   <td>&nbsp;</td><td>&nbsp;</td>');                    <td>&nbsp;</td><td>&nbsp;</td>');
     }      }
     if ($remnum) {      if ($remnum) {
Line 1006  END Line 1276  END
        </td>         </td>
       </tr>        </tr>
       <tr>        <tr>
        <td><b>Granularity:</b></td>         <td class="LC_description">'.&mt('Granularity:').'</td>
        <td colspan="9">'.$lt{'doyo'}.'&nbsp;<input type="radio" name="granularity" value="Yes" />'.&mt('Yes').'&nbsp;<input type="radio" name="granularity" value="No" checked="checked" />'.&mt('No'));         <td colspan="10">'.$lt{'doyo'}.'&nbsp;<label><input type="radio" name="granularity" value="Yes" />'.&mt('Yes').'</label>&nbsp;<label><input type="radio" name="granularity" value="No" checked="checked" />'.&mt('No').'</label>');
     if ($action eq 'modify') {      if ($action eq 'modify') {
         $r->print('&nbsp;&nbsp;('.&mt('Currently set to "[_1]"',          $r->print('&nbsp;&nbsp;('.&mt('Currently set to "[_1]"',
                                       $$stored{'granularity'}).')');                                        $$stored{'granularity'}).')');
Line 1015  END Line 1285  END
     $r->print('      $r->print('
        </td>         </td>
       </tr>        </tr>
         <tr>
          <td class="LC_description">'.&mt('Disk quota: ').'</td><td colspan="10">');
       if ($action eq 'create') {
           $r->print(&mt('If you enable the file repository for the [_1], allocate a disk quota.',$gpterm));
       } else {
           $r->print(&mt('Quota allocated to file repository:'));
       } 
       $r->print('&nbsp;<input type="text" name="quota" size="4" />Mb');
       if ($action eq 'create') {
           $r->print('<br />'.
                     &mt('A total of [_1] Mb is shared between all [_2]s in the '.
                     '[_3], and [_4] Mb are currently unallocated.',$crsquota,
                     $gpterm,lc($crstype),$freespace));
       } else {
           $r->print('&nbsp;&nbsp;('.&mt('The quota is currently [_1] Mb',
                                         $$stored{'quota'}).').');
   
           $r->print('<br />'.&mt('The quota can be increased to [_1] Mb, '.
                     'by adding all unallocated space for [_2]s in the [_3].',
                     $maxposs,$gpterm,lc($crstype)));
       }
       $r->print('
          </td>
         </tr>
      </table>       </table>
     </td>  
    </tr>  
 ');  ');
     return;      return;
 }  }
   
   sub get_quota_constraints {
       my ($action,$stored) = @_;
       my ($crsquota,$freespace,$maxposs); 
       $crsquota = $env{'course.'.$env{'request.course.id'}.'.internal.coursequota'};
       if ($crsquota eq '') {
           $crsquota = 20;
       }
       $freespace = $crsquota - &Apache::longroup::sum_quotas();
       if ($action eq 'create') {
           $maxposs = $freespace;
       } else {
           $maxposs = $$stored{'quota'} + $freespace;
       }
       return ($crsquota,$freespace,$maxposs);
   }
   
 sub membership_options {  sub membership_options {
     my ($r,$action,$state,$tabcol,$sectioncount,$image) = @_;      my ($r,$action,$state,$sectioncount,$image,$gpterm,$ucgpterm) = @_;
       my $crstype = &Apache::loncommon::course_type();
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 'pipa' => 'Pick parameters to generate membership list',                  'pipa' => 'Pick parameters to generate membership list',
                 'gmem' => 'Group membership options',                  'gmem' => "$ucgpterm membership options",
                 'picr' => 'Pick the criteria to use to build a list of '.                  'picr' => 'Pick the criteria to use to build a list of '.
                           'course users from which you will select ',                            lc($crstype).' users from which you will select ',
                 'meof' => 'members of the new group.',                  'meof' => "members of the new $gpterm.",
                 'adme' => 'additional members of the group.',                  'admg' => "additional members of the $gpterm.",
                 'ifno' => 'If you do not wish to add members when you first '.                  'ifno' => "If you do not wish to add members when you first ".
                           'create the group, do not make any selections',                              "create the $gpterm, do not make any selections.",
                   'asub' => "A subsequent step will also allow you to specify automatic adding/dropping of $gpterm members triggered by specified role and section changes.",
                 'acty' => 'Access types',                  'acty' => 'Access types',
                 'coro' => 'Course roles',                  'coro' => $crstype.' roles',
                 'cose' => 'Course sections',                  'cose' => $crstype.' sections',
              );               );
     my %status_types = (      my %status_types = (
                    active => &mt('Currently has access'),                     active => &mt('Currently has access'),
                    previous => &mt('Previously had access'),                     previous => &mt('Previously had access'),
                    future => &mt('Will have future access'),                     future => &mt('Will have future access'),
                    );                     );
                                                                                    
     my @roles = ('st','cc','in','ta','ep','cr');      #FIXME need to plumb around for the various cr roles defined by the user
       my @roles = ('st','cc','in','ta','ep');
   
     my @sections = keys(%{$sectioncount});      my @sections = keys(%{$sectioncount});
   
     &topic_bar($r,$tabcol,$image,$lt{'pipa'});      &topic_bar($r,$image,$lt{'pipa'});
     $r->print('      $r->print('
    <tr>       <b>'.$lt{'gmem'}.'</b><br />'.$lt{'picr'});
     <td>&nbsp;</td>  
     <td colspan="3">  
      <b>'.$lt{'gmem'}.'</b><br/>'.$lt{'picr'});  
     if ($action eq 'create') {      if ($action eq 'create') {
         $r->print($lt{'meof'}.'<br />'.$lt{'ifno'});          $r->print($lt{'meof'}.'<br />'.$lt{'ifno'}.'<br />'.$lt{'asub'});
     } else {      } else {
         $r->print($lt{'adme'});          $r->print($lt{'admg'});
     }      }
     $r->print('      $r->print('
      <br />       <br />
      <br />       <br />
      <table border="0">       <table class="LC_status_selector">
       <tr>        <tr>
        <td><b>'.$lt{'acty'}.'</b></td>         <th>'.$lt{'acty'}.'</th>
        <td>&nbsp;</td>         <th>'.$lt{'coro'}.'</th>');
        <td><b>'.$lt{'coro'}.'</b></td>');  
     if (@sections >0) {      if (@sections >0) {
         $r->print('          $r->print('
        <td>&nbsp;</td>         <th>'.$lt{'cose'}.'</th>');
        <td><b>'.$lt{'cose'}.'</b></td>  
        <td>&nbsp;</td>');  
     }      }
     $r->print('</tr><tr>');      $r->print('</tr><tr><td>');
     $r->print(&Apache::lonhtmlcommon::status_select_row(\%status_types));      $r->print(&Apache::lonhtmlcommon::status_select_row(\%status_types));
     $r->print('<td>&nbsp;</td>');      $r->print('</td><td>');
     $r->print(&Apache::lonhtmlcommon::role_select_row(\@roles));      $r->print(&Apache::lonhtmlcommon::role_select_row(\@roles));
     if (@sections > 0) {      if (@sections > 0) {
         @sections = sort {$a cmp $b} @sections;          @sections = sort {$a cmp $b} @sections;
         unshift(@sections,'_all'); # Put 'all' at the front of the list          unshift(@sections,'none'); # Put 'no sections' next
         unshift(@sections,'_nosec'); # Put 'no sections' next          unshift(@sections,'all'); # Put 'all' at the front of the list
         $r->print('<td>&nbsp;</td>          $r->print('</td><td>'.
                    <td colspan="3" align="center" valign="top">'.  
         &sections_selection(\@sections,'sectionpick').'</td>');          &sections_selection(\@sections,'sectionpick').'</td>');
     }      }
     $r->print('      $r->print('
       </tr>        </tr>
      </table>       </table>');
     </td>  
    </tr>');  
     return;      return;
 }  }
   
Line 1100  sub sections_selection { Line 1402  sub sections_selection {
         $numvisible = @{$sections};          $numvisible = @{$sections};
     }      }
     foreach my $sec (@{$sections}) {      foreach my $sec (@{$sections}) {
         if ($sec eq '_all') {          if ($sec eq 'all') {
             $section_sel .= '  <option value="'.$sec.'" />all sections'."\n";              $section_sel .= '  <option value="'.$sec.'" selected="selected">'.&mt('all sections').'</option>'."\n";
         } elsif ($sec eq '_nosec') {          } elsif ($sec eq 'none') {
             $section_sel .= '  <option value="'.$sec.'" />no section'."\n";               $section_sel .= '  <option value="'.$sec.'">'.&mt('no section').'</option>'."\n"; 
         } else {          } else {
             $section_sel .= '  <option value="'.$sec.'" />'.$sec."\n";              $section_sel .= '  <option value="'.$sec.'">'.$sec."</option>\n";
         }          }
     }      }
     my $output = '      my $output = '
Line 1116  sub sections_selection { Line 1418  sub sections_selection {
 }  }
   
 sub access_date_settings {  sub access_date_settings {
     my ($r,$tabcol,$action,$formname,$stored,$image) = @_;      my ($r,$action,$formname,$stored,$image,$gpterm,$ucgpterm) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 'sten' => 'Default start and end dates for group access',                  'sten' => "Default start and end dates for $gpterm access",
              );               );
     my $starttime = time;      my $starttime = time;
     my $endtime = time+(6*30*24*60*60); # 6 months from now, approx      my $endtime = time+(6*30*24*60*60); # 6 months from now, approx
Line 1128  sub access_date_settings { Line 1430  sub access_date_settings {
             $endtime = $$stored{'enddate'};              $endtime = $$stored{'enddate'};
         }          }
     }      }
     my ($start_table,$end_table) = &date_setting_table      my ($table) = &date_setting_table($starttime,$endtime,$formname);
                                     ($starttime,$endtime,$formname);      &topic_bar($r,$image,$lt{'sten'});
     &topic_bar($r,$tabcol,$image,$lt{'sten'});  
     $r->print('      $r->print('
    <tr>      '.$table.'
     <td>&nbsp;</td>      ');
     <td colspan="3">'.$start_table.'</td>  
    <tr>  
    <tr>  
     <td colspan="4">&nbsp;</td>  
    </tr>  
    <tr>  
     <td>&nbsp;</td>  
     <td colspan="3">'.$end_table.'</td>  
    <tr>');  
     return;      return;
 }  }
   
 sub choose_members_form {  sub choose_members_form {
     my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$groupname,$description,      my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$groupname,$description,
         $granularity,$startdate,$enddate,$tools,$fixedprivs,$toolprivs,          $granularity,$quota,$startdate,$enddate,$tools,$fixedprivs,$toolprivs,
         $functions,$users,$userdata,$idx,$stored,$states,$navbuttons,          $functions,$users,$userdata,$idx,$stored,$states,$navbuttons,
         $rowColor1,$rowColor2) = @_;          $rowColor1,$rowColor2,$gpterm,$ucgpterm,$crstype) = @_;
     my @regexps = ('user_','userpriv_','sec_');      my @regexps = ('user_','userpriv_','sec_');
     my %origmembers;      my %origmembers;
     $r->print(&Apache::lonhtmlcommon::echo_form_input(      $r->print(&Apache::lonhtmlcommon::echo_form_input(
          ['origin','action','state','page','member','specificity','branch',           ['origin','action','state','page','member','specificity','branch',
           'defpriv','autorole','autoadd','autodrop'],            'defpriv','autorole','autoadd','autodrop','sortby','togglefunc'],
          \@regexps));           \@regexps));
     my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum);      my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm,
     $r->print('                                         $ucgpterm,$crstype);
 <table width="100%" cellpadding="0" cellspacing="0" border="0">  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
 ');  
     if ($earlyout) {      if ($earlyout) {
         $r->print($earlyout.'</td></tr>');   $r->print($earlyout)
         &display_navbuttons($r,$formname,$$states{$action}[$page-1],          &display_navbuttons($r,$formname,$$states{$action}[$page-1],
                            $$navbuttons{'gtps'});                             $$navbuttons{'gtps'});
         $r->print('</table>');  
         return;          return;
     }       } 
     my ($specimg,$memimg);      my ($specimg,$memimg);
Line 1176  sub choose_members_form { Line 1462  sub choose_members_form {
     my @unavailable = ();      my @unavailable = ();
     &check_tools($functions,$tools,\@available,\@unavailable);      &check_tools($functions,$tools,\@available,\@unavailable);
     if ($action eq 'create') {      if ($action eq 'create') {
         &print_current_settings($r,$action,$tabcol,$rowColor1,$rowColor2,          &print_current_settings($r,$action,$functions,$startdate,$enddate,
                                 $functions,$startdate,$enddate,$groupname,   $groupname,$description,$granularity,$quota,
                                 $description,$granularity,\@available,   \@available,\@unavailable,$gpterm,$ucgpterm);
                                 \@unavailable);  
         $specimg = 4;          $specimg = 4;
         $memimg = 5;          $memimg = 5;
     } else {      } else {
Line 1189  sub choose_members_form { Line 1474  sub choose_members_form {
                                                                $groupname);                                                                 $groupname);
         foreach my $key (sort(keys(%membership))) {          foreach my $key (sort(keys(%membership))) {
             if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) {              if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) {
                 my $uname = $1;                  my ($end,$start,@userprivs) = split(/:/,$membership{$key});
                 my $udom = $2;                  unless ($start == -1) {  
                 my $user = $uname.':'.$udom;                      my $uname = $1;
                 $origmembers{$user} = 1;                       my $udom = $2;
                       my $user = $uname.':'.$udom;
                       $origmembers{$user} = 1; 
                   }
             }              }
         }          }
     }      }
     &privilege_specificity($r,$tabcol,$rowColor1,$rowColor2,$action,      &privilege_specificity($r,$tabcol,$rowColor1,$rowColor2,$action,
                           $specimg,$tools,$stored,$toolprivs,                            $specimg,$tools,$stored,$toolprivs,
                           $fixedprivs,\@available,$formname);                            $fixedprivs,\@available,$formname,$gpterm,$ucgpterm);
     my $newusers = &pick_new_members($r,$action,$formname,$tabcol,$rowColor1,      my $newusers = &pick_new_members($r,$action,$formname,\@available,$idx,
                                     $rowColor2,\@available,$idx,$stored,       $stored,$memimg,$users,$userdata,
                                     $memimg,$users,$userdata,$granularity,       $granularity,\%origmembers,$gpterm,
                                     \%origmembers);       $ucgpterm);
     if ($newusers || $action eq 'create') {      if ($newusers || $action eq 'create') {
         &display_navbuttons($r,$formname,$$states{$action}[$page-1],          &display_navbuttons($r,$formname,$$states{$action}[$page-1],
                             $$navbuttons{'gtps'},$$states{$action}[$page+1],                              $$navbuttons{'gtps'},$$states{$action}[$page+1],
Line 1211  sub choose_members_form { Line 1499  sub choose_members_form {
         &display_navbuttons($r,$formname,$$states{$action}[$page-1],          &display_navbuttons($r,$formname,$$states{$action}[$page-1],
                             $$navbuttons{'gtps'});                              $$navbuttons{'gtps'});
     }      }
     $r->print('</table>');  
     return;      return;
 }  }
   
 sub display_navbuttons {  sub display_navbuttons {
     my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_;      my ($r,$formname,$prev,$prevtext,$next,$nexttext) = @_;
     $r->print('      $r->print('<div class="LC_navbuttons">');
     <tr>  
      <td colspan="4">&nbsp;</td>  
     </tr>  
     <tr>  
      <td>&nbsp;</td>  
      <td colspan="3">');  
     if ($prev) {      if ($prev) {
         $r->print('          $r->print('
       <input type="button" name="previous" value = "'.$prevtext.'"        <input type="button" name="previous" value = "'.$prevtext.'"
Line 1235  sub display_navbuttons { Line 1516  sub display_navbuttons {
       <input type="button" name="next" value="'.$nexttext.'"        <input type="button" name="next" value="'.$nexttext.'"
  onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />');   onclick="javascript:nextPage(document.'.$formname.','."'".$next."'".')" />');
     }      }
     $r->print('      $r->print('</div>');
      </td>  
     </tr>  
 ');  
 }  }
   
 sub check_tools {  sub check_tools {
Line 1254  sub check_tools { Line 1532  sub check_tools {
 }  }
   
 sub print_current_settings {  sub print_current_settings {
     my ($r,$action,$tabcol,$rowColor1,$rowColor2,$functions,$startdate,$enddate,      my ($r,$action,$functions,$startdate,$enddate,$groupname,$description,
            $groupname,$description,$granularity,$available,$unavailable) =@_;   $granularity,$quota,$available,$unavailable,$gpterm,$ucgpterm) = @_;
   
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
         grna => 'Group Name',          grna => "$ucgpterm Name",
         desc => 'Description',          desc => 'Description',
         grfn => 'Group Functions',          grfn => "$ucgpterm Functions",
         gran => 'Granularity',          gran => 'Granularity',
           quot => 'File quota',
         dfac => 'Default access dates',          dfac => 'Default access dates',
         ygrs => 'Your group selections',          ygrs => "Your $gpterm selections",
         tfwa => 'The following settings will apply to the group:',          tfwa => "The following settings will apply to the $gpterm:",
         difn => 'Different functionality<br />for different users:',          difn => 'Different functionality<br />for different members:',
         stda => 'Start date',          stda => 'Start date',
         enda => 'End date:',          enda => 'End date:',
     );      );
Line 1276  sub print_current_settings { Line 1555  sub print_current_settings {
     } else {      } else {
         $showend = &Apache::lonlocal::locallocaltime($enddate);          $showend = &Apache::lonlocal::locallocaltime($enddate);
     }      }
     $r->print('<table border="0" cellpadding="0" cellspacing="20">');  
     if ($action eq 'create') {      if ($action eq 'create') {
         $r->print('          $r->print('
 <tr>  <div><span style="font-size: larger">'.$lt{'ygrs'}.'</span>
  <td><font face="arial,helvetica,sans-serif"><b>'.$lt{'ygrs'}.'</b></font>  
 <br />'.$lt{'tfwa'}.'  <br />'.$lt{'tfwa'}.'
  </td>  </div>');
 </tr>');  
     }      }
     $r->print('<tr><td>');      $r->print(&Apache::loncommon::start_data_table('LC_course_group_status').
     $r->print(&Apache::lonhtmlcommon::start_pick_box());        &Apache::loncommon::start_data_table_header_row());
     $r->print('      $r->print('
 <tr>    <th>'.$lt{'grna'}.'</th>
  <td>    <th>'.$lt{'desc'}.'</th>
 <table cellspacing="1" cellpadding="4">    <th>'.$lt{'grfn'}.'</th>
  <tr bgcolor="'.$tabcol.'" align="center">    <th>'.$lt{'gran'}.'</th>
   <td><b>'.$lt{'grna'}.'</b></td>    <th>'.$lt{'quot'}.'</th>
   <td><b>'.$lt{'desc'}.'</b></td>    <th>'.$lt{'dfac'}.'</th>
   <td><b>'.$lt{'grfn'}.'</b></td>  ');
   <td><b>'.$lt{'gran'}.'</b></td>      $r->print(&Apache::loncommon::end_data_table_header_row().
   <td><b>'.$lt{'dfac'}.'</b></td>        &Apache::loncommon::start_data_table_row('LC_data_table_dense'));
  </tr>      $r->print('
  <tr bgcolor="'.$rowColor2.'">    <td valign="top">'.$groupname.'</td>
   <td valign="top"><small>'.$groupname.'</small></td>    <td valign="top">'.$description.'</td>
   <td valign="top"><small>'.$description.'</small></td>  
   <td>    <td>
 ');  ');
     if (@{$available} > 0) {      if (@{$available} > 0) {
         $r->print('<small><b>Available:</b></small>          $r->print('<b>Available:</b>
                     <table cellpadding="" cellspacing="1"><tr>');                      <table cellpadding="" cellspacing="1"><tr>');
         my $rowcell = int(@{$available}/2) + @{$available}%2;          my $rowcell = int(@{$available}/2) + @{$available}%2;
         for (my $i=0; $i<@{$available}; $i++) {          for (my $i=0; $i<@{$available}; $i++) {
Line 1313  sub print_current_settings { Line 1588  sub print_current_settings {
                     $r->print('</tr><tr>');                      $r->print('</tr><tr>');
                 }                  }
             }              }
             $r->print('<td><small>'.$$functions{$$available[$i]}.              $r->print('<td>'.$$functions{$$available[$i]}.
                                           '</small></td><td>&nbsp;</td>');        '</td><td>&nbsp;</td>');
         }          }
         if ((@{$available} > 3) && (@{$available}%2)) {          if ((@{$available} > 3) && (@{$available}%2)) {
             $r->print('<td>&nbsp;</td><td>&nbsp;</td>');              $r->print('<td>&nbsp;</td><td>&nbsp;</td>');
Line 1322  sub print_current_settings { Line 1597  sub print_current_settings {
         $r->print('</tr></table><br />');          $r->print('</tr></table><br />');
     }      }
     if (@{$unavailable} > 0) {      if (@{$unavailable} > 0) {
         $r->print('<small><b>Unavailable:</b></small>          $r->print('<b>Unavailable:</b>
                     <table cellpadding="0" cellspacing="1"  border="0"><tr>');                      <table cellpadding="0" cellspacing="1"  border="0"><tr>');
         my $rowcell = int(@{$unavailable}/2) + @{$unavailable}%2;          my $rowcell = int(@{$unavailable}/2) + @{$unavailable}%2;
         for (my $j=0; $j<@{$unavailable}; $j++) {          for (my $j=0; $j<@{$unavailable}; $j++) {
Line 1331  sub print_current_settings { Line 1606  sub print_current_settings {
                     $r->print('</tr><tr>');                      $r->print('</tr><tr>');
                 }                  }
             }              }
             $r->print('<td><small>'.$$functions{$$unavailable[$j]}.              $r->print('<td>'.$$functions{$$unavailable[$j]}.
                                               '</small></td><td>&nbsp;</td>');        '</td><td>&nbsp;</td>');
         }          }
         if ((@{$unavailable} > 3) && (@{$unavailable}%2)) {          if ((@{$unavailable} > 3) && (@{$unavailable}%2)) {
             $r->print('<td>&nbsp;</td><td>&nbsp;</td>');              $r->print('<td>&nbsp;</td><td>&nbsp;</td>');
Line 1341  sub print_current_settings { Line 1616  sub print_current_settings {
     }      }
     $r->print(<<"END");      $r->print(<<"END");
   </td>    </td>
   <td valign="top"><small><b>$lt{'difn'}    <td valign="top"><b>$lt{'difn'}</b> $granularity</td>
   </b> $granularity</small>     <td valign="top">$quota Mb</td> 
   <td valign="top"><small><b>$lt{'stda'}</b> $showstart<br />    <td valign="top"><b>$lt{'stda'}</b> $showstart<br />
       <b>$lt{'enda'}</b> $showend</small>        <b>$lt{'enda'}</b> $showend
   </td>    </td>
  </tr>  
 </table>  
 </td>  
 </tr>  
 END  END
     $r->print(&Apache::lonhtmlcommon::end_pick_box());      $r->print(&Apache::loncommon::end_data_table_row().
     $r->print('</td></tr></table><br />');        &Apache::loncommon::end_data_table());
     return;      return;
 }  }
   
 sub pick_new_members {  sub pick_new_members {
     my ($r,$action,$formname,$tabcol,$rowColor1,$rowColor2,$available,$idx,      my ($r,$action,$formname,$available,$idx,$stored,$img,$users,$userdata,
         $stored,$img,$users,$userdata,$granularity,$origmembers) = @_;   $granularity,$origmembers,$gpterm,$ucgpterm) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
           'gpme' => 'Group membership',            'gpme' => "$ucgpterm membership",
           'addm' => 'Add members',            'addm' => 'Add members',
           'setf' => 'Set functionality',            'setf' => 'Set functionality',
           'func' => 'Functionality',            'func' => 'Functionality',
           'nome' => 'No members to add at this time.',            'nome' => 'No members to add at this time.',
           'nnew' => 'There are no users to add as new members, as all users'.            'nnew' => "There are no users to add as new members, as all users".
                     ' matching the specified type(s), role(s), and/or '.                      " matching the specified type(s), role(s), and/or ".
                     'section(s) are already affiliated with this group.',                      "section(s) are already affiliated with this $gpterm.",
           'yoma' =>  'You may need to use the '."'".'modify existing, past or '.            'yoma' =>  'You may need to use the '."'".'modify existing, past or '.
                      'future members'."'".' page if you need to re-enable '.                       'future members'."'".' page if you need to re-enable '.
                      'or activate access for previous or future members.',                       'or activate access for previous or future members.',
Line 1394  sub pick_new_members { Line 1665  sub pick_new_members {
             $r->print(&check_uncheck_tools($r,$available));              $r->print(&check_uncheck_tools($r,$available));
         }          }
     }      }
     &topic_bar($r,$tabcol,$img,$lt{'gpme'});      &topic_bar($r,$img,$lt{'gpme'});
     if (keys(%members) > 0) {      if (keys(%members) > 0) {
         $r->print('          $r->print('
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
     <table>      <table>
      <tr>');       <tr>');
         &check_uncheck_buttons($r,$formname,'member',$lt{'addm'});          &check_uncheck_buttons($r,$formname,'member',$lt{'addm'});
Line 1414  sub pick_new_members { Line 1682  sub pick_new_members {
      </fieldset></nobr></td>');       </fieldset></nobr></td>');
         }          }
         $r->print('</tr></table>          $r->print('</tr></table>
   </td>  
  </tr>  
  <tr>  
   <td colspan="4">&nbsp;</td>  
  </tr>  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
         ');          ');
         $r->print(&Apache::lonhtmlcommon::start_pick_box());          $r->print(&Apache::loncommon::start_data_table().
     &Apache::loncommon::start_data_table_header_row());
         $r->print('          $r->print('
    <table border="0" cellpadding="4" cellspacing="1">       <th>'.&mt('Add?').'</b></td>
     <tr bgcolor="'.$tabcol.'" align="center">       <th><a href="javascript:changeSort('."'fullname'".')">'.&mt('Name').'</a></td>
      <td><b>'.&mt('Add?').'</b></td>       <th><a href="javascript:changeSort('."'username'".')">'.&mt('Username').'</a></td>
      <td><b><a href="javascript:changeSort('."'fullname'".')">'.&mt('Name').'</a></b></td>       <th><a href="javascript:changeSort('."'domain'".')">'.&mt('Domain').'</a></td>
      <td><b><a href="javascript:changeSort('."'username'".')">'.&mt('Username').'</a></b>       <th><a href="javascript:changeSort('."'id'".')">'.&mt('ID').'</a></td>
      </td>       <th><a href="javascript:changeSort('."'section'".')">'.&mt('Section').'</a></td>
      <td><b><a href="javascript:changeSort('."'domain'".')">'.&mt('Domain').'</a></b></td>  
      <td><b><a href="javascript:changeSort('."'id'".')">ID</a></b></td>  
 ');  ');
         if (@{$available} > 0) {          if (@{$available} > 0) {
             $r->print('<td><b>'.$lt{'func'}.'</b></td>');              $r->print('<th>'.$lt{'func'}.'</th>');
         }          }
         $r->print('</tr>');          $r->print(&Apache::loncommon::end_data_table_header_row());
         if (@{$available} > 0) {          if (@{$available} > 0) {
             if ($granularity eq 'Yes') {              if ($granularity eq 'Yes') {
                 $r->print('<tr bgcolor="#cccccc">                  $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense LC_data_table_highlight').'
  <td colspan="5">&nbsp;</td>   <td colspan="6">&nbsp;</td>
  <td align="center"><small><nobr><b>All:</b>&nbsp;');   <td align="center"><nobr><b>'.&mt('All:').'</b>&nbsp;');
                 foreach my $tool (@{$available}) {                  foreach my $tool (@{$available}) {
                     $r->print('<input type="checkbox" name="togglefunc" '.                      $r->print('<label><input type="checkbox" name="togglefunc" '.
    'onclick="javascript:toggleTools(document.'.$formname.'.user_'.$tool.',this);">'.     'onclick="javascript:toggleTools(document.'.$formname.'.user_'.$tool.',this);"'.
    '<b>'.$tool.'</b>&nbsp;&nbsp;&nbsp;');     ' value="'.$tool.'">'.'<b>'.$tool.'</b></label>&nbsp;&nbsp;&nbsp;');
                 }                  }
                 $r->print('</nobr></small></td></tr>');                  $r->print('</nobr></td></tr>');
             }              }
         }          }
         my %Sortby = ();          my %Sortby = ();
Line 1461  sub pick_new_members { Line 1720  sub pick_new_members {
                 push(@{$Sortby{$members{$user}[$$idx{udom}]}},$user);                  push(@{$Sortby{$members{$user}[$$idx{udom}]}},$user);
             } elsif ($env{'form.sortby'} eq 'id') {              } elsif ($env{'form.sortby'} eq 'id') {
                 push(@{$Sortby{$members{$user}[$$idx{id}]}},$user);                  push(@{$Sortby{$members{$user}[$$idx{id}]}},$user);
               } elsif ($env{'form.sortby'} eq 'section') {
                   push(@{$Sortby{$members{$user}[$$idx{section}]}},$user);
             } else {              } else {
                 push(@{$Sortby{$members{$user}[$$idx{fullname}]}},$user);                  push(@{$Sortby{$members{$user}[$$idx{fullname}]}},$user);
             }              }
         }          }
         my $rowNum = 0;  
         my $rowColor;  
         foreach my $key (sort(keys(%Sortby))) {          foreach my $key (sort(keys(%Sortby))) {
             foreach my $user (@{$Sortby{$key}}) {              foreach my $user (@{$Sortby{$key}}) {
                 if ($rowNum %2 == 1) {  
                     $rowColor = $rowColor1;  
                 } else {  
                     $rowColor = $rowColor2;  
                 }  
                 my $id = $members{$user}[$$idx{id}];                  my $id = $members{$user}[$$idx{id}];
                 my $fullname = $members{$user}[$$idx{fullname}];                  my $fullname = $members{$user}[$$idx{fullname}];
                 my $udom = $members{$user}[$$idx{udom}];                  my $udom = $members{$user}[$$idx{udom}];
                 my $uname = $members{$user}[$$idx{uname}];                  my $uname = $members{$user}[$$idx{uname}];
                 $r->print('<tr bgcolor="'.$rowColor.'"><td align="right">                  my $section = $members{$user}[$$idx{section}];
    <input type="checkbox" name="member" value="'.$user.'" /></td><td><small>'.                  $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense').
     $fullname.'</small></td><td><small>'.$uname.'</small></td><td><small>'.    '<td align="right"><input type="checkbox" name="member" value="'.$user.'" /></td>'.
     $udom.'</small></td><td><small>'.$id.'</small></td>');    '<td>'.$fullname.'</td>'.
     '<td>'.$uname.'</td>'.
     '<td>'.$udom.'</td>'.
     '<td>'.$id.'</td>'.
     '<td>'.$section.'</td>');
                 if (@{$available} > 0) {                  if (@{$available} > 0) {
                     $r->print('<td align="center"><nobr><small>'.                      $r->print('<td align="center"><nobr>'.
                               '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;');                                '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;');
                     foreach my $tool (@{$available}) {                      foreach my $tool (@{$available}) {
                         if ($granularity eq 'Yes') {                          if ($granularity eq 'Yes') {
Line 1494  sub pick_new_members { Line 1752  sub pick_new_members {
                           $tool.'" value="'.$user.'" />'.$tool.'&nbsp;&nbsp;&nbsp;');                            $tool.'" value="'.$user.'" />'.$tool.'&nbsp;&nbsp;&nbsp;');
                         }                          }
                     }                      }
                     $r->print('</small></nobr></td>');                      $r->print('</nobr></td>');
                 }                  }
                 $r->print('</tr>'."\n");                  $r->print(&Apache::loncommon::end_data_table_row()."\n");
                 $rowNum ++;  
             }              }
         }          }
         $r->print(&Apache::lonhtmlcommon::end_pick_box());          $r->print(&Apache::loncommon::end_data_table());
         $r->print('  
      </td>  
     </tr>');  
     } else {      } else {
         $r->print('  
     <tr>  
      <td>&nbsp;</td>  
      <td colspan="3">  
 ');  
         if ($totalusers > 0) {          if ($totalusers > 0) {
             $r->print($lt{'nnew'}.'<br /><br />'.$lt{'yoma'});              $r->print($lt{'nnew'}.'<br /><br />'.$lt{'yoma'});
         } else {           } else { 
             $r->print($lt{'nome'});              $r->print($lt{'nome'});
         }          }
         $r->print('  
      </td>  
     </tr>');  
     }      }
     return $newusers;      return $newusers;
 }  }
   
 sub privilege_specificity {  sub privilege_specificity {
     my ($r,$tabcol,$rowColor1,$rowColor2,$action,$img,$tools,$stored,      my ($r,$tabcol,$rowColor1,$rowColor2,$action,$img,$tools,$stored,
         $toolprivs,$fixedprivs,$available,$formname) = @_;          $toolprivs,$fixedprivs,$available,$formname,$gpterm,$ucgpterm) = @_;
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
       'uprv' => 'User privileges',        'uprv' => 'User privileges',
       'frty' => 'For each type of functionality you have chosen to include, '.        'frty' => 'For each type of functionality you have chosen to include, '.
Line 1539  sub privilege_specificity { Line 1785  sub privilege_specificity {
                 'privileges which apply to members with access to that '.                  'privileges which apply to members with access to that '.
                 'functionality, and may also include additional privileges '.                  'functionality, and may also include additional privileges '.
                 'which can be set for specific members.',                  'which can be set for specific members.',
       'cutg' => 'Currently the group is configured ',        'cutg' => "Currently the $gpterm is configured ",
       'sdif' => 'so different group members can receive different privileges.',        'sdif' => "so different $gpterm members can receive different privileges.",
       'sall' => 'so all group members will receive the same privileges.',        'sall' => "so all $gpterm members will receive the same privileges.",
       'algm' => 'All group members will receive the same privileges.',        'algm' => "All $gpterm members will receive the same privileges.",
       'smgp' => 'Some group members will receive different privileges from '.        'smgp' => "Some $gpterm members will receive different privileges from ".
                 'others.',                  "others.",
       'thwi' => 'These will be the privileges all group members receive, '.         'thwi' => "These will be the privileges all $gpterm members receive, ". 
                 'if you selected the first option above.',                  "if you selected the first option above.",
       'thes' => 'These will be the privileges given to members assigned '.           'thes' => "These will be the privileges given to members assigned ".   
                 'in the future, including via automatic group assignment '.                  "in the future, including via automatic $gpterm assignment ".
                 'for specific sections/roles ',                  "for specific sections/roles ",
       'asyo' => 'As you have chosen not to include any functionality in the '.        'asyo' => "As you have chosen not to include any functionality in the ".
                 'group, no default user privileges settings need to be set.',                  "$gpterm, no default user privileges settings need to be set.",
       'plin' => 'Please indicate which <b>optional</b> privileges members '.        'plin' => 'Please indicate which <b>optional</b> privileges members '.
                 'will receive by default.',                  'will receive by default.',
       'oppr' => 'Optional privileges',        'oppr' => 'Optional privileges',
Line 1565  sub privilege_specificity { Line 1811  sub privilege_specificity {
             }              }
         }          }
     }      }
     &topic_bar($r,$tabcol,$img,$lt{'uprv'});      &topic_bar($r,$img,$lt{'uprv'});
     $r->print('  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
   ');  
     if ((($action eq 'create') && (@{$available} > 0)) ||       if ((($action eq 'create') && (@{$available} > 0)) || 
         (($action eq 'modify') && ($formname eq 'change_settings'))) {            (($action eq 'modify') && ($formname eq 'change_settings'))) {  
         my %specific = (          my %specific = (
Line 1596  sub privilege_specificity { Line 1837  sub privilege_specificity {
         }          }
         if ($totaloptionalprivs) {          if ($totaloptionalprivs) {
             $r->print('              $r->print('
 <br /><br /><nobr><input type="radio" name="specificity" value="No" '.$specific{'No'}.' />&nbsp;'.$lt{'algm'}.'</nobr><br/>  <br /><br />
 <nobr><input type="radio" name="specificity" value="Yes" '.$specific{'Yes'}.' />&nbsp;'.$lt{'smgp'}.'</nobr>  <label><nobr><input type="radio" name="specificity" value="No" '.$specific{'No'}.' />&nbsp;'.$lt{'algm'}.'</nobr></label><br />
   </td>  <label><nobr><input type="radio" name="specificity" value="Yes" '.$specific{'Yes'}.' />&nbsp;'.$lt{'smgp'}.'</nobr></label>');
  </tr>  
  <tr>  
   <td colspan="4">&nbsp;</td>  
  </tr>');  
         } else {          } else {
             $r->print('<input type="hidden" name="specificity" value="No" />');              $r->print('<input type="hidden" name="specificity" value="No" />');
         }          }
         if ($totaloptionalprivs) {          if ($totaloptionalprivs) {
             $r->print('              $r->print($lt{'plin'});
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">'.$lt{'plin'});  
             if ($action eq 'create') {              if ($action eq 'create') {
                 $r->print(' '.$lt{'thwi'});                  $r->print(' '.$lt{'thwi'});
             }              }
Line 1621  sub privilege_specificity { Line 1855  sub privilege_specificity {
                 $r->print('('.&mt('if enabled below').').');                  $r->print('('.&mt('if enabled below').').');
             }              }
             $r->print('<br /><br />              $r->print('<br /><br />
   </td>    <table><tr>');
  </tr>  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="2"><table><tr>');  
         &check_uncheck_buttons($r,$formname,'defpriv',$lt{'oppr'});          &check_uncheck_buttons($r,$formname,'defpriv',$lt{'oppr'});
         $r->print('          $r->print('
     </tr>      </tr>
    </table>     </table>
   </td>  
   <td width="100%">&nbsp;</td>  
  </tr><tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
    <br />     <br />
 ');  ');
         } else {          } else {
             $r->print('<tr><td>&nbsp;</td><td colspan="3">'.$lt{'algm'}.'<br /><br />');              $r->print($lt{'algm'}.'<br /><br />');
         }          }
         &default_privileges($r,$action,$tabcol,$rowColor1,$rowColor2,          &default_privileges($r,$action,$tools,$toolprivs,$fixedprivs,
                             $tools,$toolprivs,$fixedprivs,$available);      $available);
     } else {      } else {
         if ($action eq 'create') {          if ($action eq 'create') {
             $r->print($lt{'asyo'});              $r->print($lt{'asyo'});
Line 1657  sub privilege_specificity { Line 1882  sub privilege_specificity {
                 $r->print($lt{'sall'});                  $r->print($lt{'sall'});
             }              }
             $r->print(' '.$lt{'defp'}.'<br /><br />');              $r->print(' '.$lt{'defp'}.'<br /><br />');
             &display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools,              &display_defprivs($r,$tools,$toolprivs,\@defprivs);
                               $toolprivs,\@defprivs);  
         }          }
     }      }
     $r->print('  
   </td>  
  </tr>  
 ');  
     return;      return;
 }  }
   
 sub default_privileges {  sub default_privileges {
     my ($r,$action,$tabcol,$rowColor1,$rowColor2,$tools,$toolprivs,      my ($r,$action,$tools,$toolprivs,$fixedprivs,$available) = @_;
         $fixedprivs,$available) = @_;  
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                 'addp' => 'Additional privileges',                                  'addp' => 'Additional privileges',
                                 'fixp' => 'Fixed privileges',                                  'fixp' => 'Fixed privileges',
                                 'oppr' => 'Optional privileges',                                  'oppr' => 'Optional privileges',
                                 'func' => 'Function',                                  'func' => 'Function',
     );      );
     $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::lonhtmlcommon::start_pick_box('LC_group_priv_box').
     $r->print('<tr>        &Apache::lonhtmlcommon::row_title($lt{'func'},undef,
                 <td bgcolor="'.$tabcol.'" valign="top">   'LC_groups_functionality'));
                  <table cellspacing="0" cellpadding="1">      $r->print(join('</td><td class="LC_groups_functionality">',@{$tools}));
                   <tr>      $r->print(&Apache::lonhtmlcommon::row_closure(1));
                    <td valign="top"><b>'.$lt{'func'}.'</b></td>      my $fixed = '';
                   </tr>      my $dynamic = '';
                   <tr>  
                    <td valign="top"><b>'.$lt{'fixp'}.'</b></td>  
                   </tr>  
                   <tr>  
                    <td valign="top"><b>'.$lt{'oppr'}.'</b></td>  
                   </tr>  
                  </table>  
                 </td>  
     ');  
     foreach my $tool (@{$tools}) {      foreach my $tool (@{$tools}) {
         $r->print('<td align="center" valign="top">  
                     <table cellspacing="0" cellpadding="1">  
                      <tr bgcolor="#cccccc">  
                       <td colspan="2" align="center"><b>'.$tool.'</b></td>  
                      </tr>  
         ');  
         my $privcount = 0;          my $privcount = 0;
         my $fixed = '';   if ($dynamic ne '') {
         my $dynamic = '';      $dynamic .= '</td><td class="LC_groups_optional">';
    }
    $dynamic .= '<table class="LC_group_priv"><tr>';
         foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {          foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {
             if (exists($$fixedprivs{$tool}{$priv})) {              if (exists($$fixedprivs{$tool}{$priv})) {
    if ($fixed ne '') {
       $fixed .= '</td><td class="LC_groups_fixed">';
    }
                 $fixed .= '<input type="hidden" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'&nbsp;';                  $fixed .= '<input type="hidden" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'&nbsp;';
                 if ($action eq 'modify') {                  if ($action eq 'modify') {
                     if (grep/^$tool$/,@{$available}) {                      if (grep(/^$tool$/,@{$available})) {
                         $fixed .= '<small>'.&mt('(on)').'<small>&nbsp;';                          $fixed .= '<small>'.&mt('(on)').'<small>&nbsp;';
                     } else {                      } else {
                         $fixed .= '<small>'.&mt('(off)').'<small>&nbsp;';                          $fixed .= '<small>'.&mt('(off)').'<small>&nbsp;';
                     }                      }
                 }                  }
             } else {              } else {
                 $privcount ++;                  $privcount++;
                 if ($privcount == 3) {                  if ($privcount == 3) {
                     $dynamic .= '</tr>                      $dynamic .= '</tr>
                                  <tr bgcolor="'.$rowColor1.'">'."\n";                                   <tr>'."\n";
                 }                  }
                 $dynamic .= '<td><input type="checkbox" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'</td>'."\n";                  $dynamic .= '<td><label><input type="checkbox" name="defpriv" value="'.$priv.'" />'.$$toolprivs{$tool}{$priv}.'</label></td>'."\n";
             }              }
         }          }
         if ($dynamic eq '') {          if ($privcount == 0) {
             $dynamic = '<td>None</td>'."\n";              $dynamic .= '<td>None</td>'."\n";
         }          }
         if ($privcount < 3) {          if ($privcount < 3) {
             $dynamic .= '</tr>              $dynamic .= '</td>
                          <tr bgcolor="'.$rowColor1.'">                           <td>&nbsp;</td>'."\n";
                           <td colspan="2">&nbsp;</td>'."\n";  
         } elsif ($privcount%2) {          } elsif ($privcount%2) {
             $dynamic = '<td>&nbsp;</td>'."\n";              $dynamic = '<td>&nbsp;</td>'."\n";
         }          }
         $r->print('<tr bgcolor="'.$rowColor2.'">   $dynamic .= '</tr></table>';
                     <td colspan="2" align="center"><nobr>'.$fixed.'</nobr></td>  
                    </tr>  
                    <tr bgcolor="'.$rowColor1.'">'."\n".$dynamic.'</tr>'."\n".'</table>'."\n".'</td>  
         ');  
     }      }
     $r->print('</tr>'."\n");      $r->print(&Apache::lonhtmlcommon::row_title($lt{'fixp'},undef,
     $r->print(&Apache::lonhtmlcommon::end_pick_box());   '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('<br />');      $r->print('<br />');
     return;      return;
   
 }  }
   
 sub display_defprivs {  sub display_defprivs {
     my ($r,$tabcol,$rowColor1,$rowColor2,$tools,$toolprivs,$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 %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                 'priv' => 'Privileges',                                  'priv' => 'Privileges',
                                 'func' => 'Function',                                  'func' => 'Function',
Line 1758  sub display_defprivs { Line 1973  sub display_defprivs {
         @{$currprivs{$tool}} = ();          @{$currprivs{$tool}} = ();
         foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {          foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {
             if (ref($defprivs) eq 'ARRAY') {              if (ref($defprivs) eq 'ARRAY') {
                 if (grep/^\Q$priv\E$/,@{$defprivs}) {                  if (grep(/^\Q$priv\E$/,@{$defprivs})) {
                     push(@{$currprivs{$tool}},$priv);                      push(@{$currprivs{$tool}},$priv);
                 }                  }
             }              }
Line 1816  sub display_defprivs { Line 2031  sub display_defprivs {
 sub change_members_form {  sub change_members_form {
     my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$groupname,$description,      my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$groupname,$description,
         $startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata,          $startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata,
         $granularity,$specificity,$idx,$states,$navbuttons,$rowColor1,          $granularity,$quota,$specificity,$idx,$states,$navbuttons,$rowColor1,
         $rowColor2) = @_;          $rowColor2,$gpterm,$ucgpterm) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                          grse => 'Group settings',                                           grse => "$ucgpterm settings",
                                          mogm => 'Modify group membership',                                           mogm => "Modify $gpterm membership",
                                         );                                          );
     my @regexps = ('user_','userpriv_');      my @regexps = ('user_','userpriv_');
     $r->print(&Apache::lonhtmlcommon::echo_form_input(      $r->print(&Apache::lonhtmlcommon::echo_form_input(
                          ['origin','action','state','page','expire','delete',                           ['origin','action','state','page','expire','deletion',
                           'changefunc','changepriv'],\@regexps));                            'reenable','activate','changepriv','sortby',
                             'togglefunc'],\@regexps));
     my $rowimg = 1;      my $rowimg = 1;
     my @available = ();      my @available = ();
     my @unavailable = ();      my @unavailable = ();
Line 1834  sub change_members_form { Line 2050  sub change_members_form {
     my $prevtext = $$navbuttons{'gtpp'};      my $prevtext = $$navbuttons{'gtpp'};
     $r->print('      $r->print('
 <br />  <br />
 <table width="100%" cellpadding="0" cellspacing="0" border="0">  
 ');  
     &topic_bar($r,$tabcol,1,$lt{'grse'});  
     $r->print('  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
 ');  
     &print_current_settings($r,$action,$tabcol,$rowColor1,$rowColor2,  
                             $functions,$startdate,$enddate,$groupname,  
                           $description,$granularity,\@available,\@unavailable);  
 $r->print('  
 </td></tr><tr><td colspan="4">&nbsp;</td></tr>');  
     &topic_bar($r,$tabcol,2,$lt{'mogm'});  
     $r->print('  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
 ');  ');
       &topic_bar($r,1,$lt{'grse'});
       &print_current_settings($r,$action,$functions,$startdate,$enddate,
       $groupname,$description,$granularity,$quota,
       \@available,\@unavailable,$gpterm,$ucgpterm);
       &topic_bar($r,2,$lt{'mogm'});
     &current_membership($r,$cdom,$cnum,$formname,$tabcol,$rowColor1,      &current_membership($r,$cdom,$cnum,$formname,$tabcol,$rowColor1,
                         $rowColor2,$groupname,\@available,\@unavailable,                          $rowColor2,$groupname,\@available,\@unavailable,
                         $fixedprivs,$granularity,$specificity);                          $fixedprivs,$granularity,$specificity);
     $r->print('</td>');  
     &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,      &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
                         $$states{$action}[$page+1],$nexttext);                          $$states{$action}[$page+1],$nexttext);
     $r->print('</table>');  
     return;      return;
 }  }
   
Line 1869  sub current_membership { Line 2070  sub current_membership {
     my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,      my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,
                                                                    $groupname);                                                                     $groupname);
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                             'actn' => 'Action?',
                                             'name' => 'Name',
                                             'usnm' => 'Username',
                                             'doma' => 'Domain',
                                             'stda' => 'Start Date',
                                             'enda' => 'End Date',
                                           'expi' => 'Expire',                                            'expi' => 'Expire',
                                           'reen' => 'Re-enable',                                            'reen' => 'Re-enable',
                                           'acti' => 'Activate',                                            'acti' => 'Activate',
                                           'dele' => 'Delete',                                            'dele' => 'Delete',
                                           'curf' => 'Current Functionality',                                            'curf' => 'Current Functionality',
                                           'chfn' => 'Change Functions',  
                                           'chpr' => 'Change Privileges'                                             'chpr' => 'Change Privileges' 
                                         );                                          );
     if (keys(%membership) > 0) {      my ($current,$hastools,$addtools,$num_reenable,$num_activate,$num_expire) =
         my %current = ();          &Apache::longroup::group_memberlist($cdom,$cnum,$groupname,$fixedprivs,
         my %allnames = ();                                              $available);
         my $hastools = 0;      if (keys(%{$current}) > 0) {
         my $addtools = 0;          $r->print('
         my $num_reenable = 0;  
         my $num_activate = 0;  
         my $num_expire - 0;  
         foreach my $key (sort(keys(%membership))) {  
             if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) {  
                 my $uname = $1;  
                 my $udom = $2;  
                 my $user = $uname.':'.$udom;  
                 my($end,$start,@userprivs) = split(/:/,$membership{$key});  
                 unless ($start == -1) {  
                     $allnames{$udom}{$uname} = 1;  
                     %{$current{$user}} = ();  
                     $current{$user}{uname} = $uname;  
                     $current{$user}{udom} = $udom;  
                     $current{$user}{start} =   
                                      &Apache::lonlocal::locallocaltime($start);  
                     if ($end == 0) {  
                         $current{$user}{end} =  'No end date';  
                     } else {  
                         $current{$user}{end} =   
                                      &Apache::lonlocal::locallocaltime($end);  
                     }  
                     my $now = time;  
                     if (($end > 0) && ($end < $now)) {  
                         $current{$user}{changestate} = 'reenable';  
                         $num_reenable++;  
                     } elsif (($start > $now)) {  
                         $current{$user}{changestate} = 'activate';  
                         $num_activate ++;  
                     } else {  
                         $current{$user}{changestate} = 'expire';  
                         $num_expire ++;  
                     }  
                     @{$current{$user}{currtools}} = ();  
                     @{$current{$user}{newtools}} = ();  
                     if (@userprivs > 0) {  
                         foreach my $tool (sort(keys(%{$fixedprivs}))) {  
                             foreach my $priv (keys(%{$$fixedprivs{$tool}})) {  
                                 if (grep/^$priv$/,@userprivs) {  
                                     push(@{$current{$user}{currtools}},$tool);  
                                     last;  
                                 }  
                             }  
                         }  
                         $hastools = 1;  
                     }  
                     if (@{$available} > 0) {  
                         if (@{$current{$user}{currtools}} > 0) {  
                             if ("@{$available}" ne "@{$current{$user}{currtools}}") {  
                                 foreach my $tool (@{$available}) {  
                                     unless (grep/^$tool$/,@{$current{$user}{currtools}}) {  
                                         push(@{$current{$user}{newtools}},$tool);  
                                     }  
                                 }  
                             }  
                         } else {  
                             @{$current{$user}{newtools}} = @{$available};  
                         }  
                         if (@{$current{$user}{newtools}} > 0) {  
                             $addtools = 1;  
                         }  
                     }  
                 }  
             }  
         }  
         if (keys(%current) > 0) {  
             my %idhash;  
             foreach my $udom (keys(%allnames)) {  
                 %{$idhash{$udom}} = &Apache::lonnet::idrget($udom,  
                                                 keys(%{$allnames{$udom}}));  
                 foreach my $uname (keys(%{$idhash{$udom}})) {  
                     $current{$uname.':'.$udom}{'id'} = $idhash{$udom}{$uname};  
                 }  
                 foreach my $uname (keys(%{$allnames{$udom}})) {  
                     $current{$uname.':'.$udom}{'fullname'} =  
                                 &Apache::loncommon::plainname($uname,$udom,  
                                                                   'lastname');  
                 }  
             }  
             $r->print('  
  <tr>   <tr>
   <td>&nbsp;</td>    <td>&nbsp;</td>
   <td colspan="2">    <td colspan="2">
    <table>     <table>
     <tr>');      <tr>');
             if ($num_expire) {          if ($num_expire) {
                 &check_uncheck_buttons($r,$formname,'expire',$lt{'expi'});              &check_uncheck_buttons($r,$formname,'expire',$lt{'expi'});
             }          }
             if ($num_reenable) {          if ($num_reenable) {
                 &check_uncheck_buttons($r,$formname,'reenable',$lt{'reen'});              &check_uncheck_buttons($r,$formname,'reenable',$lt{'reen'});
             }          }
             if ($num_activate) {          if ($num_activate) {
                 &check_uncheck_buttons($r,$formname,'activate',$lt{'acti'});              &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'});
             }              }
             &check_uncheck_buttons($r,$formname,'delete',$lt{'dele'});              if ($granularity eq 'Yes') {
             if (@{$available} > 0) {                  $r->print(&check_uncheck_tools($r,$available));
                 if ($granularity eq 'Yes') {                  $r->print('
                     &check_uncheck_buttons($r,$formname,'changefunc',$lt{'chfn'});  
                 }  
                 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('  
      <td>       <td>
       <nobr>        <nobr>
        <fieldset><legend><b>'.$lt{'curf'}.'</b></legend>         <fieldset><legend><b>'.$lt{'curf'}.'</b></legend>
Line 1999  sub current_membership { Line 2122  sub current_membership {
      </nobr>       </nobr>
     </td>      </td>
 ');  ');
                 }  
             }              }
             $r->print(<<"END");          }
           $r->print(<<"END");
    </tr>     </tr>
   </table>    </table>
   </td>    </td>
Line 2014  sub current_membership { Line 2137  sub current_membership {
   <td>&nbsp;</td>    <td>&nbsp;</td>
   <td colspan="3">    <td colspan="3">
 END  END
             $r->print(&Apache::lonhtmlcommon::start_pick_box());          $r->print(&Apache::lonhtmlcommon::start_pick_box());
             $r->print(<<"END");          $r->print(<<"END");
    <table border="0" cellpadding="4" cellspacing="1">     <table border="0" cellpadding="4" cellspacing="1">
     <tr bgcolor="$tabcol" align="center">      <tr bgcolor="$tabcol" align="center">
      <td><b>Action?</b></td>       <td><b>$lt{'actn'}</b></td>
      <td><b><a href="javascript:changeSort('fullname')">Name</a></b></td>       <td><b><a href="javascript:changeSort('fullname')">$lt{'name'}</a></b></td>
      <td><b><a href="javascript:changeSort('username')">Username</a></b>       <td><b><a href="javascript:changeSort('username')">$lt{'usnm'}</a></b>
      </td>       </td>
      <td><b><a href="javascript:changeSort('domain')">Domain</a></b></td>       <td><b><a href="javascript:changeSort('domain')">$lt{'doma'}</a></b></td>
      <td><b><a href="javascript:changeSort('id')">ID</a></b></td>       <td><b><a href="javascript:changeSort('id')">ID</a></b></td>
      <td><b><a href="javascript:changeSort('start')">Start Date</a></b></td>       <td><b><a href="javascript:changeSort('start')">$lt{'stda'}</a></b></td>
      <td><b><a href="javascript:changeSort('end')">End Date</a></b></td>       <td><b><a href="javascript:changeSort('end')">$lt{'enda'}</a></b></td>
 END  END
             if ($hastools) {          my $colspan = 0;
                 $r->print('<td><b>'.$lt{'curf'}.'</b></td>');          if ($hastools) {
               $r->print('<td><b>'.$lt{'curf'}.'</b></td>');
               $colspan ++;  
           }
           if ($addtools) {
               $r->print('<td><b>Additional Functionality</b></td>');
               $colspan ++;
           }
           $r->print('</tr>');
           if ($colspan) {
               if ($granularity eq 'Yes') {
                   $r->print('<tr bgcolor="#cccccc">
    <td colspan="7">&nbsp;</td>
    <td colspan="'.$colspan.'" align="center"><small><nobr><b>'.&mt('All:').
     '</b>&nbsp;');
                   foreach my $tool (@{$available}) {
                       $r->print('<label><input type="checkbox" name="togglefunc"'.
      ' onclick="javascript:toggleTools(document.'.$formname.'.user_'.$tool.',this);"'.
      ' value="'.$tool.'">'.'<b>'.$tool.'</b></label>&nbsp;&nbsp;&nbsp;');
                   }
                   $r->print('</nobr></small></td></tr>');
             }              }
             if ($addtools) {          }
                 $r->print('<td><b>Additional Functionality</b></td>');          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);
             }              }
             $r->print('</tr>');          }
             my %Sortby = ();          my $rowNum = 0;
             foreach my $user (sort(keys(%current))) {          my $rowColor;
                 if ($env{'form.sortby'} eq 'fullname') {          foreach my $key (sort(keys(%Sortby))) {
                     push(@{$Sortby{$current{$user}{fullname}}},$user);              foreach my $user (@{$Sortby{$key}}) {
                 } elsif ($env{'form.sortby'} eq 'username') {                  if ($rowNum %2 == 1) {
                     push(@{$Sortby{$current{$user}{uname}}},$user);                      $rowColor = $rowColor1;
                 } 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 {                  } else {
                     push(@{$Sortby{$current{$user}{fullname}}},$user);                      $rowColor = $rowColor2;
                 }                  }
             }                  my $id = $$current{$user}{id};
             my $rowNum = 0;                  my $fullname = $$current{$user}{fullname};
             my $rowColor;                  my $udom = $$current{$user}{udom};
             foreach my $key (sort(keys(%Sortby))) {                  my $uname = $$current{$user}{uname};
                 foreach my $user (@{$Sortby{$key}}) {                  my $start = $$current{$user}{start};
                     if ($rowNum %2 == 1) {                  my $end = $$current{$user}{end};
                         $rowColor = $rowColor1;                  $r->print('<tr bgcolor="'.$rowColor.'">
                     } else {                              <td><small>');
                         $rowColor = $rowColor2;                  if ($$current{$user}{changestate} eq 'reenable') {
                     }                      $r->print('<nobr><label>'. 
                     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('<tr bgcolor="'.$rowColor.'">  
                                 <td><small>');  
                     if ($current{$user}{changestate} eq 'reenable') {  
                         $r->print('<nobr>'.   
    '<input type="checkbox" name="reenable" value="'.$user.'" />'.     '<input type="checkbox" name="reenable" value="'.$user.'" />'.
    $lt{'reen'}.'</nobr><br />');     $lt{'reen'}.'</label></nobr><br />');
                     } elsif ($current{$user}{changestate} eq 'expire') {                  } elsif ($$current{$user}{changestate} eq 'expire') {
                         $r->print('<nobr>'.                      $r->print('<nobr><label>'.
    '<input type="checkbox" name="expire" value="'.$user.'" />'.     '<input type="checkbox" name="expire" value="'.$user.'" />'.
    $lt{'expi'}.'</nobr><br />');     $lt{'expi'}.'</label></nobr><br />');
                     } elsif ($current{$user}{changestate} eq 'activate') {                  } elsif ($$current{$user}{changestate} eq 'activate') {
                         $r->print('<nobr>'.                      $r->print('<nobr><label>'.
    '<input type="checkbox" name="activate" value="'.$user.'" />'.     '<input type="checkbox" name="activate" value="'.$user.'" />'.
    $lt{'acti'}.'</nobr><br />');     $lt{'acti'}.'</label></nobr><br />');
                     }                  }
                     $r->print('<nobr>'.                  $r->print('<nobr><label>'.
    '<input type="checkbox" name="delete" value="'.$user.'" />'.     '<input type="checkbox" name="deletion" value="'.$user.'" />'.
    $lt{'dele'}.'</nobr>');     $lt{'dele'}.'</label></nobr>');
                     if ($granularity eq 'Yes') {                  if ($specificity eq 'Yes') {
                         $r->print('<br /><nobr>'.                      $r->print('<br /><nobr><label>'.
    '<input type="checkbox" name="changefunc" value="'.$user.'" />'.$lt{'chfn'}.  
    '</nobr>');  
                     }  
                     if ($specificity eq 'Yes') {  
                         $r->print('<br /><nobr>'.  
    '<input type="checkbox" name="changepriv" value="'.$user.'" />'.$lt{'chpr'}.     '<input type="checkbox" name="changepriv" value="'.$user.'" />'.$lt{'chpr'}.
    '</nobr>');     '</label></nobr>');
                     }                  }
                     $r->print('                  $r->print('
    </td>     </td>
    <td><small>'.     <td><small>'.
     $fullname.'</small></td><td><small>'.$uname.'</small></td><td><small>'.      $fullname.'</small></td><td><small>'.$uname.'</small></td><td><small>'.
     $udom.'</small></td><td><small>'.$id.'</small></td><td><small>'.$start.      $udom.'</small></td><td><small>'.$id.'</small></td><td><small>'.$start.
     '</small></td><td><small>'.$end.'</small></td>');      '</small></td><td><small>'.$end.'</small></td>');
                     if ($hastools) {                  if ($hastools) {
                         $r->print('<td align="left"><small><nobr>');                      $r->print('<td align="left"><small><nobr>'.
                         foreach my $tool (@{$current{$user}{currtools}}) {                                    '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;');
                             if ($granularity eq 'Yes') {                      foreach my $tool (@{$$current{$user}{currtools}}) {
                                 $r->print('<input type="checkbox"   
                                        checked="checked"    
                                        name="user_'.$tool.'" value="'.  
                                        $user.'" />');  
                              } else {  
                                $r->print('<input type="hidden"  
                                        checked="checked"  
                                        name="user_'.$tool.'" value="'.  
                                        $user.'" />');  
                              }  
                              $r->print($tool.'&nbsp;&nbsp;&nbsp;');  
                         }  
                         $r->print('</nobr></small></td>');  
                     }  
                     if ($addtools) {  
                         $r->print('<td align="left"><small>');  
                         if ($granularity eq 'Yes') {                          if ($granularity eq 'Yes') {
                             foreach my $tool (@{$current{$user}{newtools}}) {                              $r->print('<label><input type="checkbox" '. 
                                 $r->print('<nobr><input type="checkbox"                                           'checked="checked" '. 
                                          'name="user_'.$tool.'" value="'.
                                          $user.'" />'.$tool.'</label>');
                            } else {
                                $r->print('<input type="hidden" '.
                                          'checked="checked" '.
                                          'name="user_'.$tool.'" value="'.
                                          $user.'" />'.$tool);
                            }
                            $r->print('&nbsp;&nbsp;&nbsp;');
                       }
                       $r->print('</nobr></small></td>');
                   }
                   if ($addtools) {
                       $r->print('<td align="left"><small>');
                       if ($granularity eq 'Yes') {
                           foreach my $tool (@{$$current{$user}{newtools}}) {
                               $r->print('<nobr><label><input type="checkbox"
                                           name="user_'.$tool.'" value="'.                                            name="user_'.$tool.'" value="'.
                                           $user.'" />'.$tool.                                            $user.'" />'.$tool.
                                                   '</nobr>&nbsp;&nbsp;&nbsp;');                                            '</label></nobr>&nbsp;&nbsp;&nbsp;');
                             }                          }
                         } else {                      } else {
                             foreach my $tool (@{$current{$user}{newtools}}) {                          foreach my $tool (@{$$current{$user}{newtools}}) {
                                 $r->print('<nobr><input type="hidden"                               $r->print('<nobr><input type="hidden" 
                                           name="user_'. $tool.'" value="'.                                            name="user_'. $tool.'" value="'.
                                           $user.'" />'.$tool.                                            $user.'" />'.$tool.
                                           '</nobr>&nbsp;&nbsp;&nbsp;');                                            '</nobr>&nbsp;&nbsp;&nbsp;');
                             }  
                         }                          }
                         $r->print('</small></td>');  
                     }                      }
                     $r->print('</tr>'."\n");                      $r->print('</small></td>');
                     $rowNum ++;  
                 }                  }
                   $r->print('</tr>'."\n");
                   $rowNum ++;
             }              }
             $r->print(&Apache::lonhtmlcommon::end_pick_box());          }
             $r->print('          $r->print(&Apache::lonhtmlcommon::end_pick_box());
           $r->print('
   </td>    </td>
  </tr>');   </tr>');
         }  
     }      }
     return;      return;
 }  }
Line 2167  sub check_uncheck_buttons { Line 2302  sub check_uncheck_buttons {
   
   
 sub change_privs_form {  sub change_privs_form {
     my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$startdate,$enddate,      my ($r,$cdom,$cnum,$action,$formname,$page,$startdate,$enddate,
        $tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,   $tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,
        $memchg,$idx,$states,$stored,$sectioncount,$navbuttons,$rowColor1,   $memchg,$idx,$states,$stored,$sectioncount,$navbuttons,$gpterm,
        $rowColor2) = @_;   $ucgpterm) = @_;
     my @regexps = ('userpriv_');      my @regexps = ('userpriv_');
     my $nexttext;      my $nexttext;
                                                                                             my %lt = &Apache::lonlocal::texthash(
                  'tode' => 'To be deleted',
                  'toex' => 'To be expired',
                  'nome' => "No members to be deleted or expired from the $gpterm.",
       );
     $r->print(&Apache::lonhtmlcommon::echo_form_input(      $r->print(&Apache::lonhtmlcommon::echo_form_input(
          ['origin','action','state','page'],\@regexps));           ['origin','action','state','page','sortby'],\@regexps));
     $nexttext = $$navbuttons{'adme'};      if ($env{'form.branch'} eq 'adds') {
                                                                                                 $nexttext = $$navbuttons{'adme'};
     $r->print('<br /><table width="100%" cellpadding="0" cellspacing="0" border="0">');      } else {
           $nexttext = $$navbuttons{'mose'};
       }
       &topic_bar($r,3,&mt('Members to delete or expire'));
       my $exp_or_del = 0;
       if (ref($$memchg{'deletion'}) eq 'ARRAY') {
           if (@{$$memchg{'deletion'}} > 0) {
               $r->print('<tr><td>&nbsp;</td><td colspan="3"><b>'.$lt{'tode'}.':</b><br /><ul>');
               foreach my $user (@{$$memchg{'deletion'}}) {
                   $r->print('<li>'.$$userdata{$user}[$$idx{fullname}].
                             '&nbsp;('.$user.')</li>');
               }
               $r->print('</ul>');
               $exp_or_del += @{$$memchg{'deletion'}};
           }
       }
       if (ref($$memchg{'expire'}) eq 'ARRAY') {
           if (@{$$memchg{'expire'}} > 0) {
               $r->print('<tr><td>&nbsp;</td><td colspan="3"><b>'.$lt{'toex'}.':</b><br /><ul>');
               foreach my $user (@{$$memchg{'expire'}}) {
                   $r->print('<li>'.$$userdata{$user}[$$idx{fullname}].
                             '&nbsp;('.$user.')</li>');
               }
               $r->print('</ul>');
               $exp_or_del += @{$$memchg{'expire'}};
           }
       }
       if (!$exp_or_del) {
           $r->print($lt{'nome'}.'<br />');
       }
           
     &topic_bar($r,$tabcol,3,&mt('Group member privileges'));      &topic_bar($r,4,&mt('[_1] member privileges',$ucgpterm));
                                                                                         
     &member_privileges_form($r,$tabcol,$action,$formname,$tools,$toolprivs,      my $numchgs = &member_privileges_form($r,$action,$formname,$tools,
                             $fixedprivs,$userdata,$usertools,$idx,$memchg,                                            $toolprivs,$fixedprivs,$userdata,
                             $states,$stored,$rowColor1,$rowColor2);                                            $usertools,$idx,$memchg,$states,
                                                                                                                                   $stored,$gpterm);
     $r->print('</td></tr><tr><td colspan="4">&nbsp;</td></tr>');  
     my $prevtext = $$navbuttons{'gtps'};      my $prevtext = $$navbuttons{'gtps'};
     &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,      if ($numchgs || $exp_or_del) {
                         $$states{$action}[$page+1],$nexttext);          &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
     $r->print('</table>');                              $$states{$action}[$page+1],$nexttext);
       } else {
           &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext);
       }
     return;      return;
 }  }
   
 sub add_members_form {  sub add_members_form {
     my ($r,$tabcol,$action,$formname,$page,$startdate,$enddate,$groupname,      my ($r,$tabcol,$action,$formname,$page,$startdate,$enddate,$groupname,
         $description,$granularity,$sectioncount,$tools,$functions,$stored,          $description,$granularity,$quota,$sectioncount,$tools,$functions,
         $states,$navbuttons,$rowColor1,$rowColor2) = @_;           $stored,$states,$navbuttons,$rowColor1,$rowColor2,$gpterm,$ucgpterm)=@_; 
     $r->print(' <br />      $r->print(' <br />');
 <table width="100%" cellpadding="0" cellspacing="0" border="0">  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
 ');  
     my @available = ();      my @available = ();
     my @unavailable = ();      my @unavailable = ();
     &check_tools($functions,$tools,\@available,\@unavailable);      &check_tools($functions,$tools,\@available,\@unavailable);
     &print_current_settings($r,$action,$tabcol,$rowColor1,$rowColor2,      &print_current_settings($r,$action,$functions,$startdate,$enddate,
                             $functions,$startdate,$enddate,$groupname,      $groupname,$description,$granularity,$quota,
                             $description,$granularity,\@available,\@unavailable);      \@available,\@unavailable,$gpterm,$ucgpterm);
     $r->print('      &membership_options($r,$action,$formname,$sectioncount,1,$gpterm,$ucgpterm);
    </td>  
   </tr>  
   <tr>  
    <td colspan="4">&nbsp;</td>  
   </tr>');  
   
     &membership_options($r,$action,$formname,$tabcol,$sectioncount,1);  
     my $nexttext = $$navbuttons{'gtns'};      my $nexttext = $$navbuttons{'gtns'};
     my $prevtext = $$navbuttons{'gtpp'};      my $prevtext = $$navbuttons{'gtpp'};
     &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,      &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
                         $$states{$action}[$page+1],$nexttext);                          $$states{$action}[$page+1],$nexttext);
     $r->print('  
  </table>');  
     return;      return;
 }  }
   
 sub choose_privs_form {  sub choose_privs_form {
     my ($r,$cdom,$cnum,$tabcol,$action,$formname,$page,$startdate,$enddate,      my ($r,$cdom,$cnum,$action,$formname,$page,$startdate,$enddate,
        $tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,$idx,   $tools,$functions,$toolprivs,$fixedprivs,$userdata,$usertools,$idx,
        $states,$stored,$sectioncount,$navbuttons,$rowColor1,$rowColor2) = @_;   $states,$stored,$sectioncount,$navbuttons,$gpterm,$ucgpterm,
    $crstype) = @_;
   
     my @regexps = ('userpriv_');      my @regexps = ('userpriv_');
     my $nexttext;      my $nexttext;
Line 2238  sub choose_privs_form { Line 2395  sub choose_privs_form {
     if ($action eq 'create') {      if ($action eq 'create') {
         push(@regexps,'sec_');          push(@regexps,'sec_');
         $r->print(&Apache::lonhtmlcommon::echo_form_input(          $r->print(&Apache::lonhtmlcommon::echo_form_input(
          ['origin','action','state','page','autoadd','autodrop'],           ['origin','action','state','page','sortby','autoadd','autodrop'],
          \@regexps));           \@regexps));
         $nexttext = $$navbuttons{'crgr'};          $nexttext = $$navbuttons{'crgr'};
     } else {      } else {
         $r->print(&Apache::lonhtmlcommon::echo_form_input(          $r->print(&Apache::lonhtmlcommon::echo_form_input(
          ['origin','action','state','page'],\@regexps));           ['origin','action','state','page','sortby'],\@regexps));
         $nexttext = $$navbuttons{'adme'};          $nexttext = $$navbuttons{'adme'};
     }      }
   
     $r->print('<br /><table width="100%" cellpadding="0" cellspacing="0" border="0">');      &topic_bar($r,6,&mt('[_1] member privileges',$ucgpterm));
     &topic_bar($r,$tabcol,6,&mt('Group member privileges'));  
   
     &member_privileges_form($r,$tabcol,$action,$formname,$tools,$toolprivs,      &member_privileges_form($r,$action,$formname,$tools,$toolprivs,
                             $fixedprivs,$userdata,$usertools,$idx,undef,                              $fixedprivs,$userdata,$usertools,$idx,undef,
                             $states,$stored,$rowColor1,$rowColor2);                              $states,$stored,$gpterm);
   
     $r->print('</td></tr><tr><td colspan="4">&nbsp;</td></tr>');  
     if ($action eq 'create') {      if ($action eq 'create') {
         if (keys(%{$sectioncount}) > 0) {          if (keys(%{$sectioncount}) > 0) {
             my $img1 = 7;              my $img1 = 7;
             my $img2 = 8;              my $img2 = 8;
             &mapping_options($r,$action,$formname,$page,$tabcol,$sectioncount,              &mapping_options($r,$action,$formname,$page,$sectioncount,
                              $states,$stored,$navbuttons,$img1,$img2,                               $states,$stored,$navbuttons,$img1,$img2,
                              $rowColor1,$rowColor2);                               $gpterm,$ucgpterm,$crstype);
         }          }
     }      }
     my $prevtext = $$navbuttons{'gtps'};      my $prevtext = $$navbuttons{'gtps'};
     &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,      &display_navbuttons($r,$formname,$$states{$action}[$page-1],$prevtext,
                         $$states{$action}[$page+1],$nexttext);                          $$states{$action}[$page+1],$nexttext);
     $r->print('</table>');  
     return;      return;
 }  }
   
 sub build_boxes {  sub build_boxes {
     my ($r,$tools,$usertools,$fixedprivs,$toolprivs,$showtools,      my ($r,$tools,$usertools,$fixedprivs,$toolprivs,$showtools,
         $showboxes,$prefix,$specificity) = @_;          $showboxes,$prefix,$specificity,$excluded) = @_;
     my $totalboxes = 0;      my $totalboxes = 0;
     if (@{$tools} > 0) {      if (@{$tools} > 0) {
         if ($specificity eq 'Yes') {          if ($specificity eq 'Yes') {
             foreach my $tool (@{$tools}) {              foreach my $tool (@{$tools}) {
                 @{$$showboxes{$tool}} = ();                  @{$$showboxes{$tool}} = ();
                 foreach my $user (sort(keys(%{$usertools}))) {                  foreach my $user (sort(keys(%{$usertools}))) {
                     unless (grep/^$tool$/,@{$showtools}) {                      if (ref($excluded) eq 'ARRAY') {
                         push(@{$showtools},$tool);                          if (grep/^$user$/,@{$excluded}) {
                               next;
                           }
                     }                      }
                     foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {                      if ($$usertools{$user}{$tool}) {
                         unless (exists($$fixedprivs{$tool}{$priv})) {                          unless (grep/^$tool$/,@{$showtools}) {
                             unless(grep(/^$priv$/,@{$$showboxes{$tool}})) {                              push(@{$showtools},$tool);
                                 push(@{$$showboxes{$tool}},$priv);                          }
                                 $totalboxes ++;                          foreach my $priv (sort(keys(%{$$toolprivs{$tool}}))) {
                               unless (exists($$fixedprivs{$tool}{$priv})) {
                                   unless(grep(/^$priv$/,@{$$showboxes{$tool}})) {
                                       push(@{$$showboxes{$tool}},$priv);
                                       $totalboxes ++;
                                   }
                             }                              }
                         }                          }
                     }                      }
Line 2323  function uncheckAllTools(formname) { Line 2484  function uncheckAllTools(formname) {
 }  }
   
 sub member_privileges_form {  sub member_privileges_form {
     my ($r,$tabcol,$action,$formname,$tools,$toolprivs,$fixedprivs,$userdata,      my ($r,$action,$formname,$tools,$toolprivs,$fixedprivs,$userdata,
         $usertools,$idx,$memchg,$states,$stored,$rowColor1,$rowColor2) = @_;          $usertools,$idx,$memchg,$states,$stored,$gpterm) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
             'addp' => 'Additional privileges',              'addp' => 'Additional privileges',
             'fixp' => 'Fixed privileges',              'fixp' => 'Fixed privileges',
Line 2333  sub member_privileges_form { Line 2494  sub member_privileges_form {
             'forf' => 'For the functionality you have chosen to include '.              'forf' => 'For the functionality you have chosen to include '.
                       'there are no optional privileges to set besides '.                        'there are no optional privileges to set besides '.
                       'the standard privileges.',                        'the standard privileges.',
             'algr' => 'All group members will receive the same privileges.',              'algr' => "All $gpterm members will receive the same privileges.",
             'asno' => 'As no group members are being added, '.              'asno' => "As no $gpterm members are being added, ".
                       'there are no specific user privileges to set.',                        "there are no specific user privileges to set.",
             'asng' => 'As no group tools will be made available to users, '.              'asng' => "As no $gpterm tools will be made available to users, ".
                       'there are no specific user privileges to set.',                        "there are no specific user privileges to set.",
               'nogm' => "No $gpterm member privileges to display or set, ".
                         "as you have not indicated that you will be activating,".
                         " re-enabling, changing privileges, or adding/removing ".
                         "functionality for any current members ",
             'full' => 'Fullname',              'full' => 'Fullname',
             'user' => 'Username',              'user' => 'Username',
             'doma' => 'Domain',              'doma' => 'Domain',
Line 2350  sub member_privileges_form { Line 2515  sub member_privileges_form {
         }          }
         $specificity = $env{'form.specificity'};          $specificity = $env{'form.specificity'};
     } else {      } else {
         @defprivs = @{$$stored{'defpriv'}};          if (defined($$stored{'defpriv'})) {
               @defprivs = @{$$stored{'defpriv'}};
           }
         $specificity = $$stored{'specificity'};          $specificity = $$stored{'specificity'};
     }      }
     my @showtools;      my @showtools;
     my %showboxes = ();      my %showboxes = ();
     my $totalboxes = 0;  
     my $numtools = 1 + @{$tools};      my $numtools = 1 + @{$tools};
   
     $totalboxes = &build_boxes($r,$tools,$usertools,$fixedprivs,$toolprivs,      my @excluded = ();
                                \@showtools,\%showboxes,'userpriv_',      my $numchgs = 0;
                                $specificity);      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 (@{$tools} > 0) {
         if ($specificity eq 'Yes') {          if ($specificity eq 'Yes') {
             if ($totalboxes > 0) {              if ($totalboxes > 0) {
                 my $numcells = 2;                  my $numcells = 2;
                 my $colspan = $numcells + 1;                  my $colspan = $numcells + 1;
                 my %total;                  my %total;
                 $r->print('                  if (keys(%{$usertools}) > 1) {
  <tr>                      $r->print('
   <td>&nbsp;</td>     <table border="0" cellspacing="2" cellpadding="2">
   <td colspan="3">  
    <table border="0" cellspacing="2" cellpadding="2" border="0">  
     <tr>      <tr>
 ');  ');
                 foreach my $tool (@{$tools}) {                      foreach my $tool (@{$tools}) {
                     if (@{$showboxes{$tool}} > 0) {                          if (@{$showboxes{$tool}} > 0) {
                         $r->print('<td valign="top">');                              $r->print('<td valign="top">');
                         $r->print('<table class="thinborder"><tr bgcolor="'.$tabcol.                              $r->print('<table class="thinborder"><tr>'.
                       '"><th colspan="'.$colspan.'">'.$tool.'</th></tr><tr>');        '<th colspan="'.$colspan.'">'.
                         my $privcount = 0;                                        $tool.'</th></tr><tr>');
                         foreach my $priv (@{$showboxes{$tool}}) {                              my $privcount = 0;
                             $privcount ++;                              foreach my $priv (@{$showboxes{$tool}}) {
                             if (($privcount == @{$showboxes{$tool}}) && ($privcount > 1)) {                                  $privcount ++;
                                 if ($privcount%$numcells) {                                  if (($privcount == @{$showboxes{$tool}}) && 
                                     $r->print('<td colspan="'.$colspan.'">');                                      ($privcount > 1)) {
                                       if ($privcount%$numcells) {
                                           $r->print('<td colspan="'.$colspan.'">');
                                       } else {
                                           $r->print('<td>');
                                       }
                                 } else {                                  } else {
                                     $r->print('<td>');                                      $r->print('<td>');
                                 }                                  }
                             } else {                                  $r->print(qq|
                                 $r->print('<td>');  
                             }  
                             $r->print(qq|  
        <fieldset><legend><b>$$toolprivs{$tool}{$priv}</b></legend>         <fieldset><legend><b>$$toolprivs{$tool}{$priv}</b></legend>
        <nobr>         <nobr>
        <input type="button" value="check all"         <input type="button" value="check all"
Line 2400  sub member_privileges_form { Line 2593  sub member_privileges_form {
        <input type="button" value="uncheck all"         <input type="button" value="uncheck all"
         onclick="javascript:uncheckAll(document.$formname.userpriv_$priv)" />          onclick="javascript:uncheckAll(document.$formname.userpriv_$priv)" />
       </nobr></fieldset><br />|);        </nobr></fieldset><br />|);
                             $r->print('</td>');                                  $r->print('</td>');
                             if ($privcount < @{$showboxes{$tool}}) {                                  if ($privcount < @{$showboxes{$tool}}) {
                                 if (@{$showboxes{$tool}} > 2) {                                      if (@{$showboxes{$tool}} > 2) {
                                     if ($privcount%$numcells == 0) {                                          if ($privcount%$numcells == 0) {
                                         $r->print('</tr><tr>');                                              $r->print('</tr><tr>');
                                           }
                                       } else {
                                           $r->print('<tr></tr>');
                                     }                                      }
                                 } else {  
                                     $r->print('<tr></tr>');  
                                 }                                  }
                             }                              }
                               $r->print('</tr></table></td><td>&nbsp;</td>');
                         }                          }
                         $r->print('</tr></table></td><td>&nbsp;</td>');  
                     }                      }
                       $r->print('</tr></table>');
                 }                  }
                 $r->print('</tr></table></td></tr>');                  $r->print(&Apache::loncommon::start_data_table().
                 $r->print('<tr><td colspan="4">&nbsp;</td></tr><tr><td>&nbsp;</td><td colspan="3">');    &Apache::loncommon::start_data_table_header_row());
                 $r->print(&Apache::lonhtmlcommon::start_pick_box());  
                 $r->print(<<"END");                  $r->print(<<"END");
    <tr bgcolor="$tabcol">      <th>$lt{'full'}</th>
     <th><b>$lt{'full'}</th>      <th>$lt{'user'}</th>
     <th><b>$lt{'user'}</th>  
     <th>$lt{'doma'}</th>      <th>$lt{'doma'}</th>
     <th colspan="$numtools">$lt{'addp'}</th>      <th colspan="$numtools">$lt{'addp'}</th>
   </tr>  
 END  END
                 &member_privs_entries($r,$tabcol,$rowColor1,$rowColor2,                  $r->print(&Apache::loncommon::end_data_table_header_row());
                                       $usertools,$toolprivs,$fixedprivs,                  &member_privs_entries($r,$usertools,$toolprivs,$fixedprivs,
                                       $userdata,$idx,\@showtools,\@defprivs);                                        $userdata,$idx,\@showtools,\@defprivs,
                 $r->print('</td>');                                        \@excluded);
                 $r->print(&Apache::lonhtmlcommon::end_pick_box());                  $r->print(&Apache::loncommon::end_data_table());
                 $r->print('</td></tr>  
  <tr>  
   <td colspan="4">&nbsp;</td>  
  </tr>  
 ');  
             } else {              } else {
                 $r->print('<tr><td>&nbsp;</td><td colspan="3">'.$lt{'forf'}.                  $r->print($lt{'forf'}.'<br />');
                           '<br />');                  &display_defprivs($r,$tools,$toolprivs,\@defprivs);
                 &display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools,  
                             $toolprivs,\@defprivs);  
                                                                                         
             }              }
         } else {          } else {
             if (keys(%{$usertools}) > 0) {              if (keys(%{$usertools}) > 0) {
                 $r->print('<tr><td>&nbsp;</td><td colspan="3">'.$lt{'algr'}.                  $r->print($lt{'algr'}.'<br /><br />');
                           '<br /><br />');                  &display_defprivs($r,$tools,$toolprivs,\@defprivs);
                 &display_defprivs($r,$tabcol,$rowColor1,$rowColor2,$tools,  
                             $toolprivs,\@defprivs);  
             } else {              } else {
                 $r->print('<tr><td>&nbsp;</td><td colspan="3">'.$lt{'asno'}.                  $r->print($lt{'asno'}.'<br />');
                           '<br />');  
             }              }
         }          }
     } else {      } else {
         $r->print('<tr><td>&nbsp;</td><td colspan="3">'.$lt{'asng'});          $r->print($lt{'asng'});
     }      }
     return;      return $numchgs;
 }  }
   
 sub process_request {  sub process_request {
     my ($r,$cdom,$cnum,$tabcol,$action,$state,$page,$groupname,$description,      my ($r,$cdom,$cnum,$action,$state,$page,$groupname,$description,
         $specificity,$userdata,$startdate,$enddate,$tools,$functions,$toolprivs,          $specificity,$userdata,$startdate,$enddate,$tools,$functions,$toolprivs,
         $usertools,$idx,$types,$roles,$sections,$states,$navbuttons,$memchg,          $usertools,$idx,$types,$roles,$sections,$states,$navbuttons,$memchg,
         $sectioncount,$stored,$rowColor1,$rowColor2) = @_;          $sectioncount,$stored,$gpterm,$ucgpterm,$crstype) = @_;
   
     $r->print(&Apache::lonhtmlcommon::echo_form_input(      $r->print(&Apache::lonhtmlcommon::echo_form_input(
                                         ['origin','action','state','page']));                                   ['origin','action','state','page','sortby']));
   
     my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum);      my $earlyout = &validate_groupname($groupname,$action,$cdom,$cnum,$gpterm,
                                          $ucgpterm,$crstype);
     if ($earlyout) {      if ($earlyout) {
         $r->print('          $r->print('
 <table width="100%" cellpadding="0" cellspacing="0" border="0">  <table width="100%" cellpadding="0" cellspacing="0" border="0">
Line 2503  sub process_request { Line 2685  sub process_request {
             @defprivs = @temp;               @defprivs = @temp; 
         }          }
     } else {      } else {
         @defprivs = @{$$stored{'defpriv'}};          if (defined($$stored{'defpriv'})) {
               @defprivs = @{$$stored{'defpriv'}};
           }
     }      }
   
     my $outcome;      my $outcome;
Line 2512  sub process_request { Line 2696  sub process_request {
                                      $description,$startdate,$enddate,                                       $description,$startdate,$enddate,
                                      $specificity,$functions,$tools,                                       $specificity,$functions,$tools,
                                      $sectioncount,$roles,$types,$sections,                                       $sectioncount,$roles,$types,$sections,
                                      \@defprivs,$stored);                                        \@defprivs,$stored,$gpterm,$ucgpterm,
                                        $crstype); 
     }      }
     if (($action eq 'create' && $outcome eq 'ok') || (($action eq 'modify') &&       if (($action eq 'create' && $outcome eq 'ok') || (($action eq 'modify') && 
        (($state eq 'memresult') || ($state eq 'addresult')))) {         (($state eq 'memresult') || ($state eq 'addresult')))) {
         &process_membership($r,$cdom,$cnum,$groupname,$tools,$enddate,          &process_membership($r,$cdom,$cnum,$action,$state,$groupname,$tools,
                             $startdate,$userdata,$idx,$toolprivs,$usertools,                              $enddate,$startdate,$userdata,$idx,$toolprivs,
                             $specificity,\@defprivs);                              $usertools,$specificity,\@defprivs,$memchg,$gpterm,
                               $ucgpterm);
     }      }
     return;      return;
 }  }
Line 2526  sub process_request { Line 2712  sub process_request {
 sub write_group_data {  sub write_group_data {
     my ($r,$cdom,$cnum,$action,$state,$groupname,$description,$startdate,      my ($r,$cdom,$cnum,$action,$state,$groupname,$description,$startdate,
         $enddate,$specificity,$functions,$tools,$sectioncount,$roles,$types,          $enddate,$specificity,$functions,$tools,$sectioncount,$roles,$types,
         $sections,$defprivs,$stored) = @_;          $sections,$defprivs,$stored,$gpterm,$ucgpterm,$crstype) = @_;
     my $now = time;      my $now = time;
     my $creation = $now;      my $creation = $now;
     my $creator = $env{'user.name'}.':'.$env{'user.domain'};      my $creator = $env{'user.name'}.':'.$env{'user.domain'};
Line 2534  sub write_group_data { Line 2720  sub write_group_data {
         $creation = $$stored{'creation'};          $creation = $$stored{'creation'};
         $creator = $$stored{'creator'};          $creator = $$stored{'creator'};
     }      }
     my $esc_description = &Apache::lonnet::escape($description);      my $esc_description = &escape($description);
     my @single_attributes = ('description','functions','startdate','enddate',      my @single_attributes = ('description','functions','startdate','enddate',
                              'creation','modified','creator','granularity',                               'creation','modified','creator','granularity',
                              'specificity','autoadd','autodrop');                               'specificity','autoadd','autodrop','quota');
     my @mult_attributes = ('roles','types','sectionpick','defpriv');      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 file repository in this [_1] contained invalid characters, so it has been set to 0 Mb. You can change this by modifying the [_1] settings.<br />',$gpterm));
       }
       if ($quota > $maxposs) {
           $quota = $maxposs;
           $r->print(&mt('The value you entered for the quota for the file repository in this [_1] exceeded the maximum possible value, so it has been set to [_2] Mb (the maximum possible value).<br />',$gpterm,$maxposs));
       }
     my %groupinfo = (      my %groupinfo = (
                      description => $esc_description,                       description => $esc_description,
                      startdate => $startdate,                       startdate => $startdate,
Line 2551  sub write_group_data { Line 2753  sub write_group_data {
                      specificity => $specificity,                       specificity => $specificity,
                      autoadd => $env{'form.autoadd'},                       autoadd => $env{'form.autoadd'},
                      autodrop => $env{'form.autodrop'},                       autodrop => $env{'form.autodrop'},
                        quota => $quota,
                    );                     );
   
     foreach my $func (keys(%{$functions})) {      foreach my $func (keys(%{$functions})) {
         my $status;          my $status;
         if (grep(/^$func$/,@{$tools})) {          if (grep(/^$func$/,@{$tools})) {
Line 2578  sub write_group_data { Line 2782  sub write_group_data {
     }      }
     my $autosec;      my $autosec;
     my @autorole = &Apache::loncommon::get_env_multiple('form.autorole');      my @autorole = &Apache::loncommon::get_env_multiple('form.autorole');
                                                                                       
     foreach my $role (@autorole) {      foreach my $role (@autorole) {
         if (defined($env{'form.sec_'.$role})) {          if (defined($env{'form.sec_'.$role})) {
             my @autosections=&Apache::loncommon::get_env_multiple('form.sec_'.              my @autosections=&Apache::loncommon::get_env_multiple('form.sec_'.
                                                                   $role);                                                                    $role);
             if (grep/^_all$/,@autosections) {  
                 @autosections = sort {$a cmp $b} keys(%{$sectioncount});  
             }  
             $autosec .= '<role id="'.$role.'">';              $autosec .= '<role id="'.$role.'">';
             foreach my $sec (@autosections) {              foreach my $sec (@autosections) {
                 $autosec .= '<section>'.$sec.'</section>';                  $autosec .= '<section>'.$sec.'</section>';
Line 2601  sub write_group_data { Line 2802  sub write_group_data {
   
     if ($result eq 'ok') {      if ($result eq 'ok') {
         if ($action eq 'create') {          if ($action eq 'create') {
             my $put_result = &create_homepage($cdom,$cnum,$groupname,              my $result = &add_group_folder($cdom,$cnum,$now,$groupname,$action,
                                               \%groupinfo,$tools);                                             $description,$tools,\%groupinfo,
             $r->print('Group '.$groupname.' was created.<br />');                                             $gpterm,$ucgpterm,$crstype);
               if ($result ne 'ok') {
                   $r->print(&mt('A problem occurred when creating folders for the new [_1]. [_2].<br />',$gpterm,$result));
               }
               $r->print(&mt('[_1] [_2] was created.<br />',$ucgpterm,$groupname));
         } else {          } else {
             $r->print('Group '.$groupname.' was updated.<br />');              $r->print(&mt('[_1] [_2] was updated.<br />',$ucgpterm,$groupname));
         }          }
     } else {      } else {
         my %actiontype = (          my %actiontype = (
                           'create' => 'creating',                            'create' => 'creating',
                           'modify' => 'modifying',                            'modify' => 'modifying',
                          );                           );
         &Apache::lonnet::logthis('Failed to store group '.$groupname.          &Apache::lonnet::logthis("Failed to store $gpterm $groupname ".
                                  'in course: '.$cnum.' in domain: '.$cdom);                                   'in '.lc($crstype).': '.$cnum.
         $r->print(&mt('An error occurred when [_1] the new group. '.                                   ' in domain: '.$cdom);
                       'Please try again.',$actiontype{$action}));          $r->print(&mt('An error occurred when [_1] the [_2]. '.
                         'Please try again.',$actiontype{$action},$gpterm));
     }      }
     return $result;      return $result;
 }  }
   
 sub process_membership {  sub process_membership {
     my ($r,$cdom,$cnum,$groupname,$tools,$enddate,$startdate,$userdata,$idx,      my ($r,$cdom,$cnum,$action,$state,$groupname,$tools,$enddate,$startdate,
         $toolprivs,$usertools,$specificity,$defprivs) = @_;          $userdata,$idx,$toolprivs,$usertools,$specificity,$defprivs,$memchg,
           $gpterm,$ucgpterm)=@_;
     my %usersettings = ();      my %usersettings = ();
     my @added= ();      my %added= ();
     my @failed = ();      my %failed = ();
       my $num_ok = 0;
       my $num_fail = 0;
     my %group_privs = ();      my %group_privs = ();
       my %curr_privs = ();
       my %curr_start = ();
       my %curr_end = ();
     my %tooltype = ();      my %tooltype = ();
   
     foreach my $tool (@{$tools}) {      foreach my $tool (@{$tools}) {
Line 2637  sub process_membership { Line 2849  sub process_membership {
                   &Apache::loncommon::get_env_multiple('form.userpriv_'.$priv);                    &Apache::loncommon::get_env_multiple('form.userpriv_'.$priv);
                 foreach my $user (@users) {                  foreach my $user (@users) {
                     $group_privs{$user} .= $priv.':';                      $group_privs{$user} .= $priv.':';
                       if ($state eq 'memresult') { 
                           unless (exists($$usertools{$user}{$tool})) {
                               $$usertools{$user}{$tool} = 1;
                           }
                       }
                 }                  }
             } else {              } else {
                 if (@{$defprivs} > 0) {                  if (@{$defprivs} > 0) {
                     foreach my $priv (@{$defprivs}) {                      if (grep/^\Q$priv\E$/,@{$defprivs}) {
                         foreach my $user (sort(keys(%{$usertools}))) {                          foreach my $user (sort(keys(%{$usertools}))) {
                             if ($$usertools{$user}{$tool}) {                              if ($$usertools{$user}{$tool}) {
                                 $group_privs{$user} .= $priv.':';                                  $group_privs{$user} .= $priv.':';
Line 2655  sub process_membership { Line 2872  sub process_membership {
         $group_privs{$user} =~ s/:$//;          $group_privs{$user} =~ s/:$//;
     }      }
   
       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}) 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','')
                                                            eq 'ok') {
                       push(@{$added{'deleted'}},$user);
                       $num_ok ++;
                   } else {
                       push(@{$failed{'deleted'}},$user);
                       $num_fail ++;
                   }
               }
           }
       }
   
     foreach my $user (sort(keys(%{$usertools}))) {      foreach my $user (sort(keys(%{$usertools}))) {
         $usersettings{$groupname.':'.$user} = $enddate.':'.$startdate.':'.          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 = 'reenabled';
                   }
               }
               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';
           }
           $usersettings{$groupname.':'.$user} = $end.':'.$start.':'.
                                               $group_privs{$user};                                                $group_privs{$user};
         if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,          if (&Apache::lonnet::modify_group_roles($cdom,$cnum,$groupname,
                                                 $user,$enddate,$startdate,                                                  $user,$end,$start,
                                                 $group_privs{$user}) eq 'ok') {                                                  $group_privs{$user}) eq 'ok') {
             push(@added,$user);              push(@{$added{$type}},$user);
               $num_ok ++;
         } else {          } else {
             push(@failed,$user);              push(@{$failed{$type}},$user);
               $num_fail ++;
         }          }
     }      }
     my $roster_result = &Apache::lonnet::modify_coursegroup_membership($cdom,      my $roster_result = &Apache::lonnet::modify_coursegroup_membership($cdom,
                                                        $cnum,\%usersettings);                                                         $cnum,\%usersettings);
     if (@added > 0) {      if ($num_ok) {
         $r->print('Users were added with following privileges:<br />');          foreach my $type (sort(keys(%added))) { 
         foreach my $user (@added) {              $r->print(&mt('The following users were successfully [_1]',$type));
             my @privs = split(/:/,$group_privs{$user});              if (!($type eq 'deleted' || $type eq 'expired')) {   
             my $privlist= '';                  $r->print(&mt(' with the following privileges'));
             my $curr_tool = '';              }
             foreach my $priv (@privs) {              $r->print(':<br />');
                 unless ($curr_tool eq $tooltype{$priv}) {              foreach my $user (@{$added{$type}}) {
                     $curr_tool = $tooltype{$priv};                  my $privlist = '';
                     $privlist .= '<b>'.$curr_tool.'</b>: ';                  if (!($type eq 'deleted' ||  $type eq 'expired')) {
                 }                      $privlist = ': ';
                 $privlist .= $$toolprivs{$curr_tool}{$priv}.', ';                      my @privs = split(/:/,$group_privs{$user});
             }                      my $curr_tool = '';
             $privlist =~ s/, $//;                      foreach my $priv (@privs) {
             $r->print($$userdata{$user}[$$idx{fullname}].'&nbsp;-&nbsp;'.$user.': '.$privlist.'<br />');                          unless ($curr_tool eq $tooltype{$priv}) {
         }                              $curr_tool = $tooltype{$priv};
     }                              $privlist .= '<b>'.$curr_tool.'</b>: ';
     if (@failed > 0) {                          }
         $r->print('Addition of the following users was unsuccessful:<br />');                          $privlist .= $$toolprivs{$curr_tool}{$priv}.', ';
         foreach my $user (@failed) {                      }
                       $privlist =~ s/, $//;
                   }
                   $r->print($$userdata{$user}[$$idx{fullname}].'&nbsp;-&nbsp;'.$user.$privlist.'<br />');
               }
               $r->print('<br />');
           }
       }
       if ($num_fail) {
           foreach my $type (sort(keys(%failed))) {
               $r->print(&mt('The following users could not be [_1], because an error occurred:<br />',$type));
               foreach my $user (@{$failed{$type}}) {
                   $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'<br />');
               }
           }
           $r->print('<br />');
       }
       if (@unchanged > 0) {
           $r->print(&mt('No change occurred for the following users:<br />'));
           foreach my $user (sort(@unchanged)) {
             $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'<br />');              $r->print($$userdata{$user}[$$idx{fullname}].' - '.$user.'<br />');
         }          }
           $r->print('<br />');
     }      }
     if ($roster_result eq 'ok') {      if ($roster_result eq 'ok') {
         $r->print('<br />Group membership list updated.');          $r->print('<br />'.&mt('[_1] membership list updated.',$ucgpterm));
    $r->print('<p>'.&mt("For full access to all of [_1]'s privileges, users will need to log out and log back in.",$groupname).'</p>');
     } else {      } else {
         $r->print('<br />An error occurred while updating the group membership list -'.$roster_result.'<br />');          $r->print('<br />'.&mt('An error occurred while updating the [_1] membership list -',$gpterm).$roster_result.'<br />');
     }      }
     return;      return;
 }  }
   
 sub mapping_options {  sub mapping_options {
     my ($r,$action,$formname,$page,$tabcol,$sectioncount,$states,$stored,      my ($r,$action,$formname,$page,$sectioncount,$states,$stored,
         $navbuttons,$img1,$img2,$rowColor1,$rowColor2) = @_;          $navbuttons,$img1,$img2,$gpterm,$ucgpterm,$crstype) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
         'auto' => 'Settings for automatic group enrollment',          'auto' => "Settings for automatic $gpterm enrollment",
         'gmma' => 'Group membership mapping to specific sections/roles',          'gmma' => "$ucgpterm membership mapping to specific sections/roles",
         'endi' => 'Enable/disable automatic group enrollment for '.          'endi' => "Enable/disable automatic $gpterm enrollment for ".
                           'users in specified roles and sections',                            "users in specified roles and sections",
         'adds'  => 'If automatic group enrollment is enabled, when a user is assigned a course-wide or section-specific role, he/she will automatically be added as a member of the group, with start and end access dates defined by the default dates set for the group, unless he/she is already a group member, with access dates that permit either current or future group access.',          'adds'  => "If automatic $gpterm enrollment is enabled, when a user is 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 group disenrollment is enabled, when a user's role is expired, access to the group will be terminated unless the user continues to have other course-wide or section-specific active or future roles which receive automatic membership in the group.",          '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 group enrollment',          'pirs' => "Pick roles and sections for automatic $gpterm enrollment",
         'curr' => 'Currently set to',          'curr' => 'Currently set to',
         'on' => 'on',          'on' => 'on',
         'off' => 'off',          'off' => 'off',
         'auad' => 'Automatically enable group membership when roles are added?',          'auad' => "Automatically enable $gpterm membership when roles are added?",
         'auex' => 'Automatically expire group membership when roles are removed?',          'auex' => "Automatically expire $gpterm membership when roles are removed?",
         'mapr' => 'Mapping of roles and sections affected by automatic group enrollment/disenrollment follows scheme chosen below.',          'mapr' => "Mapping of roles and sections affected by automatic $gpterm enrollment/disenrollment follows scheme chosen below.",
     );      );
     &automapping($r,$action,$tabcol,$stored,\%lt,$img1);      &automapping($r,$action,$stored,\%lt,$img1);
     $r->print('      &mapping_settings($r,$sectioncount,\%lt,$stored,$img2,$crstype);
    <tr>  
     <td colspan="4">&nbsp;</td>  
    </tr>');  
     &mapping_settings($r,$tabcol,$rowColor1,$rowColor2,$sectioncount,\%lt,  
                                                        $stored,$img2);  
     return;      return;
 }  }
   
 sub automapping {  sub automapping {
     my ($r,$action,$tabcol,$stored,$lt,$image) = @_;      my ($r,$action,$stored,$lt,$image) = @_;
     my $add = 'off';      my $add = 'off';
     my $drop = 'off';      my $drop = 'off';
     if (exists($$stored{'autoadd'})) {      if (exists($$stored{'autoadd'})) {
Line 2737  sub automapping { Line 3069  sub automapping {
     if (exists($$stored{'autodrop'})) {      if (exists($$stored{'autodrop'})) {
         $drop = $$stored{'autodrop'};          $drop = $$stored{'autodrop'};
     }      }
     &topic_bar($r,$tabcol,$image,$$lt{'endi'});      &topic_bar($r,$image,$$lt{'endi'});
     $r->print('      $r->print('
   <tr>      <b>'.$$lt{'gmma'}.':</b><br />'.$$lt{'adds'}.'<br />'.$$lt{'drops'}.'<br /><br />
    <td>&nbsp;</td>  
    <td colspan="3">  
     <b>'.$$lt{'gmma'}.':</b><br />'.$$lt{'adds'}.'<br />'.$$lt{'drops'}.'<br />  
    </td>  
   </tr>  
   <tr>  
    <td colspan="4">&nbsp;</td>  
   </tr>  
   <tr>  
    <td>&nbsp;</td>  
    <td colspan="3">  
    <nobr>'.$$lt{'auad'}.':&nbsp;     <nobr>'.$$lt{'auad'}.':&nbsp;
     <input type="radio" name="autoadd" value="on" />on&nbsp;&nbsp;<input type="radio" name="autoadd" value="off" />off');      <label><input type="radio" name="autoadd" value="on" />on&nbsp;&nbsp;</label><label><input type="radio" name="autoadd" value="off" checked="checked" />off</label>');
     if ($action eq 'modify') {      if ($action eq 'modify') {
         $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.$$lt{'curr'}.' <b>'.$$lt{$add}.'</b>)');          $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.$$lt{'curr'}.' <b>'.$$lt{$add}.'</b>)');
     }      }
     $r->print('      $r->print('
     </nobr>      </nobr><br />
    </td>  
   </tr>  
   <tr>  
    <td>&nbsp;</td>  
    <td colspan="3">  
     <nobr>'.$$lt{'auex'}.':&nbsp;      <nobr>'.$$lt{'auex'}.':&nbsp;
     <input type="radio" name="autodrop" value="on" />on&nbsp;&nbsp;<input type="radio" name="autodrop" value="off" />off');      <label><input type="radio" name="autodrop" value="on" />on&nbsp;&nbsp;</label><label><input type="radio" name="autodrop" value="off" checked="checked" />off</label>');
     if ($action eq 'modify') {      if ($action eq 'modify') {
         $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.$$lt{'curr'}.' <b>'.$$lt{$drop}.'</b>)');          $r->print('&nbsp;&nbsp;&nbsp;&nbsp;('.$$lt{'curr'}.' <b>'.$$lt{$drop}.'</b>)');
     }      }
     $r->print('</nobr>      $r->print('</nobr><br /><br />'.$$lt{'mapr'});
    </td>  
   </tr>  
   <tr>  
    <td colspan="4">&nbsp;</td>  
   </tr>  
   <tr>  
    <td>&nbsp;</td>  
    <td colspan="3">'.$$lt{'mapr'}.'  
    </td>  
   </tr>  
 ');  
 }  }
   
 sub mapping_settings {  sub mapping_settings {
     my ($r,$tabcol,$rowColor1,$rowColor2,$sectioncount,$lt,$stored,$image) = @_;      my ($r,$sectioncount,$lt,$stored,$image,$crstype) = @_;
     my @sections = keys(%{$sectioncount});      my @sections = keys(%{$sectioncount});
     if (@sections > 0) {      if (@sections > 0) {
         @sections = sort {$a cmp $b} @sections;          @sections = sort {$a cmp $b} @sections;
         unshift(@sections,'_nosec'); # Put 'no sections' next          unshift(@sections,'none'); # Put 'no sections' next
         unshift(@sections,'_all'); # Put 'all' at the front of the list          unshift(@sections,'all'); # Put 'all' at the front of the list
     }      }
     &topic_bar($r,$tabcol,$image,$$lt{'pirs'});      &topic_bar($r,$image,$$lt{'pirs'});
     $r->print('  
    <tr>  
     <td>&nbsp;</td>  
     <td colspan="3">  
 ');  
     my @roles = &standard_roles();      my @roles = &standard_roles();
     my %customroles = &my_custom_roles();      my %customroles = &my_custom_roles();
     $r->print(&Apache::lonhtmlcommon::start_pick_box());      $r->print(&Apache::loncommon::start_data_table().
         &Apache::loncommon::start_data_table_header_row());
     $r->print('      $r->print('
                 <tr bgcolor="'.$tabcol.'">  
                  <th>'.&mt('Active?').'</th>                   <th>'.&mt('Active?').'</th>
                  <th>'.&mt('Role').'</th>');                   <th>'.&mt('Role').'</th>');
     if (@sections > 0) {      if (@sections > 0) {
         $r->print('<th>'.&mt('Sections').'</th></tr>'."\n");          $r->print('<th>'.&mt('Sections').'</th>');
     }      }
     my $rowNum = 0;      $r->print(&Apache::loncommon::end_data_table_header_row()."\n");
     my $rowColor;  
     foreach my $role (@roles) {      foreach my $role (@roles) {
         my $plrole=&Apache::lonnet::plaintext($role);          my $plrole=&Apache::lonnet::plaintext($role,$crstype);
         my $sections_sel;          my $sections_sel;
         if (@sections > 0) {          if (@sections > 0) {
             $sections_sel='<td>'.&sections_selection(\@sections,'sec_'.$role).              if ($role eq 'cc') {
                                                                        '</td>';                  $sections_sel = '<td align="right">'.
         }                                  &mt('all sections').'<input type="hidden" '. 
         if ($rowNum %2 == 1) {                                  'name="sec_cc" value="all" /></td>';
             $rowColor = $rowColor1;              } else { 
         } else {                  $sections_sel='<td align="right">'.
             $rowColor = $rowColor2;                                &sections_selection(\@sections,'sec_'.$role).
                                 '</td>';
               }
         }          }
         $r->print('<tr bgcolor="'.$rowColor.'"><td><input type="checkbox" '.          $r->print(&Apache::loncommon::start_data_table_row().
                   'name="autorole" value="'.$role.'"></td><td>'.$plrole.    '<td><input type="checkbox" '.
                   '</td>'.$sections_sel.'</tr>');                    'name="autorole" value="'.$role.'" /></td><td>'.$plrole.
         $rowNum ++;                    '</td>'.$sections_sel.
     &Apache::loncommon::end_data_table_row());
     }      }
     foreach my $role (sort(keys(%customroles))) {      foreach my $role (sort(keys(%customroles))) {
         my $sections_sel;          my $sections_sel;
         if (@sections > 0) {          if (@sections > 0) {
             $sections_sel = '<td>'.&sections_selection(\@sections,'sec_'.$role).              $sections_sel = 
                                                                         '</td>';   '<td>'.&sections_selection(\@sections,'sec_'.$role).'</td>';
         }          }
         if ($rowNum %2 == 1) {          $r->print(&Apache::loncommon::start_data_table_row().
             $rowColor = $rowColor1;    '<td><input type="checkbox" '.
         } else {                    'value="'.$role.'" /></td><td>'.$role.'</td>'.
             $rowColor = $rowColor2;                    $sections_sel.
         }    &Apache::loncommon::end_data_table_row());
         $r->print('<tr bgcolor="'.$rowColor.'"><td><input type="checkbox" '.  
                   'value="'.$role.'"></td><td>'.$role.'</td>'.  
                   $sections_sel.'</tr>');  
         $rowNum ++;  
     }      }
     $r->print(&Apache::lonhtmlcommon::end_pick_box());      $r->print(&Apache::loncommon::end_data_table());
     return;      return;
 }  }
   
 sub standard_roles {  sub standard_roles {
     my @roles = ('st','ep','ta','in','cc');      my @roles = ('cc','in','ta','ep','st');
     return @roles;      return @roles;
 }  }
   
Line 2862  sub my_custom_roles { Line 3160  sub my_custom_roles {
 }  }
   
 sub modify_menu {  sub modify_menu {
     my ($r,$groupname,$page) = @_;      my ($r,$groupname,$page,$gpterm) = @_;
     my @menu =      my @menu =
         (          (
           { text => 'Modify default group settings',            { text => "Modify default $gpterm settings",
             help => 'Course_Modify_Group',              help => 'Course_Modify_Group',
             state => 'change_settings',              state => 'change_settings',
             branch => 'settings',              branch => 'settings',
             },              },
           { text => 'Modify access, tools and/or privileges for previous,future'.            { text => 'Modify access, tools and/or privileges for previous, '.
                     'or current members',                      'future, or current members',
             help => 'Course_Modify_Group_Membership',              help => 'Course_Modify_Group_Membership',
             state => 'change_members',              state => 'change_members',
             branch => 'members',              branch => 'members',
             },              },
           { text => 'Add member(s) to the group',            { text => "Add member(s) to the $gpterm",
             help => 'Course_Group_Add_Members',              help => 'Course_Group_Add_Members',
             state => 'add_members',              state => 'add_members',
             branch => 'adds',              branch => 'adds',
Line 2898  sub modify_menu { Line 3196  sub modify_menu {
 }  }
   
 sub member_privs_entries {  sub member_privs_entries {
     my ($r,$tabcol,$rowColor1,$rowColor2,$usertools,$toolprivs,      my ($r,$usertools,$toolprivs,$fixedprivs,$userdata,$idx,$showtools,
         $fixedprivs,$userdata,$idx,$showtools,$defprivs) = @_;   $defprivs,$excluded) = @_;
     my $rowColor;  
     my $rowNum = 0;  
     foreach my $user (sort(keys(%{$usertools}))) {      foreach my $user (sort(keys(%{$usertools}))) {
         my ($uname,$udom) = split(/:/,$user);          if (defined($excluded)) {
         if ($rowNum %2 == 1) {              if (ref($excluded) eq 'ARRAY') {
             $rowColor = $rowColor1;                  if (grep/^$user$/,@{$excluded}) {
         } else {                      next;
             $rowColor = $rowColor2;                  }
               }
         }          }
         $r->print('<tr bgcolor="'.$rowColor.'">          my ($uname,$udom) = split(/:/,$user);
           $r->print(&Apache::loncommon::start_data_table_row().'
                 <td>'.$$userdata{$user}[$$idx{fullname}].'</td>                  <td>'.$$userdata{$user}[$$idx{fullname}].'</td>
                 <td>'.$uname.'</td>                  <td>'.$uname.'</td>
                 <td>'.$udom.'</td>                  <td>'.$udom.'</td>
                 <td valign="top"><table><tr><td><b>Function</b></td></tr><tr><td><b>Fixed</b></td></tr><tr><td><b>Optional</b></td></tr></table></td>');                  <td valign="top"><table><tr><td><b>Function</b></td></tr><tr><td><b>Fixed</b></td></tr><tr><td><b>Optional</b></td></tr></table></td>');
         foreach my $tool (@{$showtools}) {          foreach my $tool (@{$showtools}) {
             if (exists($$usertools{$user}{$tool})) {              if (exists($$usertools{$user}{$tool})) {
                 $r->print('<td valign="top"><table><tr bgcolor="'.$tabcol.'"><td colspan="2" align="center"><b>'.$tool.'</b></td></tr>');                  $r->print('<td valign="top"><table><tr><th colspan="2">'.$tool.'</th></tr>');
                 my $privcount = 0;                  my $privcount = 0;
                 my $fixed = '';                  my $fixed = '';
                 my $dynamic = '';                  my $dynamic = '';
Line 2928  sub member_privs_entries { Line 3226  sub member_privs_entries {
                         if ($privcount == 3) {                          if ($privcount == 3) {
                             $dynamic .= '</tr><tr>';                              $dynamic .= '</tr><tr>';
                         }                          }
                         $dynamic .='<td><nobr><input type="checkbox" '.                          $dynamic .='<td><nobr><label><input type="checkbox" '.
                                'name="userpriv_'.$priv.'" value="'.$user.'"';                                 'name="userpriv_'.$priv.'" value="'.$user.'"';
                         if (grep/^\Q$priv\E$/,@{$defprivs}) {                          if (grep/^\Q$priv\E$/,@{$defprivs}) {
                             $dynamic .= ' checked="checked" ';                              $dynamic .= ' checked="checked" ';
                         }                          }
                         $dynamic .= ' />'.$$toolprivs{$tool}{$priv}.                          $dynamic .= ' />'.$$toolprivs{$tool}{$priv}.
                                     '</nobr></td>';                                      '</label></nobr></td>';
                     }                      }
                 }                  }
                 $r->print('<tr><td colspan="2"><nobr>'.$fixed.'</nobr></td></tr><tr>'.$dynamic.'</tr></table></td>');                  $r->print('<tr><td colspan="2"><nobr>'.$fixed.'</nobr></td></tr><tr>'.$dynamic.'</tr></table></td>');
             } else {              } else {
                 $r->print('<td valign="top"><table width="100%"><tr bgcolor="'.$tabcol.'"><td colspan="2" align="center"><b>'.$tool.'</b></td></tr><tr><td>&nbsp;</td></tr><tr><td>&nbsp;</td></tr></table></td>');                  $r->print('<td valign="top"><table width="100%"><tr><th colspan="2">'.$tool.'</th></tr><tr><td>&nbsp;</td></tr><tr><td>&nbsp;</td></tr></table></td>');
             }              }
         }          }
         $rowNum ++;          $r->print(&Apache::loncommon::end_data_table_row());
     }      }
 }  }
   
Line 2963  sub date_setting_table { Line 3261  sub date_setting_table {
                                                       'startdate',$starttime);                                                        'startdate',$starttime);
     my $endform = &Apache::lonhtmlcommon::date_setter($formname,      my $endform = &Apache::lonhtmlcommon::date_setter($formname,
                                                       'enddate',$endtime);                                                        'enddate',$endtime);
     my $perpetual = '<nobr><input type="checkbox" name="no_end_date" />      my $perpetual = 
                                                   no ending date</nobr>';   '<nobr><label><input type="checkbox" name="no_end_date" />'.
     my $start_table = '';   &mt('None').'</label></nobr>';
     $start_table .= "<table>\n";      my $table = "<table class=\"LC_descriptive_input\">\n".
     $start_table .= '<tr><td align="right">Default starting date for    '<tr><td class="LC_description">'.&mt('Start:').'</td>'.
                                            member access</td>'.  
         '<td>'.$startform.'</td>'.          '<td>'.$startform.'</td>'.
         '<td>&nbsp;</td>'."</tr>\n";          '<td>&nbsp;</td>'."</tr>\n".
     $start_table .= "</table>";   '<tr><td class="LC_description">'.&mt('End:').'</td>'.
     my $end_table = '';  
     $end_table .= "<table>\n";  
     $end_table .= '<tr><td align="right">Default ending date for   
                                          member access</td>'.  
         '<td>'.$endform.'</td>'.          '<td>'.$endform.'</td>'.
         '<td>'.$perpetual.'</td>'."</tr>\n";          '<td>'.$perpetual.'</td>'."</tr>\n".
     $end_table .= "</table>\n";   "</table>\n";
     return ($start_table, $end_table);      return $table;
   }
   
   sub add_group_folder {
       my ($cdom,$cnum,$now,$groupname,$action,$description,$tools,$groupinfo,
           $gpterm,$ucgpterm,$crstype) = @_;
       if ($cdom eq '' || $cnum eq '') {
           return &mt('Error: invalid course domain or number - group folder creation failed');  
       }
       my ($outcome,$allgrpsmap,$grpmap,$boardsmap,$grppage);
       my $navmap = Apache::lonnavmaps::navmap->new();
       my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
       $allgrpsmap = $crspath.'default_0.sequence';
       my $topmap = $navmap->getResourceByUrl($allgrpsmap);
       undef($navmap);
       if ($action eq 'create') {
       # check if default_0.sequence exists.
           if (!$topmap) {
               my $grpstitle = &mt('[_1] [_2]',$crstype,$ucgpterm);
               my $topmap_url = '/'.$env{'course.'.$env{'request.course.id'}.'.url'};
               $topmap_url =~ s|/+|/|g;
               if ($topmap_url =~ m|^/uploaded|) {
                   $outcome = &map_updater($cdom,$cnum,'default_0.sequence',
                                           'toplevelgroup',$grpstitle,$topmap_url);
                   if ($outcome ne 'ok') {
                       return $outcome;
                   }
               } else {
                   $outcome = &mt('Non-standard course - group folder not added.');
                   return $outcome;
               }
           }
           my $grpfolder = &mt('[_1] Folder -',$ucgpterm,).$description;
           $grppage='/adm/'.$cdom.'/'.$cnum.'/'.$groupname.'/grppg';
           my $grptitle = &mt('Group homepage').' - '.$description;
           my ($seqid,$discussions,$disctitle);
           my $outcome = &map_updater($cdom,$cnum,'default_'.$now.'.sequence',
                                      'grpseq',$grpfolder,$allgrpsmap,$grppage,
                                      $grptitle);
           if ($outcome ne 'ok') {
               return $outcome;
           }
           my $pageout = &create_homepage($cdom,$cnum,$groupname,$groupinfo,
                                          $tools,$gpterm,$ucgpterm,$now);
           # Link to folder for bulletin boards
           $grpmap = $crspath.'default_'.$now.'.sequence';
           if (grep/^discussion$/,@{$tools}) {
               $seqid = $now + 1;
               $disctitle = &mt('Discussion Boards');
               my $outcome = &map_updater($cdom,$cnum,'default_'.$seqid.
                                          '.sequence','bbseq',$disctitle,$grpmap);
               if ($outcome ne 'ok') {
                   return $outcome;
               }
               $boardsmap = $crspath.'default_'.$seqid.'.sequence';
           }
       } else {
           #modify group folder if status of discussions tools is changed
       }
       my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
       $navmap = Apache::lonnavmaps::navmap->new();
       # modify parameters
       my $parm_result;
       if ($action eq 'create') {
           if ($allgrpsmap) { 
               $parm_result .= &parm_setter($navmap,$cdom,$allgrpsmap,$groupname);
           }
           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);
           }
       }
       if ($parm_result) {
           return $parm_result;
       } 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".'<br />';
           return $outcome;
       } 
       my ($errtext,$fatal)=&Apache::lonratedt::mapread($parentmap);
       if ($fatal) {
           $outcome = &mt('Error reading contents of parent folder')." ($parentmap): $errtext".'<br />';
           return $outcome;
       } else {
           my $newidx=&Apache::lonratedt::getresidx($newmapurl);
           $Apache::lonratedt::resources[$newidx] = $itemtitle.':'.$newmapurl.
                                                    ':false:normal:res';
           $Apache::lonratedt::order[1+$#Apache::lonratedt::order]=$newidx;
           my ($outtext,$errtext) = &Apache::lonratedt::storemap($parentmap,1);
           if ($errtext) {
               $outcome = &mt('Error storing updated parent folder')." ($parentmap):  $errtext".'<br />';
               return $outcome;
           }
       }
       return 'ok';
   }
   
   sub new_map {
       my ($startsrc,$starttitle,$endsrc,$endtitle) = @_;
       my $newmapstr = '
   <map>
    <resource id="1" src="'.$startsrc.'" type="start" title="'.$starttitle.'"></resource>
    <link from="1" to="2" index="1"></link>
    <resource id="2" src="'.$endsrc.'" type="finish" title="'.$endtitle.'"></resource>
   </map>
   ';
       return $newmapstr;
   }
   
   sub parm_setter {
       my ($navmap,$cdom,$url,$groupname) = @_;
       my $allresults;
       my %hide_settings = (
                              'course' =>  {
                                             'num' => 13,
                                             'set' => 'yes',
                                           },
                               'group' =>  {
                                             'num' => 5,
                                             'set' => 'no',
                                             'extra' => $groupname,
                                           },
                           );
       my $res = $navmap->getResourceByUrl($url);
       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;
           }
       }
       return $allresults;
 }  }
   
 sub create_homepage {  sub create_homepage {
     my ($cdom,$cnum,$name,$groupinfo,$tools) = @_;      my ($cdom,$cnum,$name,$groupinfo,$tools,$gpterm,$ucgpterm,$now) = @_;
     my $functionality = join(',',@{$tools});      my $functionality = join(',',@{$tools});
     my $content = &Apache::lonnet::unescape($$groupinfo{description});      my $content = &unescape($$groupinfo{description});
     $content=~s/\s+$//s;      $content=~s/\s+$//s;
     $content=~s/^\s+//s;      $content=~s/^\s+//s;
     $content=~s/\<br\s*\/*\>$//s;      $content=~s/\<br\s*\/*\>$//s;
     $content=&Apache::lonfeedback::clear_out_html($content,1);      $content=&Apache::lonfeedback::clear_out_html($content,1);
   
     my %pageinfo = (      my %pageinfo = (
                      'aaa_title' => 'Group: '.$name,                       'aaa_title' => "$ucgpterm: $name",
                      'abb_links' => $functionality,                       'abb_links' => $functionality,
                      'bbb_content' => $content,                       'bbb_content' => $content,
                      'ccc_webreferences' => '',                       'ccc_webreferences' => '',
                      'uploaded.lastmodified' => time,                       'uploaded.lastmodified' => $now,
                    );                     );
    my $putresult = &Apache::lonnet::put('grppage_'.$name,\%pageinfo,$cdom,$cnum);     my $putresult = &Apache::lonnet::put('grppage_'.$name,\%pageinfo,$cdom,$cnum);
    return $putresult;     return $putresult;
Line 3038  function toggleTools(field,caller) { Line 3485  function toggleTools(field,caller) {
 }  }
   
 sub validate_groupname {  sub validate_groupname {
     my ($groupname,$action,$cdom,$cnum) = @_;      my ($groupname,$action,$cdom,$cnum,$gpterm,$ucgpterm,$crstype) = @_;
     my %sectioncount;      my %sectioncount = &Apache::loncommon::get_sections($cdom,$cnum);
     my $numsec=&Apache::loncommon::get_sections($cdom,$cnum,\%sectioncount);      my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum);
     my %curr_groups;  
     my $numgroups=&Apache::loncommon::coursegroups(\%curr_groups,$cdom,$cnum);  
                                                                                            
     my %lt = &Apache::lonlocal::texthash (      my %lt = &Apache::lonlocal::texthash (
                       igna => 'Invalid group name',                        igna => "Invalid $gpterm name",
                       tgne => 'The group name entered ',                        tgne => "The $gpterm name entered ",
                       grna => 'Group names and section names used in a course '.                        grna => "$ucgpterm names and section names used in a ".
                               'must be unique.',                                 "$crstype must be unique.",
                       isno => 'is not a valid name.',                        isno => "is not a valid name.",
                       gnmo => 'Group names may only contain letters, numbers '.                        gnmo => "$ucgpterm names may only contain letters, ". 
                               'or underscores.',                                "numbers or underscores.",
                       cnnb => 'can not be used as it is the name of ',                        cnnb => "can not be used as it is the name of ",
                       inth => ' in this course.',                        inth => " in this $crstype", 
                       thgr => '- does not correspond to the name of an existing'.                          thgr => "- does not correspond to the name of an ".
                               ' group ',                                    "existing $gpterm",    
     );      );
                                                                                            
     my $exitmsg = '<b>'.$lt{'igna'}.'</b><br /><br />'.$lt{'tgne'}.' "'.      my $exitmsg = '<span class="LC_error">'.$lt{'igna'}.'</span><br /><br />'.
                   $groupname.'" ';   $lt{'tgne'}.' "'.$groupname.'" ';
     my $dupmsg = $lt{'grna'};      my $dupmsg = $lt{'grna'};
     my $earlyout;      my $earlyout;
     if (($groupname eq '') || ($groupname =~ /\W/)) {      if (($groupname eq '') || ($groupname =~ /\W/)) {
         $earlyout = $exitmsg.$lt{'isno'}.'<br />'.$lt{'gnmo'};          $earlyout = $exitmsg.$lt{'isno'}.'<br />'.$lt{'gnmo'};
         return $earlyout;          return $earlyout;
     }      }
     if ($numsec) {      if (exists($sectioncount{$groupname})) {
         if (exists($sectioncount{$groupname})) {   return $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}.
             $earlyout = $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}.      '<br />'.$lt{'grna'};
                         '<br />'.$lt{'grna'};  
             return $earlyout;  
         }  
     }      }
     if ($action eq 'create') {      if ($action eq 'create' 
         if ($numgroups) {   && exists($curr_groups{$groupname})) {
             if (exists($curr_groups{$groupname})) {  
                 $earlyout = $exitmsg.$lt{'cnnb'}.&mt('an existing group').   return $exitmsg.$lt{'cnnb'}.&mt('an existing [_1]',$gpterm).
                             $lt{'inth'}.'<br />'.$lt{'grna'};      $lt{'inth'}.'<br />'.$lt{'grna'};
                 return $earlyout;  
             }  
         }  
     } elsif ($action eq 'modify') {      } elsif ($action eq 'modify') {
         unless(exists($curr_groups{$groupname})) {          unless(exists($curr_groups{$groupname})) {
             $earlyout = &mt('Group name:').' '.$groupname.$lt{'thgr'}.$lt{'inth'};              $earlyout = &mt('[_1] name:',$ucgpterm).' '.$groupname.$lt{'thgr'}.
                           $lt{'inth'};
             return $earlyout;              return $earlyout;
         }          }
     }      }
Line 3091  sub validate_groupname { Line 3532  sub validate_groupname {
 }  }
   
 sub topic_bar {  sub topic_bar {
     my ($r,$tabcol,$imgnum,$title) = @_;      my ($r,$imgnum,$title) = @_;
     $r->print('      $r->print('
  <tr bgcolor="'.$tabcol.'">  <div class="LC_topic_bar">
   <td>&nbsp;</td>      <img alt="'.&mt('Step [_1]',$imgnum).
   <td valign="middle" align="left">        '"src="/res/adm/pages/bl_step'.$imgnum.'.gif" />&nbsp;
    <nobr>      <span>'.$title.'</span>
     <img src="/res/adm/pages/bl_step'.$imgnum.'.gif" valign="middle">&nbsp;  </div>
    </nobr>  
   </td>  
   <th align="left"><nobr>'.$title.'<nobr>  
   </th>  
   <td width="100%">&nbsp;</td>  
  </tr>  
  <tr>  
   <td colspan="4">&nbsp;</td>  
  </tr>  
 ');  ');
     return;      return;
 }  }
Line 3118  sub check_changes { Line 3550  sub check_changes {
     @{$exclusions{'changepriv'}} = ('expire','changefunc');      @{$exclusions{'changepriv'}} = ('expire','changefunc');
   
     foreach my $change (@{$member_changes}) {      foreach my $change (@{$member_changes}) {
         if ($change eq 'delete') {          if ($change eq 'deletion') {
             next;              next;
         }          }
         my @checks = ('delete');          my @checks = ('deletion');
         if (exists($exclusions{$change})) {          if (exists($exclusions{$change})) {
             push(@checks,@{$exclusions{$change}});              push(@checks,@{$exclusions{$change}});
         }          }
Line 3129  sub check_changes { Line 3561  sub check_changes {
         foreach my $item (@{$$memchg{$change}}) {          foreach my $item (@{$$memchg{$change}}) {
             my $match = 0;              my $match = 0;
             foreach my $check (@checks) {              foreach my $check (@checks) {
                 if (@{$$memchg{$check}} > 0) {                  if (defined($$memchg{$check})) { 
                     if (grep/^$item$/,@{$$memchg{$check}}) {                      if (ref(@{$$memchg{$check}}) eq 'ARRAY') {
                         $match = 1;                          if (@{$$memchg{$check}} > 0) {
                         last;                              if (grep/^$item$/,@{$$memchg{$check}}) {
                                   $match = 1;
                                   last;
                               }
                           }
                     }                      }
                 }                  }
             }              }
Removed from v.1.5  
changed lines
  Added in v.1.45

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>