version 1.31, 2016/03/11 22:11:22
|
version 1.32, 2023/06/20 14:03:52
|
Line 237 or expire group membership(s) for a user
|
Line 237 or expire group membership(s) for a user
|
=cut |
=cut |
|
|
sub group_changes { |
sub group_changes { |
my ($udom,$uname,$url,$role,$origend,$origstart,$selfenroll,$context) = @_; |
my ($udom,$uname,$url,$role,$origend,$origstart,$selfenroll,$context, |
|
$othdomby,$requester) = @_; |
my $now = time; |
my $now = time; |
my $chgtype; |
my $chgtype; |
if ($origend > 0 && $origend <= $now) { |
if ($origend > 0 && $origend <= $now) { |
Line 343 sub group_changes {
|
Line 344 sub group_changes {
|
$add,$uname.':'.$udom, |
$add,$uname.':'.$udom, |
$settings{$add}{'enddate'}, |
$settings{$add}{'enddate'}, |
$settings{$add}{'startdate'}, |
$settings{$add}{'startdate'}, |
$group_privs,$selfenroll,$context) eq 'ok') { |
$group_privs,$selfenroll,$context, |
|
$othdomby,$requester) eq 'ok') { |
my %usersettings; |
my %usersettings; |
$usersettings{$add.':'.$uname.':'.$udom} = |
$usersettings{$add.':'.$uname.':'.$udom} = |
$addgroup{$add}; |
$addgroup{$add}; |
Line 413 sub group_changes {
|
Line 415 sub group_changes {
|
$uname.':'.$udom,$now, |
$uname.':'.$udom,$now, |
$dropstart{$drop}, |
$dropstart{$drop}, |
$currpriv{$drop}, |
$currpriv{$drop}, |
$selfenroll,$context) |
$selfenroll,$context, |
|
$othdomby,$requester) |
eq 'ok') { |
eq 'ok') { |
my %usersettings; |
my %usersettings; |
$usersettings{$drop.':'.$uname.':'.$udom} = |
$usersettings{$drop.':'.$uname.':'.$udom} = |