version 1.15, 2006/12/20 22:37:04
|
version 1.16, 2008/05/01 16:26:29
|
Line 199 Input:
|
Line 199 Input:
|
4. Role |
4. Role |
5. End date of role |
5. End date of role |
6. Start date of role |
6. Start date of role |
|
7. Selfenroll |
|
8. Context |
|
|
Checks to see if role for which assignment is being made is in a course. |
Checks to see if role for which assignment is being made is in a course. |
If so, gathers information about auto-group population settings for |
If so, gathers information about auto-group population settings for |
Line 214 and would trigger membership in teh same
|
Line 216 and would trigger membership in teh same
|
If role is being added, will add any group memberships specified |
If role is being added, will add any group memberships specified |
for auto-group population, unless use is already a group member. |
for auto-group population, unless use is already a group member. |
Uses default group privileges and default start and end group access |
Uses default group privileges and default start and end group access |
times. |
times. |
|
|
|
Flag for selfenroll (value of 1), and context (auto, updatenow, |
|
automated, course, domain etc.) can be used to log the reason for |
|
the role change. |
|
|
Output |
Output |
None |
None |
Line 227 or expire group membership(s) for a user
|
Line 233 or expire group membership(s) for a user
|
=cut |
=cut |
|
|
sub group_changes { |
sub group_changes { |
my ($udom,$uname,$url,$role,$origend,$origstart) = @_; |
my ($udom,$uname,$url,$role,$origend,$origstart,$selfenroll,$context) = @_; |
my $now = time; |
my $now = time; |
my $chgtype; |
my $chgtype; |
if ($origend > 0 && $origend <= $now) { |
if ($origend > 0 && $origend <= $now) { |
Line 339 sub group_changes {
|
Line 345 sub group_changes {
|
$add,$uname.':'.$udom, |
$add,$uname.':'.$udom, |
$settings{$add}{'enddate'}, |
$settings{$add}{'enddate'}, |
$settings{$add}{'startdate'}, |
$settings{$add}{'startdate'}, |
$group_privs) eq 'ok') { |
$group_privs,$selfenroll,$context) eq 'ok') { |
my %usersettings; |
my %usersettings; |
$usersettings{$add.':'.$uname.':'.$udom} = |
$usersettings{$add.':'.$uname.':'.$udom} = |
$addgroup{$add}; |
$addgroup{$add}; |
Line 408 sub group_changes {
|
Line 414 sub group_changes {
|
$cnum,$drop, |
$cnum,$drop, |
$uname.':'.$udom,$now, |
$uname.':'.$udom,$now, |
$dropstart{$drop}, |
$dropstart{$drop}, |
$currpriv{$drop}) |
$currpriv{$drop}, |
|
$selfenroll,$context) |
eq 'ok') { |
eq 'ok') { |
my %usersettings; |
my %usersettings; |
$usersettings{$drop.':'.$uname.':'.$udom} = |
$usersettings{$drop.':'.$uname.':'.$udom} = |