3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.46 2004/05/06 12:54:34 jonen |
7 |
|
# + bugfix related to multiple select-'filter' |
8 |
|
# |
9 |
# Revision 1.45 2003/12/14 01:48:36 jonen |
# Revision 1.45 2003/12/14 01:48:36 jonen |
10 |
# small HACK at _insertChildNode: some special Childnodes should not be created because existing objects have to be selected! |
# small HACK at _insertChildNode: some special Childnodes should not be created because existing objects have to be selected! |
11 |
# TODO: make this more generic, e.g. implement a special flag at Schema |
# TODO: make this more generic, e.g. implement a special flag at Schema |
532 |
my @results; |
my @results; |
533 |
$logger->debug( __PACKAGE__ . "->getListFiltered( nodename => '" . $in->{nodename} . "' )" ); |
$logger->debug( __PACKAGE__ . "->getListFiltered( nodename => '" . $in->{nodename} . "' )" ); |
534 |
|
|
535 |
#print Dumper($filters); |
#print "Filter_payload: " . Dumper($in->{filters}) . "\n"; |
536 |
|
|
537 |
# 1. "Remote Object Handle" - get set of objects from odbms by object name |
# 1. "Remote Object Handle" - get set of objects from odbms by object name |
538 |
my $remote = $self->{_COREHANDLE}->remote($in->{nodename}); |
my $remote = $self->{_COREHANDLE}->remote($in->{nodename}); |
588 |
$orm_filter_tmp = $left->$op($right); |
$orm_filter_tmp = $left->$op($right); |
589 |
} |
} |
590 |
|
|
591 |
if (not $orm_filter) { |
if (!ref($orm_filter)) { |
592 |
$orm_filter = $orm_filter_tmp; |
$orm_filter = $orm_filter_tmp; |
593 |
} else { |
} else { |
594 |
$orm_filter = $orm_filter->and($orm_filter_tmp); |
$orm_filter = $orm_filter->and($orm_filter_tmp); |
597 |
} |
} |
598 |
|
|
599 |
$orm_query->{filter} = $orm_filter; |
$orm_query->{filter} = $orm_filter; |
600 |
|
|
601 |
|
# debug point: |
602 |
|
#print "Filter: " . Dumper($orm_query->{filter}) . "\n"; |
603 |
|
|
604 |
# was: |
# was: |
605 |
|
|
841 |
my $object = $cursor->getNextEntry(); |
my $object = $cursor->getNextEntry(); |
842 |
|
|
843 |
$self->erase($object); |
$self->erase($object); |
844 |
|
$self->unload($object); |
845 |
|
|
846 |
} elsif ($crud eq 'CREATE') { |
} elsif ($crud eq 'CREATE') { |
847 |
|
|