--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2003/01/30 22:29:47	1.26
+++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2003/01/31 06:30:59	1.27
@@ -1,8 +1,11 @@
 ############################################
 #
-#  $Id: Tangram.pm,v 1.26 2003/01/30 22:29:47 joko Exp $
+#  $Id: Tangram.pm,v 1.27 2003/01/31 06:30:59 joko Exp $
 #
 #  $Log: Tangram.pm,v $
+#  Revision 1.27  2003/01/31 06:30:59  joko
+#  + enabled 'sendQuery'
+#
 #  Revision 1.26  2003/01/30 22:29:47  joko
 #  + fixed module usage (removed dependency on 'libp.pm')
 #
@@ -426,7 +429,7 @@
   my @results;
   $logger->debug( __PACKAGE__ . "->getListFiltered( nodename => '" . $nodename . "' )" );
 
-  #print Dumper($filters);
+#print Dumper($filters);
   
   my @tfilters;
   
@@ -465,6 +468,8 @@
   # HACK: build eval-string (sorry) to get filtered list - please give advice here
   my $evalstring = 'return $self->{_COREHANDLE}->select($remote, ' . $tfilter . ');';
   
+  #print "eval: $evalstring", "\n";
+  
   # get filtered list/set
   @results = eval($evalstring);
   die $@ if $@;
@@ -524,10 +529,18 @@
     #return $self->createSet( $self->{COREHANDLE}->load('300090018') );
   }
 
-  die("This should not be reached for now - redirect to \$self->getListFiltered() here!");
+  my $list = $self->getListFiltered($query->{node}, $query->{criterias});
+  #return $self->createSet($object);
+  #return $self->createSet($list);
+  return $self->createSet(@$list);
+
+  #die("This should not be reached for now - redirect to \$self->getListFiltered() here!");
+
+
 
-  # TODO: do a common tangram query here
 
+  # try a generic tangram query here
+  # TODO: try to place an oql on top of that (search.cpan.org!)
   my @crits;
   foreach (@{$query->{criterias}}) {
     my $op = '';