--- nfo/perl/libs/Data/Storage/Schema/Abstract.pm	2002/11/15 13:21:39	1.4
+++ nfo/perl/libs/Data/Storage/Schema/Abstract.pm	2002/11/17 07:12:06	1.5
@@ -1,8 +1,11 @@
 ###############################################
 #
-#  $Id: Abstract.pm,v 1.4 2002/11/15 13:21:39 joko Exp $
+#  $Id: Abstract.pm,v 1.5 2002/11/17 07:12:06 joko Exp $
 #
 #  $Log: Abstract.pm,v $
+#  Revision 1.5  2002/11/17 07:12:06  joko
+#  + extended ::getProperties with argument "want_transactions"
+#
 #  Revision 1.4  2002/11/15 13:21:39  joko
 #  + added capability to propagate global schema options from schema module to tangram schema
 #
@@ -47,6 +50,8 @@
     my @args = ();
     @_ && (@args = @_);
     
+    $logger->debug( __PACKAGE__ . "->new" );
+
     #my $self = { @_ };
 
     # merge all entries from all hashes in args-array to single array (key, val, key, val)
@@ -55,11 +60,13 @@
     # make hash from array
     my %args = @args_all;
 
-    $logger->debug( __PACKAGE__ . "->new( @args_all )" );
+    #$logger->debug( __PACKAGE__ . "->new( @args_all )" );
     
     my $self = { %args };
     bless $self, $class;
 
+    #use Data::Dumper; print Dumper($self);
+
     # remember as which Class we are instantiated
     $self->{invocant} = $invocant;
 
@@ -141,7 +148,9 @@
     
     my $schema_properties = {};
     if ($self->{invocant}->can('getProperties')) {
-      $schema_properties = eval('return ' . $self->{invocant} . '::getProperties();');
+      # TODO: rework this! call by ref and/or do oo
+      #$schema_properties = eval('return ' . $self->{invocant} . '::getProperties();');
+      $schema_properties = eval('return ' . $self->{invocant} . '::getProperties($self->{want_transactions});');
     }
     
     # build argument to be passed to "Tangram::Schema->new(...)"