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 |
10 |
|
# + cosmetics |
11 |
|
# |
12 |
|
# Revision 1.16 2002/12/11 06:54:10 joko |
13 |
|
# + fix: encapsulated object-loading inside an 'eval' |
14 |
|
# |
15 |
# Revision 1.15 2002/12/05 13:55:21 joko |
# Revision 1.15 2002/12/05 13:55:21 joko |
16 |
# + now utilizing 'object2hash' instead of 'var_deref' |
# + now utilizing 'object2hash' instead of 'var_deref' |
17 |
# + played around with having fresh-objects - no progress.... |
# + played around with having fresh-objects - no progress.... |
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 |
} |
} |
513 |
my $self = shift; |
my $self = shift; |
514 |
my $oid = shift; |
my $oid = shift; |
515 |
my $options = shift; |
my $options = shift; |
516 |
# TODO: create a deep_unload method |
|
517 |
|
# TODO: create a deep_unload method (currently _all_ objects are unloaded) |
518 |
# unload($oid) will only unload object, not deep object hashes |
# unload($oid) will only unload object, not deep object hashes |
519 |
$self->{_COREHANDLE}->unload() if($options->{destroy}); |
$self->{_COREHANDLE}->unload() if ($options->{destroy}); |
520 |
|
|
521 |
# TODO: review this |
# TODO: review this |
522 |
#if (!$self->{COREHANDLE}) { return; } |
#if (!$self->{COREHANDLE}) { return; } |
523 |
return $self->{_COREHANDLE}->load($oid); |
|
524 |
|
# TODO: review this |
525 |
|
my $object = eval('$self->{_COREHANDLE}->load($oid);'); |
526 |
|
print $@, "\n" if $@; |
527 |
|
|
528 |
|
return $object if $object; |
529 |
} |
} |
530 |
|
|
531 |
sub getObjectAsHash { |
sub getObjectAsHash { |