--- nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2004/10/28 11:35:51	1.48
+++ nfo/perl/libs/Data/Storage/Handler/Tangram.pm	2004/11/03 14:12:34	1.49
@@ -1,8 +1,11 @@
 ############################################
 #
-#  $Id: Tangram.pm,v 1.48 2004/10/28 11:35:51 jonen Exp $
+#  $Id: Tangram.pm,v 1.49 2004/11/03 14:12:34 jonen Exp $
 #
 #  $Log: Tangram.pm,v $
+#  Revision 1.49  2004/11/03 14:12:34  jonen
+#  replaced print with logger->info
+#
 #  Revision 1.48  2004/10/28 11:35:51  jonen
 #  + bugfix related to select-criterias(filter)
 #
@@ -861,8 +864,8 @@
       my $nodename = $query->{node};      
       my $newnode = $self->createNode($nodename);
       my $id = $self->{_COREHANDLE}->insert($newnode);
-  
-      print "Saved new node $nodename with GUID $newnode->{guid}, OID '$id': " . Dumper($newnode) . "\n";
+      
+      $logger->info( __PACKAGE__ . "->sendQuery: Saved new node $nodename with GUID $newnode->{guid}, OID '$id'.");
       
       return $newnode;