--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2003/07/02 11:07:12	1.43
+++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2003/12/04 01:01:50	1.44
@@ -1,8 +1,11 @@
 ############################################
 #
-#  $Id: Tangram.pm,v 1.43 2003/07/02 11:07:12 jonen Exp $
+#  $Id: Tangram.pm,v 1.44 2003/12/04 01:01:50 joko Exp $
 #
 #  $Log: Tangram.pm,v $
+#  Revision 1.44  2003/12/04 01:01:50  joko
+#  + sendQuery now returns result even on crud=UPDATE
+#
 #  Revision 1.43  2003/07/02 11:07:12  jonen
 #  re-activate filtering of results *after* results are fetched from tangram
 #    (needed for e.g. UserManagment)
@@ -183,6 +186,7 @@
 # get logger instance
 my $logger = Log::Dispatch::Config->instance;
 
+#$Tangram::TRACE = *STDOUT;
 
 # this holds the complete instantiated schema from tangram
 my $schema_tangram;
@@ -809,8 +813,11 @@
       my $options = { utf8 => 1, php => 1 };
       merge_to($object, $query->{payload}, $options);
 
+      #print Dumper($object);
+      
       # Execute update operation at orm.
       $self->update($object);
+      $result = $self->createResult([ $object ]);
     
     } elsif ($crud eq 'DELETE') {