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

Diff for /loncom/interface/loncoursegroups.pm between versions 1.47 and 1.48

version 1.47, 2006/07/07 21:04:57 version 1.48, 2006/07/07 21:20:25
Line 59  sub handler { Line 59  sub handler {
   
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                         ['action','refpage','state','groupname','branch']);                          ['action','refpage','state','groupname','branch']);
     my $function = &Apache::loncommon::get_users_function();  
     my $tabcol = &Apache::loncommon::designparm($function.'.tabbg');  
     my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};      my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
   
Line 91  sub handler { Line 89  sub handler {
     $idx{uname} = &Apache::loncoursedata::CL_SNAME();      $idx{uname} = &Apache::loncoursedata::CL_SNAME();
     $idx{section} = &Apache::loncoursedata::CL_SECTION();      $idx{section} = &Apache::loncoursedata::CL_SECTION();
   
     my $rowColor1 = "#dddddd";  
     my $rowColor2 = "#eeeeee";  
   
     my $action = $env{'form.action'};      my $action = $env{'form.action'};
     my $state = $env{'form.state'};      my $state = $env{'form.state'};
     if ((!defined($action)) || ($action eq 'view')) {      if ((!defined($action)) || ($action eq 'view')) {
Line 104  sub handler { Line 99  sub handler {
     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,$state,$cdom,$cnum,              &group_administration($r,$action,$state,$cdom,$cnum,
                                   $tabcol,\%functions,\%idx,$view_permission,                                    \%functions,\%idx,$view_permission,
                                   $manage_permission,$rowColor1,$rowColor2,                                    $manage_permission,$gpterm,$ucgpterm,
                                   $gpterm,$ucgpterm,$crstype);    $crstype);
         } else {          } else {
             $r->print(&mt('You do not have [_1] administration '.              $r->print(&mt('You do not have [_1] administration '.
                           'privileges in this [_2]',$gpterm,lc($crstype)));                            'privileges in this [_2]',$gpterm,lc($crstype)));
Line 348  END Line 343  END
 }  }
   
 sub group_administration {  sub group_administration {
     my ($r,$action,$state,$cdom,$cnum,$tabcol,$functions,$idx,      my ($r,$action,$state,$cdom,$cnum,$functions,$idx,$view_permission,
         $view_permission,$manage_permission,$rowColor1,$rowColor2,$gpterm,   $manage_permission,$gpterm,$ucgpterm,$crstype) = @_;
         $ucgpterm,$crstype) = @_;  
     my %sectioncount = ();      my %sectioncount = ();
     my @tools = ();      my @tools = ();
     my @types = ();      my @types = ();
Line 865  function changeSort(caller) { Line 859  function changeSort(caller) {
                    {text=>"$trail{$action}{$state}"});                     {text=>"$trail{$action}{$state}"});
                 $r->print(&Apache::lonhtmlcommon::breadcrumbs                  $r->print(&Apache::lonhtmlcommon::breadcrumbs
   ("$crumbtitle Manager"));    ("$crumbtitle Manager"));
                 &display_control($r,$cdom,$cnum,$tabcol,$action,$state,$page,                  &display_control($r,$cdom,$cnum,$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,
                        $view_permission,$manage_permission,                         $view_permission,$manage_permission,
                        \%stored,$granularity,$quota,$specificity,\@types,\@roles,                         \%stored,$granularity,$quota,$specificity,\@types,\@roles,
                        \@sections,\%states,\%navbuttons,$rowColor1,$rowColor2,                         \@sections,\%states,\%navbuttons,$gpterm,$ucgpterm,
                        $gpterm,$ucgpterm,$crstype);   $crstype);
                 last;                  last;
             } else {              } else {
                 if (($state eq 'result') && ($i > 0)) {                  if (($state eq 'result') && ($i > 0)) {
Line 960  sub retrieve_settings { Line 954  sub retrieve_settings {
 }  }
   
 sub display_control {  sub display_control {
     my ($r,$cdom,$cnum,$tabcol,$action,$state,$page,$sectioncount,$groupname,      my ($r,$cdom,$cnum,$action,$state,$page,$sectioncount,$groupname,
         $description,$functions,$tools,$toolprivs,$fixedprivs,$startdate,          $description,$functions,$tools,$toolprivs,$fixedprivs,$startdate,
         $enddate,$users,$userdata,$idx,$memchg,$usertools,          $enddate,$users,$userdata,$idx,$memchg,$usertools,
         $view_permission,$manage_permission,$stored,$granularity,$quota,          $view_permission,$manage_permission,$stored,$granularity,$quota,
         $specificity,$types,$roles,$sections,$states,$navbuttons,$rowColor1,          $specificity,$types,$roles,$sections,$states,$navbuttons,
         $rowColor2,$gpterm,$ucgpterm,$crstype) = @_;   $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,$state,$page,              &general_settings_form($r,$cdom,$cnum,$action,$state,$page,
Line 1007  sub display_control { Line 1001  sub display_control {
                                    $sectioncount,$stored,$states,$navbuttons,                                     $sectioncount,$stored,$states,$navbuttons,
                                    $gpterm,$ucgpterm,$crstype);                                     $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,$action,$state,$page,
                                  $groupname,$description,$startdate,$enddate,                                   $groupname,$description,$startdate,$enddate,
                                  $tools,$fixedprivs,$functions,$users,                                   $tools,$fixedprivs,$functions,$users,
                                  $userdata,$granularity,$quota,$specificity,                                   $userdata,$granularity,$quota,$specificity,
                                  $idx,$states,$navbuttons,$rowColor1,$rowColor2,                                   $idx,$states,$navbuttons,$gpterm,$ucgpterm);
                                  $gpterm,$ucgpterm);  
         } elsif ($state eq 'add_members') {          } elsif ($state eq 'add_members') {
             &add_members_form($r,$action,$state,$page,$startdate,              &add_members_form($r,$action,$state,$page,$startdate,
                               $enddate,$groupname,$description,$granularity,                                $enddate,$groupname,$description,$granularity,
Line 1579  sub print_current_settings { Line 1572  sub print_current_settings {
 ');  ');
     if (@{$available} > 0) {      if (@{$available} > 0) {
         $r->print('<b>Available:</b>          $r->print('<b>Available:</b>
                     <table cellpadding="" cellspacing="1"><tr>');                      <table class="LC_group_priv"><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++) {
             if (@{$available} > 3) {              if (@{$available} > 3) {
Line 1597  sub print_current_settings { Line 1590  sub print_current_settings {
     }      }
     if (@{$unavailable} > 0) {      if (@{$unavailable} > 0) {
         $r->print('<b>Unavailable:</b>          $r->print('<b>Unavailable:</b>
                     <table cellpadding="0" cellspacing="1"  border="0"><tr>');                      <table class="LC_group_priv"><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++) {
             if (@{$unavailable} > 3) {              if (@{$unavailable} > 3) {
Line 1671  sub pick_new_members { Line 1664  sub pick_new_members {
      <tr>');       <tr>');
         &check_uncheck_buttons($r,$formname,'member',$lt{'addm'});          &check_uncheck_buttons($r,$formname,'member',$lt{'addm'});
         if (@{$available} > 0 && $granularity eq 'Yes') {          if (@{$available} > 0 && $granularity eq 'Yes') {
             $r->print('<td><nobr>              $r->print('<td>
      <fieldset><legend><b>'.$lt{'setf'}.'</b></legend>       <fieldset><legend><b>'.$lt{'setf'}.'</b></legend>
         <nobr>
       <input type="button" value="check all"        <input type="button" value="check all"
         onclick="javascript:checkAllTools(document.'.$formname.')" />          onclick="javascript:checkAllTools(document.'.$formname.')" />
         &nbsp;&nbsp;          &nbsp;&nbsp;
       <input type="button" value="uncheck all"        <input type="button" value="uncheck all"
         onclick="javascript:uncheckAllTools(document.'.$formname.')" />          onclick="javascript:uncheckAllTools(document.'.$formname.')" />
      </fieldset></nobr></td>');        </nobr>
        </fieldset></td>');
         }          }
         $r->print('</tr></table>          $r->print('</tr></table>
         ');          ');
Line 2028  sub display_defprivs { Line 2023  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,$action,$formname,$page,$groupname,$description,
         $startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata,          $startdate,$enddate,$tools,$fixedprivs,$functions,$users,$userdata,
         $granularity,$quota,$specificity,$idx,$states,$navbuttons,$rowColor1,          $granularity,$quota,$specificity,$idx,$states,$navbuttons,$gpterm,
         $rowColor2,$gpterm,$ucgpterm) = @_;   $ucgpterm) = @_;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                                          grse => "$ucgpterm settings",                                           grse => "$ucgpterm settings",
                                          mogm => "Modify $gpterm membership",                                           mogm => "Modify $gpterm membership",
Line 2055  sub change_members_form { Line 2050  sub change_members_form {
     $groupname,$description,$granularity,$quota,      $groupname,$description,$granularity,$quota,
     \@available,\@unavailable,$gpterm,$ucgpterm);      \@available,\@unavailable,$gpterm,$ucgpterm);
     &topic_bar($r,2,$lt{'mogm'});      &topic_bar($r,2,$lt{'mogm'});
     &current_membership($r,$cdom,$cnum,$formname,$tabcol,$rowColor1,      &current_membership($r,$cdom,$cnum,$formname,$groupname,\@available,
                         $rowColor2,$groupname,\@available,\@unavailable,   \@unavailable,$fixedprivs,$granularity,$specificity);
                         $fixedprivs,$granularity,$specificity);  
     &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);
     return;      return;
 }  }
   
 sub current_membership {  sub current_membership {
     my ($r,$cdom,$cnum,$formname,$tabcol,$rowColor1,$rowColor2,$groupname,      my ($r,$cdom,$cnum,$formname,$groupname,$available,$unavailable,
         $available,$unavailable,$fixedprivs,$granularity,$specificity) = @_;   $fixedprivs,$granularity,$specificity) = @_;
     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(
Line 2087  sub current_membership { Line 2081  sub current_membership {
                                             $available);                                              $available);
     if (keys(%{$current}) > 0) {      if (keys(%{$current}) > 0) {
         $r->print('          $r->print('
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="2">  
    <table>     <table>
     <tr>');      <tr>');
         if ($num_expire) {          if ($num_expire) {
Line 2126  sub current_membership { Line 2117  sub current_membership {
         $r->print(<<"END");          $r->print(<<"END");
    </tr>     </tr>
   </table>    </table>
   </td>    <br />
   <td width="100%">&nbsp;</td>  
  </tr>  
  <tr>  
   <td colspan="4">&nbsp;</td>  
  </tr>  
  <tr>  
   <td>&nbsp;</td>  
   <td colspan="3">  
 END  END
         $r->print(&Apache::lonhtmlcommon::start_pick_box());          $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{'actn'}</th>
     <tr bgcolor="$tabcol" align="center">       <th><a href="javascript:changeSort('fullname')">$lt{'name'}</a></th>
      <td><b>$lt{'actn'}</b></td>       <th><a href="javascript:changeSort('username')">$lt{'usnm'}</a></th>
      <td><b><a href="javascript:changeSort('fullname')">$lt{'name'}</a></b></td>       <th><a href="javascript:changeSort('domain')">$lt{'doma'}</a></th>
      <td><b><a href="javascript:changeSort('username')">$lt{'usnm'}</a></b>       <th><a href="javascript:changeSort('id')">ID</a></th>
      </td>       <th><a href="javascript:changeSort('start')">$lt{'stda'}</a></th>
      <td><b><a href="javascript:changeSort('domain')">$lt{'doma'}</a></b></td>       <th><a href="javascript:changeSort('end')">$lt{'enda'}</a></th>
      <td><b><a href="javascript:changeSort('id')">ID</a></b></td>  
      <td><b><a href="javascript:changeSort('start')">$lt{'stda'}</a></b></td>  
      <td><b><a href="javascript:changeSort('end')">$lt{'enda'}</a></b></td>  
 END  END
         my $colspan = 0;          my $colspan = 0;
         if ($hastools) {          if ($hastools) {
             $r->print('<td><b>'.$lt{'curf'}.'</b></td>');              $r->print('<th>'.$lt{'curf'}.'</th>');
             $colspan ++;                $colspan++;  
         }          }
         if ($addtools) {          if ($addtools) {
             $r->print('<td><b>Additional Functionality</b></td>');              $r->print('<th>'.&mt('Additional Functionality').'</th>');
             $colspan ++;              $colspan++;
         }          }
         $r->print('</tr>');          $r->print(&Apache::loncommon::end_data_table_header_row());
         if ($colspan) {          if ($colspan) {
             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="7">&nbsp;</td>   <td colspan="7">&nbsp;</td>
  <td colspan="'.$colspan.'" align="center"><small><nobr><b>'.&mt('All:').   <td colspan="'.$colspan.'" align="center"><nobr><b>'.&mt('All:').
   '</b>&nbsp;');    '</b>&nbsp;');
                 foreach my $tool (@{$available}) {                  foreach my $tool (@{$available}) {
                     $r->print('<label><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);"'.
    ' value="'.$tool.'">'.'<b>'.$tool.'</b></label>&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 2187  END Line 2168  END
                 push(@{$Sortby{$$current{$user}{fullname}}},$user);                  push(@{$Sortby{$$current{$user}{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 = $$current{$user}{id};                  my $id = $$current{$user}{id};
                 my $fullname = $$current{$user}{fullname};                  my $fullname = $$current{$user}{fullname};
                 my $udom = $$current{$user}{udom};                  my $udom = $$current{$user}{udom};
                 my $uname = $$current{$user}{uname};                  my $uname = $$current{$user}{uname};
                 my $start = $$current{$user}{start};                  my $start = $$current{$user}{start};
                 my $end = $$current{$user}{end};                  my $end = $$current{$user}{end};
                 $r->print('<tr bgcolor="'.$rowColor.'">                  $r->print(&Apache::loncommon::start_data_table_row('LC_data_table_dense').'
                             <td><small>');                              <td>');
                 if ($$current{$user}{changestate} eq 'reenable') {                  if ($$current{$user}{changestate} eq 'reenable') {
                     $r->print('<nobr><label>'.                       $r->print('<nobr><label>'. 
    '<input type="checkbox" name="reenable" value="'.$user.'" />'.     '<input type="checkbox" name="reenable" value="'.$user.'" />'.
Line 2226  END Line 2200  END
    '</label></nobr>');     '</label></nobr>');
                 }                  }
                 $r->print('                  $r->print('
    </td>     </td>'.
    <td><small>'.     '<td>'.$fullname.'</td>'.
     $fullname.'</small></td><td><small>'.$uname.'</small></td><td><small>'.     '<td>'.$uname.'</td>'.
     $udom.'</small></td><td><small>'.$id.'</small></td><td><small>'.$start.     '<td>'. $udom.'</td>'.
     '</small></td><td><small>'.$end.'</small></td>');     '<td>'.$id.'</td>'.
      '<td>'.$start.'</td>'.
      '<td>'.$end.'</td>');
                 if ($hastools) {                  if ($hastools) {
                     $r->print('<td align="left"><small><nobr>'.                      $r->print('<td align="left"><nobr>'.
                                   '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;');                                    '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;');
                     foreach my $tool (@{$$current{$user}{currtools}}) {                      foreach my $tool (@{$$current{$user}{currtools}}) {
                         if ($granularity eq 'Yes') {                          if ($granularity eq 'Yes') {
Line 2248  END Line 2224  END
                          }                           }
                          $r->print('&nbsp;&nbsp;&nbsp;');                           $r->print('&nbsp;&nbsp;&nbsp;');
                     }                      }
                     $r->print('</nobr></small></td>');                      $r->print('</nobr></td>');
                 }                  }
                 if ($addtools) {                  if ($addtools) {
                     $r->print('<td align="left"><small>');                      $r->print('<td align="left">');
                     if ($granularity eq 'Yes') {                      if ($granularity eq 'Yes') {
                         foreach my $tool (@{$$current{$user}{newtools}}) {                          foreach my $tool (@{$$current{$user}{newtools}}) {
                             $r->print('<nobr><label><input type="checkbox"                              $r->print('<nobr><label><input type="checkbox"
Line 2267  END Line 2243  END
                                           '</nobr>&nbsp;&nbsp;&nbsp;');                                            '</nobr>&nbsp;&nbsp;&nbsp;');
                         }                          }
                     }                      }
                     $r->print('</small></td>');                      $r->print('</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>');  
     }      }
     return;      return;
 }  }
Line 2285  sub check_uncheck_buttons { Line 2257  sub check_uncheck_buttons {
     my ($r,$formname,$field,$title,$colspan) = @_;      my ($r,$formname,$field,$title,$colspan) = @_;
     $r->print('      $r->print('
      <td '.$colspan.'>       <td '.$colspan.'>
       <nobr>  
        <fieldset>         <fieldset>
        <legend><b>'.$title.'</b></legend>         <legend><b>'.$title.'</b></legend>
         <nobr>
        <input type="button" value="check all"         <input type="button" value="check all"
        onclick="javascript:checkAll(document.'.$formname.'.'.$field.')" />         onclick="javascript:checkAll(document.'.$formname.'.'.$field.')" />
        &nbsp;&nbsp;         &nbsp;&nbsp;
        <input type="button" value="uncheck all"         <input type="button" value="uncheck all"
        onclick="javascript:uncheckAll(document.'.$formname.'.'.$field.')" />         onclick="javascript:uncheckAll(document.'.$formname.'.'.$field.')" />
        </fieldset>  
       </nobr>        </nobr>
          </fieldset>
      </td>       </td>
 ');  ');
 }  }
Removed from v.1.47  
changed lines
  Added in v.1.48

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