oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added expiration overrides for groupings imported through the user importer.

Browse source
This commit is contained in:
JT Smith 2003-02-13 02:01:14 +00:00
parent 50a5561f64
commit f1067a0d8f
4 changed files with 58 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/DateTime.pm
View file

@ -407,7 +407,7 @@ An integer which represents the amount of time for the interval.
=item units
A string which represents the units of the interval. The string must be 'years', 'months', 'days', 'hours', 'minutes', or 'seconds'.
A string which represents the units of the interval. The string must be 'years', 'months', 'weeks', 'days', 'hours', 'minutes', or 'seconds'.
=back

13
lib/WebGUI/Grouping.pm
View file

@ -83,7 +83,7 @@ sub addGroupsToGroups {
#-------------------------------------------------------------------
=head2 addUsersToGroups ( users, groups )
=head2 addUsersToGroups ( users, groups [, expireOffset ] )
Adds users to the specified groups.
@ -97,13 +97,22 @@ An array reference containing a list of users.
An array reference containing a list of groups.
=item expireOffset
An override for the default offset of the grouping. Specified in seconds.
=back
=cut
sub addUsersToGroups {
foreach my $gid (@{$_[1]}) {
my ($expireOffset) = WebGUI::SQL->quickArray("select expireOffset from groups where groupId=$gid");
my $expireOffset;
if ($_[2]) {
$expireOffset = $_[2];
} else {
($expireOffset) = WebGUI::SQL->quickArray("select expireOffset from groups where groupId=$gid");
}
foreach my $uid (@{$_[0]}) {
my ($isIn) = WebGUI::SQL->quickArray("select count(*) from groupings where groupId=$gid and userId=$uid");
unless ($isIn) {

8
lib/WebGUI/User.pm
View file

@ -65,7 +65,7 @@ sub _create {
#-------------------------------------------------------------------
=head2 addToGroups ( groups )
=head2 addToGroups ( groups [, expireOffset ] )
Adds this user to the specified groups.
@ -75,12 +75,16 @@ Adds this user to the specified groups.
An array reference containing a list of groups.
=item expireOffset
An override for the default offset of the grouping. Specified in seconds.
=back
=cut
sub addToGroups {
WebGUI::Grouping::addUsersToGroups([$_[0]->{_userId}],$_[1]);
WebGUI::Grouping::addUsersToGroups([$_[0]->{_userId}],$_[1],$_[2]);
}
#-------------------------------------------------------------------