3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.27 2003/01/31 06:30:59 joko |
7 |
|
# + enabled 'sendQuery' |
8 |
|
# |
9 |
# Revision 1.26 2003/01/30 22:29:47 joko |
# Revision 1.26 2003/01/30 22:29:47 joko |
10 |
# + fixed module usage (removed dependency on 'libp.pm') |
# + fixed module usage (removed dependency on 'libp.pm') |
11 |
# |
# |
429 |
my @results; |
my @results; |
430 |
$logger->debug( __PACKAGE__ . "->getListFiltered( nodename => '" . $nodename . "' )" ); |
$logger->debug( __PACKAGE__ . "->getListFiltered( nodename => '" . $nodename . "' )" ); |
431 |
|
|
432 |
#print Dumper($filters); |
#print Dumper($filters); |
433 |
|
|
434 |
my @tfilters; |
my @tfilters; |
435 |
|
|
468 |
# HACK: build eval-string (sorry) to get filtered list - please give advice here |
# HACK: build eval-string (sorry) to get filtered list - please give advice here |
469 |
my $evalstring = 'return $self->{_COREHANDLE}->select($remote, ' . $tfilter . ');'; |
my $evalstring = 'return $self->{_COREHANDLE}->select($remote, ' . $tfilter . ');'; |
470 |
|
|
471 |
|
#print "eval: $evalstring", "\n"; |
472 |
|
|
473 |
# get filtered list/set |
# get filtered list/set |
474 |
@results = eval($evalstring); |
@results = eval($evalstring); |
475 |
die $@ if $@; |
die $@ if $@; |
529 |
#return $self->createSet( $self->{COREHANDLE}->load('300090018') ); |
#return $self->createSet( $self->{COREHANDLE}->load('300090018') ); |
530 |
} |
} |
531 |
|
|
532 |
die("This should not be reached for now - redirect to \$self->getListFiltered() here!"); |
my $list = $self->getListFiltered($query->{node}, $query->{criterias}); |
533 |
|
#return $self->createSet($object); |
534 |
|
#return $self->createSet($list); |
535 |
|
return $self->createSet(@$list); |
536 |
|
|
537 |
|
#die("This should not be reached for now - redirect to \$self->getListFiltered() here!"); |
538 |
|
|
539 |
|
|
540 |
|
|
|
# TODO: do a common tangram query here |
|
541 |
|
|
542 |
|
# try a generic tangram query here |
543 |
|
# TODO: try to place an oql on top of that (search.cpan.org!) |
544 |
my @crits; |
my @crits; |
545 |
foreach (@{$query->{criterias}}) { |
foreach (@{$query->{criterias}}) { |
546 |
my $op = ''; |
my $op = ''; |