| 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 |
# Revision 1.18 2002/12/13 21:48:07 joko |
| 10 |
# + fix to 'sub sendQuery' |
# + fix to 'sub sendQuery' |
| 11 |
# |
# |
| 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; |
Parent Directory
| 
Revision Log
| 
Patch
