--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2002/12/12 02:51:09	1.17
+++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2002/12/13 21:48:07	1.18
@@ -1,8 +1,11 @@
 ############################################
 #
-#  $Id: Tangram.pm,v 1.17 2002/12/12 02:51:09 joko Exp $
+#  $Id: Tangram.pm,v 1.18 2002/12/13 21:48:07 joko Exp $
 #
 #  $Log: Tangram.pm,v $
+#  Revision 1.18  2002/12/13 21:48:07  joko
+#  + fix to 'sub sendQuery'
+#
 #  Revision 1.17  2002/12/12 02:51:09  joko
 #  + cosmetics
 #
@@ -429,11 +432,15 @@
 
 sub createSet {
   my $self = shift;
+#print "-" x 80, "\n";
+#print Dumper(@_);
   my @objects = @_;
   my $rh = Set::Object->new();
   foreach (@objects) {
-    #print Dumper($_);
-    $rh->insert($_) if !isEmpty($_);
+    if (!isEmpty($_)) {
+#print Dumper($_);
+      $rh->insert($_);
+    }
   }
   #print Dumper($rh->members());
   my $result = Data::Storage::Result::Tangram->new( RESULTHANDLE => $rh );
@@ -457,9 +464,12 @@
     my $ident = $query->{criterias}->[0]->{val};
 #print "load obj", "\n";
     #return $self->createSet() if $ident == 5;
+    $self->{_COREHANDLE}->unload($ident);
     my $object = $self->{_COREHANDLE}->load($ident);
 #print "get id", "\n";
     my $oid = $self->{_COREHANDLE}->id($object);
+#print Dumper($object);
+#print "oid: $oid", "\n";
     return $self->createSet($object);
     #return $self->createSet( $self->{COREHANDLE}->load('300090018') );
   }