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

Add tests for database defined groups to Group.t

Browse source 
Clear cache on set of databaseLinkId or dbQuery in WebGUI::Group.pm.
Fix typos, missing module use lines and extra variables in WebGUI::User.pm.
This commit is contained in:
Colin Kuskie 2006-04-03 18:07:09 +00:00
parent 03c79ce1d0
commit c802e4ddad
3 changed files with 28 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Group.pm
View file

@ -714,7 +714,7 @@ If you specified "new" for groupId, you can use this property to specify an id y
=cut
sub new {
my ($class, $groupId, %default, $value, $key, %group, %profile);
my ($class, %group);
tie %group, 'Tie::CPHash';
$class = shift;
my $self = {};
@ -787,6 +787,8 @@ sub dbQuery {
my $value = shift;
if (defined $value) {
$self->set("dbQuery",$value);
$self->session->stow->delete("gotGroupsInGroup");
$self->session->stow->delete("isInGroup");
}
return $self->get("dbQuery");
}
@ -799,7 +801,7 @@ Returns the databaseLinkId for this group.
=head3 value
If specified, the databaseLinkId is set to this value.
If specified, the databaseLinkId is set to this value and in-memory cached user and group data is cleared.
=cut
@ -808,6 +810,8 @@ sub databaseLinkId {
my $value = shift;
if (defined $value) {
$self->set("databaseLinkId",$value);
$self->session->stow->delete("gotGroupsInGroup");
$self->session->stow->delete("isInGroup");
}
return $self->get("databaseLinkId");
}