--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2002/12/11 06:54:10	1.16
+++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2002/12/13 21:48:07	1.18
@@ -1,8 +1,14 @@
 ############################################
 #
-#  $Id: Tangram.pm,v 1.16 2002/12/11 06:54:10 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
+#
 #  Revision 1.16  2002/12/11 06:54:10  joko
 #  + fix: encapsulated object-loading inside an 'eval'
 #
@@ -426,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 );
@@ -454,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') );
   }
@@ -503,7 +516,7 @@
 
   # TODO: create a deep_unload method (currently _all_ objects are unloaded)
   # unload($oid) will only unload object, not deep object hashes
-  $self->{_COREHANDLE}->unload() if($options->{destroy});
+  $self->{_COREHANDLE}->unload() if ($options->{destroy});
 
   # TODO: review this
   #if (!$self->{COREHANDLE}) { return; }