continuing dev on discussion

This commit is contained in:
JT Smith 2003-10-05 17:28:51 +00:00
parent 44b35c3412
commit e3516d209e
3 changed files with 51 additions and 25 deletions

View file

@ -47,7 +47,9 @@ sub set {
my ($self, $data) = @_;
$data->{forumId} = $self->get("forumId") unless ($data->{forumId});
WebGUI::SQL->setRow("forum","forumId",$data);
$self->{_properties} = $data;
foreach my $key (keys %{$data}) {
$self->{_properties}{$key} = $data->{$key};
}
}
1;