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; |
} |
} |