| 3 |
# $Id$ |
# $Id$ |
| 4 |
# |
# |
| 5 |
# $Log$ |
# $Log$ |
| 6 |
|
# Revision 1.44 2003/12/04 01:01:50 joko |
| 7 |
|
# + sendQuery now returns result even on crud=UPDATE |
| 8 |
|
# |
| 9 |
# Revision 1.43 2003/07/02 11:07:12 jonen |
# Revision 1.43 2003/07/02 11:07:12 jonen |
| 10 |
# re-activate filtering of results *after* results are fetched from tangram |
# re-activate filtering of results *after* results are fetched from tangram |
| 11 |
# (needed for e.g. UserManagment) |
# (needed for e.g. UserManagment) |
| 186 |
# get logger instance |
# get logger instance |
| 187 |
my $logger = Log::Dispatch::Config->instance; |
my $logger = Log::Dispatch::Config->instance; |
| 188 |
|
|
| 189 |
|
#$Tangram::TRACE = *STDOUT; |
| 190 |
|
|
| 191 |
# this holds the complete instantiated schema from tangram |
# this holds the complete instantiated schema from tangram |
| 192 |
my $schema_tangram; |
my $schema_tangram; |
| 813 |
my $options = { utf8 => 1, php => 1 }; |
my $options = { utf8 => 1, php => 1 }; |
| 814 |
merge_to($object, $query->{payload}, $options); |
merge_to($object, $query->{payload}, $options); |
| 815 |
|
|
| 816 |
|
#print Dumper($object); |
| 817 |
|
|
| 818 |
# Execute update operation at orm. |
# Execute update operation at orm. |
| 819 |
$self->update($object); |
$self->update($object); |
| 820 |
|
$result = $self->createResult([ $object ]); |
| 821 |
|
|
| 822 |
} elsif ($crud eq 'DELETE') { |
} elsif ($crud eq 'DELETE') { |
| 823 |
|
|
Parent Directory
| 
Revision Log
| 
Patch
