--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm 2004/05/06 12:54:34 1.46 +++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm 2004/08/31 14:26:08 1.47 @@ -1,8 +1,11 @@ ############################################ # -# $Id: Tangram.pm,v 1.46 2004/05/06 12:54:34 jonen Exp $ +# $Id: Tangram.pm,v 1.47 2004/08/31 14:26:08 jonen Exp $ # # $Log: Tangram.pm,v $ +# Revision 1.47 2004/08/31 14:26:08 jonen +# updated +# # Revision 1.46 2004/05/06 12:54:34 jonen # + bugfix related to multiple select-'filter' # @@ -1036,7 +1039,7 @@ # because they maybe exists and should only be SETTED not CREATED! # TODO: Create a flag at the scheme for that reason! # (e.g child_node => 1 for child-nodes only like e.g. UserData) - if($attr_options->{$_}->{class} eq 'NetPerson' || $attr_options->{$_}->{class} eq 'Event') { + if($attr_options->{$_}->{class} eq 'NetPerson' || $attr_options->{$_}->{class} eq 'Event' || $attr_options->{$_}->{class} eq 'BetRule') { #$obj->{$_} = undef(); } else { $obj->{$_} = $self->createNode($attr_options->{$_}->{class});