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

Diff for /loncom/interface/longroup.pm between versions 1.8 and 1.9

version 1.8, 2006/07/02 17:08:42 version 1.9, 2006/07/08 00:52:45
Line 474  sub group_memberlist { Line 474  sub group_memberlist {
     my %current = ();      my %current = ();
     my $hastools = 0;      my $hastools = 0;
     my $addtools = 0;      my $addtools = 0;
     my $num_previous = 0;      my %member_nums = (
     my $num_future = 0;                          'previous' => 0,
     my $num_active = 0;                          'future' => 0,
                           'active' => 0,
                         );
     my $now = time;      my $now = time;
     if (keys(%membership) > 0) {      if (keys(%membership) > 0) {
         my %allnames = ();          my %allnames = ();
Line 507  sub group_memberlist { Line 509  sub group_memberlist {
                     if (($end > 0) && ($end < $now)) {                      if (($end > 0) && ($end < $now)) {
                         $current{$user}{changestate} = 'reenable';                          $current{$user}{changestate} = 'reenable';
                         $current{$user}{'status'} = 'previous';                          $current{$user}{'status'} = 'previous';
                         $num_previous++;                          $member_nums{'previous'} ++;
                     } elsif (($start > $now)) {                      } elsif (($start > $now)) {
                         $current{$user}{changestate} = 'activate';                          $current{$user}{changestate} = 'activate';
                         $current{$user}{'status'} = 'future';                          $current{$user}{'status'} = 'future';
                         $num_future ++;                          $member_nums{'future'} ++;
                     } else {                      } else {
                         $current{$user}{changestate} = 'expire';                          $current{$user}{changestate} = 'expire';
                         $current{$user}{'status'} = 'active';                          $current{$user}{'status'} = 'active';
                         $num_active ++;                          $member_nums{'active'} ++;
                     }                      }
                     if (@userprivs > 0) {                      if (@userprivs > 0) {
                         foreach my $tool (sort(keys(%{$fixedprivs}))) {                          foreach my $tool (sort(keys(%{$fixedprivs}))) {
Line 563  sub group_memberlist { Line 565  sub group_memberlist {
             }              }
         }          }
     }      }
     return (\%current,$hastools,$addtools,$num_previous,$num_future,      return (\%current,$hastools,$addtools,\%member_nums);
             $num_active);  
 }  }
   
 ###############################################  ###############################################
Line 611  sub get_bbfolder_url { Line 612  sub get_bbfolder_url {
     my %curr_groups = &coursegroups($cdom,$cnum,$group);      my %curr_groups = &coursegroups($cdom,$cnum,$group);
     my $grpbbmap;      my $grpbbmap;
     if (%curr_groups) {      if (%curr_groups) {
         my %group_info =  &get_group_settings($curr_groups{$group});  
         my $creation = $group_info{'creation'};  
         my $bbfolder = $creation + 1;  
         my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';          my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
         $grpbbmap = $crspath.'default_'.$bbfolder.'.sequence';          $grpbbmap = $crspath.'group_boards_'.$group.'.sequence';
     }      }
     return $grpbbmap;      return $grpbbmap;
 }  }
Removed from v.1.8  
changed lines
  Added in v.1.9

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