3 |
# $Id$ |
# $Id$ |
4 |
# |
# |
5 |
# $Log$ |
# $Log$ |
6 |
|
# Revision 1.19 2002/12/16 06:46:09 joko |
7 |
|
# + attempt to introduce a generic '_patchSchema' - cancelled! |
8 |
|
# |
9 |
|
# Revision 1.18 2002/12/13 21:48:07 joko |
10 |
|
# + fix to 'sub sendQuery' |
11 |
|
# |
12 |
|
# Revision 1.17 2002/12/12 02:51:09 joko |
13 |
|
# + cosmetics |
14 |
|
# |
15 |
# Revision 1.16 2002/12/11 06:54:10 joko |
# Revision 1.16 2002/12/11 06:54:10 joko |
16 |
# + fix: encapsulated object-loading inside an 'eval' |
# + fix: encapsulated object-loading inside an 'eval' |
17 |
# |
# |
124 |
$logger->error( __PACKAGE__ . "->_initSchema: No Schema available for $self->{schema}" ); |
$logger->error( __PACKAGE__ . "->_initSchema: No Schema available for $self->{schema}" ); |
125 |
return 0; |
return 0; |
126 |
} |
} |
127 |
|
#$self->_patchSchema(); |
128 |
return 1; |
return 1; |
129 |
} |
} |
130 |
|
|
131 |
|
sub _patchSchema { |
132 |
|
my $self = shift; |
133 |
|
foreach (keys %{$schema_tangram->{classes}}) { |
134 |
|
next if $schema_tangram->{classes}->{$_}->{abstract}; |
135 |
|
#next if ($_ ne 'TsBankAccount'); |
136 |
|
#$_ ne 'AbstractAccount' && |
137 |
|
print "class: $_", "\n"; |
138 |
|
#print Dumper($schema_tangram->{classes}->{$_}); |
139 |
|
# create new string property named 'guid' |
140 |
|
my $tstring = Tangram::String->new(); |
141 |
|
$tstring->{name} = $tstring->{col} = 'guid'; |
142 |
|
# inject property into schema |
143 |
|
#$schema_tangram->{classes}->{$_}->{root}->{SPECS}->[0]->{fields}->{string}->{$tstring->{name}} = $tstring; |
144 |
|
print Dumper($schema_tangram->{classes}->{$_}->{root}->{SPECS}->[0]->{fields}); |
145 |
|
} |
146 |
|
} |
147 |
|
|
148 |
sub connect { |
sub connect { |
149 |
|
|
150 |
my $self = shift; |
my $self = shift; |
453 |
|
|
454 |
sub createSet { |
sub createSet { |
455 |
my $self = shift; |
my $self = shift; |
456 |
|
#print "-" x 80, "\n"; |
457 |
|
#print Dumper(@_); |
458 |
my @objects = @_; |
my @objects = @_; |
459 |
my $rh = Set::Object->new(); |
my $rh = Set::Object->new(); |
460 |
foreach (@objects) { |
foreach (@objects) { |
461 |
#print Dumper($_); |
if (!isEmpty($_)) { |
462 |
$rh->insert($_) if !isEmpty($_); |
#print Dumper($_); |
463 |
|
$rh->insert($_); |
464 |
|
} |
465 |
} |
} |
466 |
#print Dumper($rh->members()); |
#print Dumper($rh->members()); |
467 |
my $result = Data::Storage::Result::Tangram->new( RESULTHANDLE => $rh ); |
my $result = Data::Storage::Result::Tangram->new( RESULTHANDLE => $rh ); |
485 |
my $ident = $query->{criterias}->[0]->{val}; |
my $ident = $query->{criterias}->[0]->{val}; |
486 |
#print "load obj", "\n"; |
#print "load obj", "\n"; |
487 |
#return $self->createSet() if $ident == 5; |
#return $self->createSet() if $ident == 5; |
488 |
|
$self->{_COREHANDLE}->unload($ident); |
489 |
my $object = $self->{_COREHANDLE}->load($ident); |
my $object = $self->{_COREHANDLE}->load($ident); |
490 |
#print "get id", "\n"; |
#print "get id", "\n"; |
491 |
my $oid = $self->{_COREHANDLE}->id($object); |
my $oid = $self->{_COREHANDLE}->id($object); |
492 |
|
#print Dumper($object); |
493 |
|
#print "oid: $oid", "\n"; |
494 |
return $self->createSet($object); |
return $self->createSet($object); |
495 |
#return $self->createSet( $self->{COREHANDLE}->load('300090018') ); |
#return $self->createSet( $self->{COREHANDLE}->load('300090018') ); |
496 |
} |
} |
537 |
|
|
538 |
# TODO: create a deep_unload method (currently _all_ objects are unloaded) |
# TODO: create a deep_unload method (currently _all_ objects are unloaded) |
539 |
# unload($oid) will only unload object, not deep object hashes |
# unload($oid) will only unload object, not deep object hashes |
540 |
$self->{_COREHANDLE}->unload() if($options->{destroy}); |
$self->{_COREHANDLE}->unload() if ($options->{destroy}); |
541 |
|
|
542 |
# TODO: review this |
# TODO: review this |
543 |
#if (!$self->{COREHANDLE}) { return; } |
#if (!$self->{COREHANDLE}) { return; } |