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

Fix bug where groups were being created with no defaults.

Browse source 
Update Group test to check for default values in groups created
with gid "new" and "".
This commit is contained in:
Colin Kuskie 2006-06-30 05:14:28 +00:00
parent cce6dc6e0a
commit 206a294988
3 changed files with 49 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/Group.pm
View file

@ -80,7 +80,15 @@ These methods are available from this class:
sub _create {
my $self = shift;
my $override = shift;
$self->{_groupId} = $self->session->db->setRow("groups","groupId",{
$self->{_groupId} = $self->session->db->setRow("groups","groupId", $self->_defaults, $override);
$self->addGroups([3]);
}
#-------------------------------------------------------------------
sub _defaults {
my $self = shift;
return {
groupId=>"new",
dateCreated=>$self->session->datetime->time(),
expireOffset=>314496000,
@ -91,9 +99,12 @@ sub _create {
expireNotify=>0,
databaseLinkId=>0,
groupCacheTimeout=>3600,
lastUpdated=>$self->session->datetime->time()
}, $override);
$self->addGroups([3]);
lastUpdated=>$self->session->datetime->time(),
autoAdd=>0,
autoDelete=>0,
isEditable=>1,
showInForms=>1,
};
}
@ -971,7 +982,12 @@ sub new {
my $cached = $self->{_session}->stow->get("groupObj");
return $cached->{$self->{_groupId}} if ($cached->{$self->{_groupId}});
bless $self, $class;
$self->_create($override) if ($self->{_groupId} eq "new");
if ($self->{_groupId} eq "new") {
$self->_create($override);
}
elsif ($self->{_groupId} eq "") {
$self->{_group} = $self->_defaults();
}
$cached->{$self->{_groupId}} = $self;
$self->{_session}->stow->set("groupObj", $cached);
return $self;