loncom/interface/longroup.pm - diff

Return to longroup.pm CVS log

Up to [LON-CAPA] / loncom / interface

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