3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.18 2002/12/13 21:48:07 joko |
7 |
|
# + fix to 'sub sendQuery' |
8 |
|
# |
9 |
# Revision 1.17 2002/12/12 02:51:09 joko |
# Revision 1.17 2002/12/12 02:51:09 joko |
10 |
# + cosmetics |
# + cosmetics |
11 |
# |
# |
432 |
|
|
433 |
sub createSet { |
sub createSet { |
434 |
my $self = shift; |
my $self = shift; |
435 |
|
#print "-" x 80, "\n"; |
436 |
|
#print Dumper(@_); |
437 |
my @objects = @_; |
my @objects = @_; |
438 |
my $rh = Set::Object->new(); |
my $rh = Set::Object->new(); |
439 |
foreach (@objects) { |
foreach (@objects) { |
440 |
#print Dumper($_); |
if (!isEmpty($_)) { |
441 |
$rh->insert($_) if !isEmpty($_); |
#print Dumper($_); |
442 |
|
$rh->insert($_); |
443 |
|
} |
444 |
} |
} |
445 |
#print Dumper($rh->members()); |
#print Dumper($rh->members()); |
446 |
my $result = Data::Storage::Result::Tangram->new( RESULTHANDLE => $rh ); |
my $result = Data::Storage::Result::Tangram->new( RESULTHANDLE => $rh ); |
464 |
my $ident = $query->{criterias}->[0]->{val}; |
my $ident = $query->{criterias}->[0]->{val}; |
465 |
#print "load obj", "\n"; |
#print "load obj", "\n"; |
466 |
#return $self->createSet() if $ident == 5; |
#return $self->createSet() if $ident == 5; |
467 |
|
$self->{_COREHANDLE}->unload($ident); |
468 |
my $object = $self->{_COREHANDLE}->load($ident); |
my $object = $self->{_COREHANDLE}->load($ident); |
469 |
#print "get id", "\n"; |
#print "get id", "\n"; |
470 |
my $oid = $self->{_COREHANDLE}->id($object); |
my $oid = $self->{_COREHANDLE}->id($object); |
471 |
|
#print Dumper($object); |
472 |
|
#print "oid: $oid", "\n"; |
473 |
return $self->createSet($object); |
return $self->createSet($object); |
474 |
#return $self->createSet( $self->{COREHANDLE}->load('300090018') ); |
#return $self->createSet( $self->{COREHANDLE}->load('300090018') ); |
475 |
} |
} |