Convert subscriptions to use groups instead of homebrew table.

This commit is contained in:
Martin Kamerbeek 2010-05-21 13:39:15 +02:00
parent 22c900047f
commit c10bac9bfc
3 changed files with 117 additions and 37 deletions

View file

@ -11,8 +11,11 @@ sub create {
my $session = shift;
my $self = $class->SUPER::create( $session, @_ );
$self->disable;
$self->username( $self->getId );
return $self->new( $session, $self->getId );
# WebGUI::User->create always returns an object of class WebGUI::User, so we must instanciate again.
return $class->new( $session, $self->getId );
}
sub addSpecialState {